摘要： 1.服务器必须使用域名.不能使用IP地址2.Indy的话,域名加[]3.DataSnap的话,Params.Values['CommunicationIPVersion'] :='IP_IPv6';4.当前网络环境的判断,如下代码:{$IFDEF IOS}uses StrUtils, Posix.N 阅读全文

摘要： //通过程序标题查到程序句柄function TfmPrintSet2.FindWindowByTitle(WindowTitle: string): Hwnd;var NextHandle: Hwnd; NextTitle: array[0..260] of char;begin // 获取第一个 阅读全文

摘要： procedure TForm1.SpeedButton1Click(Sender: TObject); var Apoint:TPoint; begin APoint:=TSpeedButton(Sender).ClientToScreen(Point(0,TSpeedButton(Sender) 阅读全文

摘要： 1 连接远程服务器procedure Connect(AAutoLogin: boolean; const ATimeout: Integer);2 改变目录procedure ChangeDir(const ADirName: string);3 下载procedure Get(const ASo 阅读全文

摘要： memorystream base64 function BaseImage(fn: string): string; var m1: TMemoryStream; m2: TStringStream; str: string; begin m1 := TMemoryStream.Create; m 阅读全文

摘要： Delphi另一个多线程函数：BeginThread━━━━━━━━━━━━━━━━━━━━━━━━━━ Delphi也提供了一个相同功能的类似函数：function BeginThread( SecurityAttributes: Pointer; StackSize: LongWord; Thr 阅读全文

摘要： 在了解多线程之前我们先了解一下进程和线程的关系 一个程序至少有一个主进程,一个进程至少有一个线程。 为了保证线程的安全性请大家看看下面介绍 Delphi多线程同步的一些处理方案大家可以参考:http://www.cr173.com/html/16747_1.html 主线程又程为UI线程。 进程和线 阅读全文

摘要： 先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体): {自定义方法: 在窗体上绘制...} procedure MyMethod; var i: Integer; begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(... 阅读全文

摘要： 在Delphi中创建线程，请一定使用BeginThread()代替CreateThread()创建线程！ 如果直接使用Win32的API函数CreateThread()创建多个线程，也是可以创建的。但是，你应该明白，在每个线程中动态分配和销毁内存块，是需要同步保护的。Delphi语言中有一个在使用多线程环境下至关重要的全局变量IsMultiThread,系统在进行内存分配的时候，根据IsMu... 阅读全文

该文被密码保护。 阅读全文