delphi中间件

摘要： move()var buf1,buf2: array[0..9] of AnsiChar;begin buf1 := '0123456789'; buf2 := 'abcdefghij'; Move(buf2[2], buf1[4], 5); ShowMessage(buf1); {0123cdefg9} ShowMessage(buf2); {abcdefghij}end;copymemory()var buf1,buf2: array[0..9] of AnsiChar;begin buf1 := '0123456789'; buf2 := 阅读全文

摘要： 1、创建工程，在窗体中加入IdSMTP1、IdMessage1和IdPOP31（Indy控件标签组）控件各一个。 2、设置 IdSMTP1.Host := 'SMTP.163.com';(我用的是163检试，具体也可选择其它服务器) IdSMTP1.Username := 'caoyan528';(此处即表示邮箱的帐号名，例如邮箱为：aaaaaa@163.com,则Username即为aaaaaa) IdSMTP1.Password := 'XXXXXXXX';(此处即为邮箱的密码，如aaaaaa@163.com邮箱密码为123456,则Pass 阅读全文

摘要： 首先在下载的文件里你会找到一个文件，位置在Replacement BorlndMM DLL/Precompiled/for Delphi IDE/Performance/BorlndMM.dll，替换掉Delphi/Bin下的相应文件就可以完成对IDE的提速。 对自己编的程序的提速也非常简单，只要在.dpr工程文件里的uses部分加上FastMM4就可以了，但必须是加在第一位，还要记得设置 路径。重新编译你的程序就可以完成提速。一般情况下，感觉程序的启动速度会有提高。如果你的程序有内存泄漏的话那就会在程序关闭时弹出一个对话框告诉你你 的程序有内存泄漏，并指出相应的有内存泄漏的类。例如，我的程序 阅读全文

摘要： 在子线程中可以开启和关闭外进程，但不能直接关闭本身进程。子线程要发送消息给主线程，由主线程来关闭本身进程。 阅读全文

摘要： unit UDMPB;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, StdCtrls, idFTPList, ShellApi, RzPrgres, IniFiles, VCLUnZip, VCLZip;//MsgBox// 信息提示function MsgBox(Text, Caption: string; Fl 阅读全文

摘要： 源码：unit ServiceMainU;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdFTPServer, Registry, forms, IdUserAccounts, IdThreadMgr, IdThreadMgrPool, IdThreadMgrDefault, IdFTPList;type TServMain = class(TService) IdFTPS.. 阅读全文

摘要： program FTPServer_console;(*Sample of the usage of the TIdFtpServer component.Also shows how to use Indy in console appsCreated by: Bas Gooijen (bas_gooijen@yahoo.com)Disclaimer: Use it at your own risk, it could contain bugs.Copyright: Freeware for all use*){$APPTYPE console}uses Classes, windows, 阅读全文

摘要： function IsFileInUse(FName:string):Boolean; var HFileRes:HFILE; begin Result:=False; if not FileExists(FName) then Exit; HFileRes:=CreateFile(PChar(FName),GENERIC_READ or GENERIC_WRITE,0, nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0); Result:=(HFileRes=INVALID_HANDLE_VALUE); if not Result then CloseHa. 阅读全文

摘要： private procedure WMSysCommand(var Msg:TMessage);message WM_SYSCOMMAND;procedure TFormMain.WMSysCommand(var Msg: TMessage);begin case Msg.WParam of SC_CLOSE,SC_MINIMIZE,SC_MAXIMIZE: begin Application.Minimize; end; else inherited; end;end; 阅读全文

摘要： unit uFrmSplash; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, jpeg, ExtCtrls, StdCtrls 阅读全文