网络
shandiantianying
这个作者很懒,什么都没留下…
展开
-
idhttp代理访问
idhttp1.ProxyParams.ProxyServer := FProxyHost; idhttp1.ProxyParams.ProxyPort := StrToInt(FProxyPort); idhttp1.ProxyParams.BasicAuthentication := true; idhttp1.ProxyParams.ProxyUsername原创 2013-04-28 23:46:09 · 882 阅读 · 0 评论 -
delphi 查找拨号设备是否成功
//判断拨号连接unit UnitRasEnumConnection;interfaceuses Windows,SysUtils;const RAS_MaxDeviceType = 16; //设备类型名称长度 RAS_MaxEntryName = 256; //连接名称最大长度 RAS_MaxDeviceName = 128; //设备名称最大长原创 2013-08-13 10:51:32 · 578 阅读 · 0 评论 -
idtcpserver流操作
var aFs : TFileStream......////// demo server empfängt einen stream und sendet einen stream zurück///procedure TStreamServerForm.IdTCPServer1Execute(AContext: TIdContext); var转载 2013-05-27 12:29:48 · 3700 阅读 · 0 评论 -
idTcpServer给idTcpClient发送消息
两者建立连接以后idTcpService发送消息if IdTcpServer1.active then begin ThreadList:=idTCpServicer1.ontexts.LockList; try for i:=0 to ThreadList.count-1 do begin TIdContext(T原创 2013-05-27 10:15:03 · 2081 阅读 · 0 评论 -
AContext.Connection.IOHandler.WriteLn中文乱码问题
在WriteLn,Readln中分别加上TEncoding.UTF8可解决发送端 AContext.Connection.IOHandler.WriteLn('WelCome ' + AContext.Binding.IP,TEncoding.UTF8);接收端AContext.Connection.IOHandler.ReadLn(TEncoding.UTF8);原创 2013-05-27 10:08:27 · 2967 阅读 · 0 评论 -
idhttp断点下载
procedure TForm1.btn2Click(Sender: TObject);var tStream: TFileStream; aFile: string; url:string;begin // Http方式下载 FAbortTransfer:=false; aFile := 'c:\aaa.rar'; if FileExists(a原创 2013-05-17 00:35:00 · 843 阅读 · 0 评论 -
Delphi控件IE窗口打开网页
use comobj;procedure TForm1.btn1Click(Sender: TObject); procedure OpenInIE(aURL: string); //need uses ComObj; var IE: Variant; begin IE := CreateOleObject('InternetExplorer.Appli原创 2013-05-02 23:41:08 · 778 阅读 · 0 评论 -
Delph最简单i获取外网IP
uses idhttp;var idhttp:Tidhttp;begin idhttp:=TIdHTTP.Create(nil); ShowMessage(idhttp.Get('http://www.3322.org/dyndns/getip')); idhttp.Free;end;原创 2013-04-17 14:48:47 · 686 阅读 · 0 评论 -
idhttp自动登录网站
uses winlnet;var PostList: TStrings; i: Integer; CookieS: string;begin PostList := TStringList.Create;try PostList.Add('action=checkOnline'); PostList.Add('loginName=' + edtuse原创 2013-04-19 10:50:08 · 1286 阅读 · 0 评论