为方便网络编程的朋友给自己的程序获得洞查 internet 的连接与否状态，以便为自动运行提供指示。QQ 不知道为什么没有使用这个函数，而 MSN 、ICQ却早就在使用了。这个片段中，还是自...
下载程序并且UrlDownloadToFile的进度提示 网上看到的转载过来，测试过确实没问题，正在简单增加下窗体功能。 urlmon.dll中有一个用于下载的API，MSDN中的定义如下： HRESULT URLDownloadToFile(...
主窗口单元： {==========================================} {=======================================} { By Lanyus } { QQ:231221 } { Email:greathjw [at] 163.com } {=======================================} unit UtMain; interface uses Wind...
局域网点对点文件传输(IdTcpClient控件)" alt="Delphi 局域网点对点文件传输(IdTcpClient控件)" src="http://s5.sinaimg.cn/bmiddle/4a8552f84539a68cdb304" /> unit Unit1; interface uses Windows, Messages, SysUtils, Variants,...
unit LGetAdapterInfo; interface uses Windows, SysUtils, Classes; const MAX_HOSTNAME_LEN = 128; { from IPTYPES.H } MAX_DOMAIN_NAME_LEN = 128; MAX_SCOPE_ID_LEN = 256; MAX_ADAPTER_NAME_LENGTH = 256; MAX_ADAPTER_DESCRIPTION_LENGTH = 128; MAX_AD...
以前写的一个ftp客户端下载的玩意！支持了断点续传，多线程传输等（实际上并非是一个真正多线程的传输与下载模式，是一个伪多线程方式，仅仅是多开ftp端口，连接上之后从指定的...
//delphi 获取网络文件大小 function GetUrlFileSize(aURL: string): integer; var FileSize: integer; var IdHTTP: TidHttp; begin IdHTTP:= Tidhttp.Create(nil); IdHTTP.Head(aURL); FileSize := IdHTTP.Response.ContentLength; IdHTTP.Disconnec...
uses UrlMon; function DownloadFile(Source, Dest: string): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0; except Result := False; end; end; if DownloadFile('http://www.borland.com/delphi6.zip, 'c...
delphi关于TRegEx.Split() 表达式中的括号将严重影响分割结果. -------------------------------------------------------------------------------- usesRegularExpressions; const FSourceText='1:AAA2:BBB3:CCC';//分隔符将有三部分...
代码中用到了IdAntiFreeze、idhttp、PerlRegEx和StringGrid。 type IdHTTP1: TIdHTTP; IdAntiFreeze1: TIdAntiFreeze; PerlRegEx1: TPerlRegEx; StringGrid1: TStringGrid;Edit1.Text:=s2;//可以设置成某内置变量，也可以手动输入...