delphi中间件

摘要： functionHexStrToStream(AHexStr:String;AStream:TStream):Boolean;variLen:Integer;Buff:String;P1,P2:PChar;B:Byte;beginResult:=False;ifNotAssigned(AStream)thenExit;iLen:=Length(AHexStr);ifiLen=0thenExit;if(iLenmod2)<>0thenExit;SetString(Buff,Nil,iLendiv2);P1:=PChar(AHexStr);P2:=PChar(Buff);whileiL 阅读全文

摘要： functionStreamToHexStr(AStream:TStream):String;constHexChars:array[0..15]ofChar='0123456789ABCDEF';vari,len:Integer;beginlen:=AStream.Size-AStream.Position;SetLength(Result,len*2);AStream.Read(Pointer(Result)^,len);fori:=lendownto1dobeginResult[i*2]:=HexChars[Byte(Result[i])and$0F];Result[i* 阅读全文

摘要： procedure TFrmAnnouncement.SetStoragerText;var strStoragerText, strKeyWord: string; tmpList: TStringList; LenText, I, j, K: Integer; curRow: TPoint; t 阅读全文

摘要： unit MD5; interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls; typeMD5Count = array [0 .. 1] of 阅读全文

摘要： 如果客户端是TCP/IP是短连接的情况就没有必要了。type pClientConns = ^TClientConns; // 客户连接 TClientConns = record clientid: integer; ip: string; port: string; logintime: TDateTime; end;type G_ClientConnects: TDictionary<TIdTCPConnection, pClientConns>; // 客户端连接字典procedure TServerContainer1.DSTCPServerT... 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject);begin Memo1.Clear; Memo1.Lines.Add('char---' + IntToStr(SizeOf(char))); Memo1.Lines.Add('ansichar---' + IntToStr(SizeOf(ansichar))); Memo1.Lines.Add('byte---' + IntToStr(SizeOf(byte))); Memo1.Lines.Add('word---' + IntToSt 阅读全文

摘要： 测试代码文件:--------------------------------------------------------------------------------unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Memo2: TMemo; Button1: TButton; Button2: TButton; Butt 阅读全文

摘要： 如用 TArray<Word> 代替 array of Word, 还可以使用 TArray 类提供的算法(就是少了点).--------------------------------------------------------------------------------uses Generics.Collections, Generics.Defaults;{测试 TArray 的 Sort 方法}procedure TForm1.Button1Click(Sender: TObject);var arr: TArray<string>; //同 array 阅读全文

摘要： system.zlib单元 封装了zlib 1.2.5system.zip单元内主要就是 TZipFile 类, 最方便使用的是它的类方法:--------------------------------------------------------------------------------TZipFile.ExtractZipFile() //解压 Zip 文件到指定文件夹TZipFile.IsValid() //判断指定文件是否是有效的 Zip 文件TZipFile.ZipDirectoryContents() //压缩指定路径下的所有文件 阅读全文

摘要： procedure MyMethod;var i: Integer;begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(i)); Form1.Canvas.Unlock; end;end;procedure TForm1.Button1Click(Sender: TObject);begin TThread.CreateAnonymousThread(MyMethod).Start; end;1、TThread 现在增加了许多 class 方法(直接通过类名调用 阅读全文