Delphi转Java开发的辛酸

工作已经快两年了，回想起以前的选择，真是让人不是滋味啊！通过近段时间的仔细思考和对自己以后职业规划。现在越来越想往JAVAWEB方向发展。想了许久，我还是决定辞职，放弃现在这份安逸的工作。易然的选择做JAVA这边道路。     今天刚刚出来面试，就让我碰了不少的钉子，本以为自己有两年多 工作经验，应该可以找份合适的工作。哪想到，现在的公司的要求都是如此之高。想想自己的Java水平能力。不竟又有一

DELPHI XE7 JAVA 转换工具java to PAS

简便方法搞定第三方SDK的Jar包 在DELPHI XE 环境下的引入，生成原生桥接文件（NativeBridge File） 所谓“原生桥接文件”，即JAR文件的定义文件，说明了存在JAR库文件里的类、类型、函数等，相当于Windows系统下的dll文件和hpp文件，原生桥接文件只是进行说明定义，具体的实现功能代码仍然在JAR文件里。 如何生成原生桥接文件？EMB给出的方法是用Java2OP.exe工具，这是一个命令行程序，使用方法详见： http://docwiki.embarcadero.com/RADStudio/XE7/en/Java2OP.exe,_the_Native_Bridge_File_Generator_for_Android

【Java二十周年】Delphi转行java的一些小感触

本文纯属一届小码农对<em>java</em>使用过程的体验感触 目录： 初遇<em>java</em>编程语言 与<em>java</em>的擦肩 深入<em>java</em> 跨平台性 开源支持 web的支撑初遇<em>java</em>编程语言刚上大学的时候，完全是个电脑盲。刚入学学的计算机普及知识就是visual basic语言，可视化的组件编程语言，这个语言跟我第一份工作Delphi语言的是一个性质的，都是拖放控件，实现可视化开发，跟现在用着的extjs 中architec

Java转Pas文件官方工具（delphi的Pas文件）

Java转Pas文件官方工具（<em>delphi</em>的Pas文件），请大家参考一下！

Java2Pas(JAVA转Delphi工具)

。。。。。。。Java2Pas(JAVA转Delphi工具)

Java2Pas（Java代码转换成Delphi代码）

Java2Pas是命令行工具，可以将Java代码（.<em>java</em>）转换成Delphi代码(.pas文件)

byte数组和结构体相互转换

/// /// 串行化操作 /// /// 输入字节数组 /// 串行化结构对象 /// 转换字节数组的起始位置 /// 串行化结构的长度 public static int ByteArrayToStructure(byte[] bytearray, ref object obj,

毫秒与时间互相转换-精确到秒

名称：num_to_date 功能：将1970-01-01 00:00:00以来的毫秒数转换为对应的timestamp时间类型，不能保留毫秒！ 参数：IN_NUMBER NUMBER 待转换的毫秒数 示例：--毫秒数转时间(1551801221228)->(2019/3/5 15:52:56) select num_to_date(1551804255181) from dual;

JAVA JAR 转DELPHI源码 PAS

非常使用的<em>java</em>2pas工具。而且还赠送JAVA转JAR，再送XE7加载JAR测试源码。

编程几年来对delphi，java，android的所见感想

从2010年开始自学软件开始，刚接触的是<em>java</em>，可是因为一些原因只是入门了，不能算学会<em>java</em>然后就有开始自学<em>delphi</em>，然后就在<em>delphi</em>这条路上走了三年，期间也还是继续学习了<em>java</em>和android，在初期的时候由于技术很差，所以就对<em>java</em>的各种编写工具比较感兴趣，先后使用了一些简单到复杂的工具，其中在视频教程里面学会了myeclipse的使用，myeclipse里面也需要全部编写ja

VB PB Delphi VC Java开发工具比较（转）

VB PB Delphi VC Java开发工具比较（转） 网上有位系统分析员探讨了几种开发工具的特性，由其总结了下面的内容。文章客观评价了各种开发工具的优缺点，他本人把文章拿来和大家一起讨论一下， 欢迎专业人事补充和指正。 一、 跨平台特性 VB：无 ★ PB：WINDOWS家族, Solaris,Macintosh ★★★ C++ Builder/Dephi：WINDOW...

Delphi时间和Java时间的转换类。

这样一来，Delphi使用Webservice和JAVA通讯时，可以将DELPHI的时间直接传给JAVA。从而免去了时间字符串parse之间的消耗，提高的程序效率。Delphi时间实质就是double类型，整数部分表示天，小数部分表示当天时间，每毫秒为1/86400000。考虑到时区的转换后，JAVA和DELPHI时间之间的转换类如下：import <em>java</em>.util.Calendar;impor

Pdfium实现PDF转JPG

基于开源PdfiumLib修改支持<em>delphi</em>2006，支持pdf转图片

Java利用jni向delphi程序传递参数

步骤：一、<em>java</em>部分1、准备开发工具，在这里我用的是Eclipse。确保已安装好jdk工具;2、打开Eclipse;3、新建一个<em>java</em>project(JavaCallDelphiFirst) 默认配置;4、新建一个package(JavaCallDelphi);5、在JavaCallDelphi包下新建Class(JavaCallDelphiTest);6、敲入如下代码如上，Java部分所需代...

Delphi版的Base64转换函数

    Base64是网络上最常见的用于加密传输8Bit字节代码的编码方式之一， 网上搜索，.NET、C/C++的代码到处都是，可没找到Delphi的，本人写了2个函数，可供访问者参考使用。（注：后来，我觉得这2个函数灵活性太差，进行了修改，见《Delphi版的Base64转换函数（修改版） 》）unit Base64;interfaceuses SysUtils;function Str

delphi类与对象的转化

TClassBase = class(TPersistent)   private       { Private declarations }   protected     function SelfObj: TClassBase; virtual;     procedure ShowMsg; virtual;   public       { Public declarati

在Java和Delphi的算法中“/，%，div，mod”的区别

先定义三个变量: 在Java中：int a = 3 ,b = 5 ,c ; c = b/a ;     /// 求整数，c = 1 ; c = b%a ;    /// 求余数，c = 2 ; 在Delphi中：a , b , c : Integer ; c := b div a ;      ////求整数 , c := 1 ; c := b mod a ;     ///求余数 , c:=...

Delphi与JAVA互加解密AES算法

本组代码采用标准AES算法（基础算法引用ElAES.pas，感谢作者），代码支持AES/ECB/PKCS5Padding、AES/CBC/PKCS5Padding 密钥长度128/192/256bit，密钥0填充，Delphi与JAVA互相加解密。

Delphi 下的Base64编码和解码

function Base64Encode(s : string) : string; //base64 编码 var base64 : TIdEncoderMIME; tmpBytes : TBytes; begin base64 := TIdEncoderMIME.Create(nil); try base64.FillChar := '='; tmpByte

delphi图片转base64编码小工具支持jpg,png,bmp,gif

程序能将多种图片格式，转换为base64编码。 可用于网页编辑等html5效果实现。 如果你在运行时感觉速度很慢，在<em>delphi</em>编辑环境中把 memo的scrollbars属性设置为 both 即可！

delphi 数字转换成中文

获取当前日期，日期为数字。将数字转换成中文。function TForm1.GetCNDay():string; //result是function默认的返回值变量 var str,strYear,strMonth,strDay,e,n,s : string; year,month,day,v_index,v_len,i : Integer; begin e:=...

十六进制的字符串与二进制字符串相互转换

如果是十六进制的数字和二进制的数字相互之间进行转换的话，只需要调用 Integer.tobinarystring() 或者 Integer.tohexString()  就可以进行转换， 但是如果是字符串的时候，该怎么转换呢？而且字符串如果很长的话，要怎么处理？ 1、十六进制字符串转换成二进制字符串 规则：将十六进制字符串的每一个字符单独转换成一个四位的二进制字符串，然后拼接成一个完整的二进

Delphi版的Base64转换函数（修改版）

     前几天，兴趣所致，写了2个Delphi版的Base64转换函数，见《Delphi版的Base64转换函数》一文。后来觉得这些函数使用不够灵活，所以重新写了几个放在这里，核心的转换代码用BASM写的（不知是否快一点，不过，我觉得用汇编写这种代码好像比Pascal还容易些，因为有些二进制操作，高级语言不方便，同时使用汇编也能使算法更合理，可比较《Delphi版的Base64转换函数》代码和汇

CSV数据文件转换为Excel文件

该控件的主要作用是转换CSV数据文件为Excel文件，但数据大于65000条的时候，控件会自动分成多个Excel文件。里面有一些对Excel的控制，大家可以看看。

【代码片段】获取分辨率DPI和像素、毫米、英寸互相转换

        private static float DEFAULT_DPI_X = 0; private static float DEFAULT_DPI_Y = 0; /// &amp;lt;summary&amp;gt;获取分辨率DPI&amp;lt;/summary&amp;gt; /// &amp;lt;param name=&quot;dpiX&quot;&amp;gt;&amp;lt;/param&amp;gt;...

实用的微信API长链接转短链接程序，delphi开发

实用的微信API长链接转短链接程序，<em>delphi</em>开发.

Delphi XE中String、ANSIString、TBytes之间的转换 一、string转为ansistring 1、直接赋值 （有警告） 2、ansistring()类型强制转换。（无警

Delphi XE中String、ANSIString、TBytes之间的转换 一、string转为ansistring 1、直接赋值 （有警告） 2、ansistring()类型强制转换。（无警告） 二、ansistring 转为string 1、直接赋值 （有警告） 2、string()类型强制转换。（无警告） 三、string 转为Tbytes 1、bytes:= byt

字符串转化为RTF格式－RTF研究系列

本人由于项目的需要，对RTF格式做了比较深入的研究，其中有些心得与源码与大家分享！ 先来一篇源码吧！ 平台与语言：VS2005,C# ///         /// string转化为RTF类型         ///         ///         ///         public static string Str2RTF(string strs)

delphi(pas)转java

<em>delphi</em>(pas)转<em>java</em>，有这种需求的可以用一下！

字符串string和内存流MemoryStream及比特数组byte[]互转比转换

字符串string和内存流MemoryStream及比特数组byte[]互转比较 定义string变量为str,内存流变量为ms,比特数组为bt 1.字符串转比特数组 (1)byte[] bt=System.Text.Encoding.Default.GetBytes(&quot;字符串&quot;); (2)byte[] bt=Convert.FromBase64String(&quot;字符串&quot;); ...

加密解密 Delphi C# 兼容互转

http://blog.csdn.net/qdseashore/article/details/52321820 Delphi： function strtohstr(s: string): string; var   i: integer;   r: byte; begin   Randomize;   r := Random(60) + 35;   r

Delphi用Base64编码实现文件序列化

该示例可以使文件被序列化为字符串，这样就可以将这个字符串装进XML文档，从而实现通用的文件传输功能。

PChar与String的区别及互相转换

String转换到PChar不是自动的,他们之间的不同点导致他们的转换存在问题。 1. String是引用计数的，而PChar不是 2. 赋值给String是数据的拷贝，而PChar是指向数据的指针。 3. String是空止符结尾(空止符结尾指以#0结尾)，并包含有字符串的长度。而PChar是简单的NULL结尾。 把PChar转换为String可用StrPas(PChar)，把S

PNG图片转换成BMP图片格式

PNG图片转换工具. PNG图片转换成BMP图片格式

使用SAPI实现TTS文字转wav文件的功能

//头文件/* 文件名：tts_module.h 2018年4月23日11:04:18 代码目的：把文字（英语或者汉字）转化成wav文件。可以播放。即TTS text to speech。 */ class String2Speech { public: //string to wchar* static WCHAR* str_to_wcharstr(std::string mystri...

Java转Delphi的工具类

最近有个项目需要用到Java中间层和Delphi客户端，中间层和客户端之间的交互用JSON； 大家都知道Java世界里存在着各种各样的实体类，而Delphi端也需要这些实体类的代码，当然通过JNI也是可以访问JAVA代码的，但是这样无疑会带来项目复杂度，因此写了这么个转换工具类。 调用方法：ClassUtil.TransforEntiyToDelphi( ClassUtil.getModelC

Base64与byte[]相互转换

Base64与byte[]相互转换 将base64转换为byte[] 转byet[]换为base64 并在base64中去掉换行

图片和base64相互转化

# -*- coding: utf-8 -*- import urllib2 as ulb import base64 #用urllib2库链接网络图像 response=ulb.Request('http://s14.sinaimg.cn/mw690/5562b044tx6BkMgSR09ad&amp;amp;690') fp=ulb.urlopen(response).read() ...

Delphi调用Java类（支持Java 6）完整源代码，可直接调试运行

这两天正在做一个项目，需要使用Delphi与互联网社区网站进行对接，协议中使用了RSA加密；通过测试，Delphi的RSA算法无法与Java的RSA算法兼容，经过各种周折最终尝试了Delphi调用Java的类的方法进行RSA加密解密；这是非常令人振奋的解决方案，但是前期也遇到不少问题。 在网上找到http://www.<em>delphi</em>-jedi.org/中的jni.pas及相关的例子，但是用的是jdk1.4的，问了对方说至少需要jdk1.5，差点放弃了该方案；通过各种尝试及网上搜索终于找到了一个支持jdk1.6的jni.pas接口源文件，一切豁然开朗。为了方便大家，压缩包中已包含了jar6虚拟机，下载后可直接运行。

jpg和tif转pdf遇到的问题和解决方法

问题： 当使用PDFLib把jpg转成pdf正常，把tif转pdf的时候就遇到了麻烦。如果tif是CCITT压缩格式则正常，如果是tif是jpg压缩或者lzw(其他压缩格式没有测试)  转换是速度就较慢了而且转出来的pdf文件大小比tif文件大了好几倍，分析原因可能是PDFLib中对于tif压缩格式的处理方式不同。通过设置compress参数也 未能解决。PDFLib: set_valu

Delphi XE7调用JAVA的JAR

现在很多都是提供jar包,使用Delphi的同学们习惯于调用dll,附件就是一个通过DELPHI XE7调用JAVA的JAR的例子

三层开发中String与WideString的转换

文章来源：http://blog.csdn.net/yjswjm119/archive/2006/02/18/601807.aspx// 功能：将 WideString 转换成 Stringfunction ChWideToAnsi(const StrW: WideString): AnsiString;var  nLen: integer;begin  Result := StrW;  if

Delphi 请求时间，为当前时间，数值为1970-01-01以来的毫秒数

//和Java获取的数值一致 function TWorkWindowForm.GetJavaTime(d: TDateTime): Int64; var   dJavaStart: TDateTime; begin   //<em>java</em>里的时间是从1970年1月1日0点到当前的间隔   dJavaStart := EncodeDateTime(1970, 1, 1, 0, 0, 0, 0);   ...

一直用delphi做ERP软件，想换个语言，想做java，但是。。好纠结啊

看了<em>delphi</em>的论坛，感觉这几个观点还是比较好的，记录下来 1.开发语言和工具很多，但是不变的是业务逻辑和数据库技术。必须掌握一种主流的数据库技术和一些行业的业务逻辑 2.君子务本，本立而道生。 3.<em>delphi</em>做前端， webserveric做后端这种模式还是需要深入了解一下的。 4.<em>delphi</em>有很多知识点啊，可以学习一下。 5.<em>java</em> 语言也很强大的，但是从oracle收购后，

获取时区，根据时区做 UTC时间到本地时间之间转换

unit uTimeZonesMgr; interface uses Windows, SysUtils, Classes, Registry, DateUtils; type {* 用于读取时区注册表TZI（长度为44）的属性值，存储时区信息 *} PRegTZIInfo = ^TRegTZIInfo; TRegTZIInfo = record Bias: Longint; StandardBias: Longint; DaylightBias: Longint; StandardDate: TSystemTime; DaylightDate: TSystemTime; end; {* 单个时区管理对象 *} TTimeZone = class private FTimeZoneName: string; //时区的显示名 FDisplay: string; //夏令时的名字 FDlt: string; //时区标准名字 FStd: string; //是Time zone information的缩写，描述时区的一些重要信息 FTZI: PRegTZIInfo; function GetSelfTimeZoneInformation: TTimeZoneInformation; public constructor Create; destructor Destroy; override; function UTCToLocalDateTime(const AUTC: TDateTime; var ALocalDateTime: TDateTime): Boolean; function LocalDateTimeToUTC(const ALocalDateTime: TDateTime; var AUTC: TDateTime): Boolean; public property TimeZoneName: string read FTimeZoneName write FTimeZoneName; property Display: string read FDisplay write FDisplay; property Dlt: string read FDlt write FDlt; property Std: string read FStd write FStd; property TZI: PRegTZIInfo read FTZI write FTZI; end; {* 所有时区管理对象 *} TTimeZones = class private FTimeZoneKeyPath: string; FTimeZoneList: TStringList; FDefaultTimeZone: TTimeZone; procedure CollectTimeZone; procedure DestoryTimeZones; procedure CheckISDefaultTimeZone(ATimeZone: TTimeZone); public constructor Create; destructor Destroy; override; function FindTimeZone(const ADisplay: string): TTimeZone; public property TimeZoneList: TStringList read FTimeZoneList; property DefaultTimeZone: TTimeZone read FDefaultTimeZone; end; implementation { TTimeZones } procedure TTimeZones.CheckISDefaultTimeZone(ATimeZone: TTimeZone); var DefaultTimeZone: TTimeZoneInformation; begin GetTimeZoneInformation(DefaultTimeZone); if (ATimeZone.TZI.Bias = DefaultTimeZone.Bias) and (ATimeZone.Std = DefaultTimeZone.StandardName) then FDefaultTimeZone := ATimeZone; end; procedure TTimeZones.CollectTimeZone; var reg, tempReg: TRegistry; tempKeyPath: string; tempTimeZoneStrings: TStrings; iCir: Integer; tempTimeZone: TTimeZone; begin reg := TRegistry.Create; try reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey(FTimeZoneKeyPath, False); tempTimeZoneStrings := TStringList.Create; try reg.GetKeyNames(tempTimeZoneStrings); for iCir := 0 to tempTimeZoneStrings.Count - 1 do begin tempKeyPath := FTimeZoneKeyPath + '\' + tempTimeZoneStrings.Strings[iCir]; tempReg := TRegistry.Create; try tempReg.RootKey := HKEY_LOCAL_MACHINE; tempReg.OpenKey(tempKeyPath, False); tempTimeZone := TTimeZone.Create; tempTimeZone.TimeZoneName := tempTimeZoneStrings.Strings[iCir]; tempTimeZone.Display := tempReg.ReadString('Display'); tempTimeZone.Std := tempReg.ReadString('Std'); tempTimeZone.Dlt := tempReg.ReadString('Dlt'); tempReg.ReadBinaryData('TZI', tempTimeZone.TZI^, SizeOf(TRegTZIInfo)); FTimeZoneList.AddObject(tempTimeZone.Display, tempTimeZone); if FDefaultTimeZone = nil then CheckISDefaultTimeZone(tempTimeZone); finally tempReg.CloseKey; tempReg.Free; end; end; finally tempTimeZoneStrings.Free; end; finally reg.CloseKey; reg.Free; end; end; constructor TTimeZones.Create; begin FTimeZoneKeyPath := '\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones'; FTimeZoneList := TStringList.Create; FTimeZoneList.Sorted := True; FDefaultTimeZone := nil; CollectTimeZone; end; procedure TTimeZones.DestoryTimeZones; var iCir: Integer; tempTimeZone: TTimeZone; begin for iCir := 0 to FTimeZoneList.Count - 1 do begin tempTimeZone := TTimeZone(FTimeZoneList.Objects[iCir]); tempTimeZone.Free; end; FTimeZoneList.Clear; FTimeZoneList.Free; end; destructor TTimeZones.Destroy; begin DestoryTimeZones(); inherited; end; function TTimeZones.FindTimeZone(const ADisplay: string): TTimeZone; var iIndex: Integer; begin Result := nil; FTimeZoneList.Sort; if FTimeZoneList.Find(ADisplay, iIndex) then begin Result := TTimeZone(FTimeZoneList.Objects[iIndex]); end; end; { TTimeZone } constructor TTimeZone.Create; begin FTZI := GetMemory(SizeOf(TRegTZIInfo)); FillMemory(FTZI, SizeOf(TRegTZIInfo), 0); end; destructor TTimeZone.Destroy; begin FreeMemory(FTZI); inherited; end; function TTimeZone.GetSelfTimeZoneInformation: TTimeZoneInformation; begin GetTimeZoneInformation(Result); Result.Bias := TZI^.Bias; Result.StandardBias := TZI^.StandardBias; Result.StandardDate := TZI^.StandardDate; Result.DaylightBias := TZI^.DaylightBias; Result.DaylightDate := TZI^.DaylightDate; end; function TTimeZone.LocalDateTimeToUTC(const ALocalDateTime: TDateTime; var AUTC: TDateTime): Boolean; var tempLocalToLocal: TDateTime; iMilliSecond: Int64; begin Result := UTCToLocalDateTime(ALocalDateTime, tempLocalToLocal); if Result then begin if tempLocalToLocal > ALocalDateTime then begin iMilliSecond := MilliSecondsBetween(tempLocalToLocal, ALocalDateTime); AUTC := IncMilliSecond(ALocalDateTime, iMilliSecond * -1); end else begin iMilliSecond := MilliSecondsBetween(ALocalDateTime, tempLocalToLocal); AUTC := IncMilliSecond(ALocalDateTime, iMilliSecond); end; Result := True; end; end; function TTimeZone.UTCToLocalDateTime(const AUTC: TDateTime; var ALocalDateTime: TDateTime): Boolean; var TimeZone: TTimeZoneInformation; stUTC, stLC: SYSTEMTIME; begin Result := False; TimeZone := GetSelfTimeZoneInformation; DateTimeToSystemTime(AUTC, stUTC); if SystemTimeToTzSpecificLocalTime(@TimeZone, stUTC, stLC) then begin ALocalDateTime := SystemTimeToDateTime(stLC); Result := True; end; end; end.

10进制转36进制

10进制转36进制，输出为4位定长

DELPHI 字符转16进制、16进制转字符

function TForm1.myStrToHex(s:string):string; //字串转16进制 var     TmpStr:string;     i:integer; begin     TmpStr:='';     for i:=1 to Length(s)do     begin         TmpStr:=TmpStr+IntToHex(ord(s[i

C,C++ To Delphi转换器(源码)

C,C++ To Delphi转换器(源码).rar

Delphi实现Word、PDF文档转Image

Delphi实现Word、PDF文档转Image；图片大小可自定义。效果非常好。

Delphi 字符串转字节数组

procedure TFlowSubtitles.btnOKClick(Sender: TObject); var nLength : Integer; TxBuf_Com : array of Byte; TxBuf_Net : array[0..13] of Byte; //发送数据数组 i, j, k, m : Integer; //循环 iCount : In...

动态数组与静态数组之间的转化

1 将动态数组转化为静态数组 [code=&quot;<em>java</em>&quot;] public class Test { public static void main(String[] args) { List list=new ArrayList(); list.add(&quot;王利虎&quot;); list.add(&quot;张三&quot;); ...

Delphi 进制转换——十六进制 to 十进制浮点数

//十进制 to 二进制function IntToBin(Value: LongInt;Size: Integer): String;var i: Integer;begin Result:=; for i:=Size-1 downto 0 do begin  if Value and (1 shl i)  Result:=Result+1;  end else begin

Delphi 字符串转十六进制

mark一下。 //字符串转16进制 function StrToHex(src:string):string; var i: integer; des: string; begin des := ''; for i := 1 to Length(src) do begin des := des + IntToHex(Ord(src[i]),2) + ' ';

IplImage与Bitmap相互转换

Drawable drawable = idToDrawable(R.drawable.p4); Bitmap bitmap = this.drawableToBitmap(drawable); // 将Bitmap转化为IplImage IplImage iplImage = this.bitmapToIplImage(bitmap);

DateTime与String之间的转换

1、string字符类型转成DateTime类型 string startTime="8:00"; DateTime startTime1=DateTime.Parse(startTime); 2、DateTime类型转成String类型 DateTime dt=new DateTime(); string format="YYYY-MM-dd-HH-mm-ss"; str

delphi中的常用数学函数 与 十六进制转成float

问：代码x:=power(y,2); 却提示这个Undeclared identifier: 'power' 为什么？ 答：引用单元math 原文地址：http://www.cnblogs.com/doorsky/archive/2011/04/10/2011211.html <em>delphi</em>中的常用数学函数 定义：function

delphi 大小写字符串转换

UpperCase 返回转换大写字符串拷贝 Function UpperCase(const S : string) : string LowerCase 转换成小写

Delphi进制转换（二进制/十进制/十六进制）

http://www.cnblogs.com/ywangzi/archive/2012/12/12/2815219.html Delphi进制转换（二进制/十进制/十六进制）  2009-11-27 11:42:24|  分类： 计算机知识 |  标签： |字号大中小 订阅 .Delphi进制转换（二进制/十进制/十六进制）2008-08-29 10:24 一、完全用API完成:..uses ...

delphi汉字与十六进制内码互转

<em>delphi</em>汉字与十六进制内码互转在Delphi中新建一个项目，在窗体上放置三个EDIT，分别起名为EDIT1，EDIT2，EDIT3EDIT1用于输入字符串；EDIT2用于输入字符内码，同时用于显示EDIT1中的字符串内码．EDIT3用于显示EDIT2中字符串内码对应的字符串．两个按钮：button1:字符串转内码button2:内码转字符串将下面的代码替换uni

汉字转拼音（全拼）和首字拼音全支持delphi单元

完整的汉字转拼音源码 可支持全拼转换，如 天下=TIANXIA 首字拼音转换 天下=TX 支持<em>delphi</em> XE7

delphi之:如何将Bitmap位图与base64字符串相互转换

转载Benson的博客by 菩提树下的杨过 有时需要将位图存入数据库时，或加密保存图片时可用。 ///将Bitmap位图转化为base64字符串 function BitmapToString(img:TBitmap):string ; var   ms:TMemoryStream;   ss:TStringStream;   s:string; begin     ms := TMemory...

Delphi 自带了 Base64 编解码的单元

Delphi 自带了 Base64 编解码的单元，叫 EncdDecd， 这名字很拗口而且不直观，估计这是一直很少人关注和知道的原因。   这个单元提供两套四个公开函数：  对流的编解码： procedure EncodeStream(Input, Output: TStream);  // 编码 procedure DecodeStream(Input, Output: TStream);

c语言转换成delphi程序语言

1,指针 int *ptr;  char *ptr; var ptr:^Integer; ptr:^char; 2,无类型指针的定义 c void *ptr; <em>delphi</em>: ptr:Pointer 3,取值: c (*ptr) <em>delphi</em> ptr^ 4,取地址 c ptr=&Object; <em>delphi</em> ptr:=@Object 5,指针运算 c

delphi 各种时间类型之间的转换函数

各种时间类型之间的转换函数 DateTimeToFileDate函数： 定义：DateTimeToFileDate(DateTime: TDateTime): Integer; 作用： 将一个TDateTime类型的时间转化为Dos环境中的时间，Dos环境下对时间的访问方法和VCL中的TdateTime类型不一样，在进行文件操作时，为了保持时间的一致性，需要使用DateTimeToFileD

关于DELPHI数组，指针，字符串转换的例子!(转)

关于DELPHI数组，指针，字符串转换的例子!(转) var   aa:   array [0..5] of Char;   bb:Pointer;   cc:string;   dd:PChar; procedure TForm1.Button1Click(Sender: TObject);begindd:='abcdef'; //以下是pchar内容

10进制转换为8进制

package digui; import <em>java</em>.util.Collections; import <em>java</em>.util.LinkedList; import <em>java</em>.util.List; public class Cast {     public static void main(String[] args) {         int a = Cast.castN

VARIANT型变量转换

1、 在VC++编程中，我们常常会遇到这样的函数，如：::SetValue(const VARIANT& propVal)； 我们怎么把一个整形或double型等其它的类型赋值给VARIANT型变量呢，或者是VARIANT型变量怎么赋值给int等其它类型呢。 2、 VARIANT是一个结构体，它的结构体如下： struct tagVARIANT {     union {         

Delphi下16进制位图数据转位图

如果我们在Form中拖入一个Image控件，并设置好picture后，Alt+F12就可以看到Form的源代码中已经将图片转成了16进制字符串，如下： object Image1: TImage Left = 536 Top = 24 Width = 105 Height = 105 Picture.Data = { 075442697

解决delphi客户端用TIDhttp POST 传参中文乱码问题(转)

用Tidhttp post方法向服务器传参，碰到中文乱码的问题。 1、<em>delphi</em>传中文到Java是乱码。 上代码： procedure TForm18.Button1Click(Sender: TObject); var userName : String ; userPwd : String ; Url: String ; Params : TStringLis...

delphi char数组、string和Pchar的相互转换

因为要调用windows的api或者给vc++写接口，很多地方都要用到pchar，现在将char数组、string和pchar之间的相互转换都列出来，都是网上找的资料，我总结一下。 1.string转换成pchar    可以使用pchar进行强制类型转换，也可以使用StrPCopy函数 var s:string; p,p1:PChar; begin s:='Hell

Delphi中把bmp图片转换成jpg图片

//bmp图片转换成jpg图片 function fun_BmpToJpg(temp, path: String; ACQ: Integer): Boolean; stdcall; var   MyJpeg: TJpegImage;   Bmp: TBitmap; begin   result := false;     if FileExists(temp) then   beg

delphi 怎么将一个流转换成字符串？

//from http://kingron.myetang.com/zsfunc0d.htm (*// 标题:充分利用pascal字符串类型 说明:和PChar不同,string可以保存#0字符在其中;示例文件、内存流字符串之间转换 设计:Zswang 日期:2002-01-25 支持:wjhu111@21cn.com //*) /////

delphi 转16位深图片

<em>delphi</em> 转16位深图片<em>delphi</em> 转16位深图片

Delphi的几种类型转换

Delphi的几种类型转换 unit Support; interface type dword=longword; function WordToStr(Value: word): string; function DwordToStr(Value: dword): string; function StrToWord(Value: string): word; function StrToDw

Delphi图片与Base64互转及图片添加水印

Delphi 实现图片与Base64编码相互转化和给图片添加水印图片和水印文字Demo

Delphi unicode 数字转换成中文显示

function ProcessFormSource(mSource, mDest: TStrings): Boolean; var   I, J, K: Integer;   S: string;   vTempStr, vLeftStr: string;   vWideByte: Integer; begin   Result := False;   if not (Assig

delphi-string互相转化为byte数组

<em>delphi</em>-string互相转化为byte数组

delphi字符串转换为char数组

var  arrChar : array [0..4] of Char;  b : Byte;  s : string;begin  s := Test;  Move(Pointer(s)^, arrChar, Length(s));   //string to array of char  ShowMessage(arrChar);  b := Ord(s[1]);   //First by

Delphi中UTF-8,Unicode格式转换

<em>delphi</em>7调用<em>delphi</em>2009生成的dll文件会出现乱码问题。是unicode的原因 终于找到了UTF-8、Unicode格式转换函数

Delphi实现汉字转ASCII码

function UnicodeToASCII(ansi: AnsiString):string; var   ws:WideString;   i:Integer;   rs:string; begin   ws := ansi;   for i:=1 to Length(ws) do   begin     if PByte(Integer(@ws[i])+1)^ = 0 t

int_64 与 字符串相互转化

int main() {        time_t cur_time = time(0);        cout        char ct[32];        memset(ct,0,sizeof(ct));        sprintf(ct,"%lu",cur_time);        cout        time_t tt = atoll(ct);  

byte[]与十六进制字符串的转换

/** * byte[]与16进制字符串相互转换 * */ public class BytesHexStrTranslate { private static final char[] HEX_CHAR = {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e...

Delphi MD5加密[和Java的MD5加密结果一致]

//MD5加密字符串 function TWorkWindowForm.ret_mymd5(const sVaule: string): string; var   mymd5: TIdHashMessageDigest5; begin   try     mymd5 := TIdHashMessageDigest5.Create;     Result := (mymd5.AsHex(mymd...

Delphi-string转pbyte的方法——Move函数！

var    s:string;    ps:Pchar;    b:pbyte;    len:integer; begin    s:=edit1.Text; //字符串    ps:=pchar(s); //转成pchar类型,    len:=length(s);//取字符串长度,占用多少字节    getmem(b,len);//申请内存,pchar,pbyte在使用前

delphi string类型转integer时出错的检测

procedure TForm1.Button1Click(Sender: TObject);Var  Num: Integer;Begin  Try    Num:=StrToInt(Edit1.Text);    Edit2.Text:=IntToStr(Num*Num);  Except    On EConvertError Do   ShowMessage(Edit1.Text+无法转

Delphi2Cpp（delphi代码转换为C++代码

可以把<em>delphi</em>代码转换为C++代码，每次转换单个文件。 源代码中的中文，转换后在界面看是乱码，将转换后的代码保存文件后，中文恢复，不再是乱码

Delphi Byte[] 转String 中文乱码问题解决

Socket通信时，取中文时乱码，这主要是编码问题AnisString是双字节编码，而Unicode是3字节编码解决办法const buf:array[0..8] of byte =(228, 189, 160, 229, 165, 189, 239, 188, 129); //buf:TByteArray; 这两个效果一样var  s: string;  i:Integer;  stream: ...

serialize将实例转化为字符串, unserialize() 还原已经序列化的对象

//serialize.php //声明一个类 class dog {     var $name;     var $age;     var $owner;     function dog($in_name="unnamed",$in_age="0",$in_owner="unknown") {         $this->name = $in_name;        

delphi 十进制转十六进制

<em>delphi</em>提供 s : string; s := IntToHex(strtoint(Edit1.Text),2)  ;   可以看出inttohex返回string型， 第一个参数是int行，输入的十进制数 第二个参数是返回的长度，不足前面补零。

delphi中的字符串，字符串数据，字符串指针的转换以及不同字符串格式的转换

<em>delphi</em>中不同字符串格式的转换<em>delphi</em>中的编码默认的应该是unicode编码，<em>delphi</em>中的字符串类型有 UnicodeString,AnsiSting,String,UTF8String,如果你想让他们相互转换可以在他们后面加To会有各种提示，但建议尽量不用。Delphi字符串、PChar与字符数组之间的转换：设有以下三个变量：var 　　　　s:string; 　　　　p:pcha

delphi枚举与字符串转换

以下为D自带帮助中的说明，备存怕忘记 uses TypInfo ; function GetEnumName(TypeInfo: PTypeInfo; Value: Integer): string; Returns the name of a Delphi enumerated type constant given its value. Use GetEnumName to conv

string ut8编码 需要对"/"转码

NSString *url = [NSString stringWithFormat:@"http://labs.kouclo.com:9001/categories/%@/%@",firstName,secondName];   //需求是如果 secondName 为"女人/女包" utf8转码不会转"/"    1.解决方法一         secondName = [s

Delphi 单精度浮点数与字节数据的相互转化处理

最近看modbus的协议需要用到浮点数的转换，原本想着还要照着IEEE的浮点数结构自己来搞，Google下原来有更好的解决方案，粘贴下来以备不时之需，贴代码(代码仅作示意，自己整理下) ：1、字节数组转为Single，传入参数自己处理下，嘿嘿function BytesToSingle():Single; var bSingle:array[0..3] of byte; begin //49E48E68 bSingle[3] := $49

DELPHI 字符串与日期格式互转

procedure TForm1.Button1Click(Sender: TObject); var D:TDateTime; s:string; begin D:=VarToDateTime('05-10-14 04:35PM'); S:=FormatDatetime('YYYY/MM/DD HH:MM:SS',D); showmessage(s); end

时间戳与日期互转

1、日期转换成时间戳 function Gettimestamp: string;  begin     Result := inttostr(DateTimeToUnix(IncHour(Now,-8)));    //  本地时间减8小时 end; 2、时间戳转换成日期 function UnixDateToDateTime(const USec: Longin

Delphi png、bmp等图片格式转换成jpg

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls,jpeg; type TForm1 = class(TForm) btn3: TButton; img1...

delphi类型转换 asc与char

ord(char) = ascchr(asc) = charinttohex(int,1) = hex (string) 使用AStr[i]取AStr:String中的第i个字符时需要注意的事项:这里i表示第i个字符,并不是通常的0表示第1个，i表示第i+1个。 二位的16进制转换为10进制:function HexToInt(hex : string):int

delphi中文数字转阿拉伯数字

项目中使用，网上找不到，自己写了一个 type   TChnnum=record     rate:integer;     str:string;   end;   const chndigit:array[0..9]of Char=('零','一','二','三','四','五','六','七','八','九'); function TTabbedwithNa

delphi进制转换函数

十六进制与二进制、十进制： function HexToBin(Text, Buffer: PChar; BufSize: Integer): Integer function IntToHex(Value: Integer; Digits: Integer): string; overload; function IntToHex(Value: Int64; Digits: Int

flash动画环保作品下载

很好的flash动画环保作品,值得欣赏和保存. 相关下载链接：[url=//download.csdn.net/download/lingqiaoli/1242053?utm_source=bbsseo]//download.csdn.net/download/lingqiaoli/1242053?utm_source=bbsseo[/url]

js的代码 欢迎下载

js的代码 欢迎下载js的代码 欢迎下载 学习使用 相关下载链接：[url=//download.csdn.net/download/winderflowers/2011067?utm_source=bbsseo]//download.csdn.net/download/winderflowers/2011067?utm_source=bbsseo[/url]

守望FTP服务器 V1.0.0 这是一个小巧灵活的FTP服务器工具下载

守望FTP服务器 V1.0.0 这是一个小巧灵活的FTP服务器工具 相关下载链接：[url=//download.csdn.net/download/wskwfkbdn/2020138?utm_source=bbsseo]//download.csdn.net/download/wskwfkbdn/2020138?utm_source=bbsseo[/url]

文章热词 机器学习教程 Objective-C培训 交互设计视频教程 颜色模型 设计制作学习

相关热词 mysql关联查询两次本表 native底部 react extjs glyph 图标 java 转机器学习 java转大数据培训