//delphi 7 Delphi汉字简繁体转换代码unit ChineseCharactersConvert; interface uses   Classes, Windows; type   TGBBIG5Convert = class(TObject)   public     class function BIG5ToGB(BIG5Str : String): AnsiString;     class function GBToBIG5(GBStr : String): AnsiSt…

先介绍一下,Delphi中处理Google的URL编码解码,其中就会明白URL编码转换的方法的 从delphi的角度看Google(谷歌)URL编码解码方式 在网上搜索了一下,似乎没有什么关于google的URL编码解码的很详细的资料,因此在这里写一下,希望给有用的人提供一点帮助. 使用google谷歌搜索一下关键词,对应的编码如下: 刀:%E5%88%80 刀具:%E5%88%80%E5%85%B7 刀具网:%E5%88%80%E5%85%B7%E7%9A%84 因此可见,google对URL…

Pchar是非托管代码,要在.net中调用Delphi dll中的功能,请使用MarshalAs属性告知.net调用PInvoke去转换.net中标准的string类型.如果Delphi dll是Delphi2007以前的版本编译的,则Pchar是Ansi类型:如果Delphi dll是Delphi2009以后的版本编译的,则Pchar是Unicode类型.请看以下实例. Ansi类型: [DllImport("my.dll")] [return: MarshalAs(Unmanage…

//文件或目录转换成 TreeViewprocedure DirToTreeView(Tree: TTreeView; Directory: string; Root: TTreeNode; IncludeFiles:  Boolean);var  SearchRec         : TSearchRec;  ItemTemp          : TTreeNode;begin  with Tree.Items do  try    BeginUpdate;    if Directory…

网上很多把HTML转换成纯文本格式的方法很多思路都是用正则表达式或者分析html代码替换的方法. 本文是利用IE完成转换,即利用IHTMLDocument2接口. Denon天Denon龙Denon 转换结果: uses MSHTML;function HtmlToText(HtmlText: WideString): WideString;var  V: OleVariant;  Document: IHTMLDocument2;begin  Result := HtmlText;  if H…

1.10进制转16进制 intTohex(10,4);  //第一个参数为要转换的数据,第二个参数为要转换后的16进制位数:得到:000A; 2. 16进制转10进制 strToInt('$'+'64') ;  //前面加上$符合,然后再加上要转换的16进制: 一个16进制转10进制的函数: function myHexToInt(value:string):Byte; begin  Result:=StrToInt('$'+value); end;…

delphi有提供十进制转换成十六进制的函数: IntToStr();   返回值为String // 十进制转十六进制 var i: integer; str: string; begin i := 255; ShowMessage(IntToHex(I, 2)); //FF 2表示返回的位数 // 另外,Formart也有把十进制用十六进制输出的功能 str := Format('%.2x', [i]); ShowMessage(str); // FF 返回结果跟IntToStr()函数想一…

//delphi DecodeUtf8Str解决系统自带UTF8解码缺陷 function DecodeUtf8Str(const S: UTF8String): WideString; var lenSrc, lenDst  : Integer; begin   lenSrc  := Length(S);   if(lenSrc=0)then Exit;   lenDst  := MultiByteToWideChar(CP_UTF8, 0, Pointer(S), lenSrc, nil,…

/// <summary> /// GB2312转换成UTF8 /// </summary> /// <param name="text"></param> /// <returns></returns> public static string gb2312_utf8(string text) { //声明字符集 System.Text.Encoding utf8, gb2312; //gb2312 gb2312…

Delphi日期时间,就是常见的 2014-05-02 10:37:35 -------------------------------------------------------------------- UNIX日期时间,一个整数,从1970/01/01 开始的秒数,int64位 ------------------------------------------------------------------- 标准UTC时间, 世界统一时间,世界标准时间,国际协调时间,简称UTC 不…