RSS订阅 | 匿名投稿
您的位置:网站首页 > 网络

Delphi下idHTTP配合CookieManager获取Cookie

procedureTForm1.Button1Click(Sender:TObject);varCookies:TidCookies;i:integer;beginMemo1.Clear;idHTTP1.ProtocolVersion:=pv1_1;Memo1.Clear;IdHTTP1.ProtocolVersion:=pv1_1;IdHTTP1.Request.UserAgent:='Mozi…
类别:网络 标签: 作者:admin 日期:2018-04-06 13.44.38

Delphi下获取IE的UserAgent的方法

方法一:使用SHDocVw,MSHtml单元提供的一些方法利用浏览器的特性来获取。usesSHDocVw,MSHtml;functionGetUserAgent:string;varDoc:IHTMLDocument2;win:IHTMLWindow2;wb:TWebBrowser;beginResult:='';trywb:=TWebBrow…
类别:网络 标签: 作者:admin 日期:2018-04-06 13.43.49

Delphi获取网卡MAC地址的两种方法

1.使用Dll中的API函数:functionMacAddress:string;varLib:Cardinal;Func:function(GUID:PGUID):Longint;stdcall;GUID1,GUID2:TGUID;beginResult:='';Lib:=LoadLibrary('rpcrt4.dll');ifLib<>0thenbeginifWin32Platf…
类别:网络 标签: 作者:admin 日期:2018-04-06 13.34.12

Delphi利用Webbrowser登陆QQ群文档

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,OleCtrls,IEBrowser,Mshtml;typeTForm1=class(TForm)Label1:TLabel;Edit1:TEdit;Label2:TLab...
类别:网络 标签: 作者:admin 日期:2018-04-06 13.33.00

Delphi跨平台Http库的封装

最近打算写个小程序,希望跨平台,对于曾经深爱Delphi的我,毫无疑问的选择了Delphi,想写的程序里需要用到http请求,所以就基于自带的http库System.Net.HttpClient里的THTTPClient封装了一个异步的http请求类,其实…
类别:网络 标签: 作者:admin 日期:2018-03-14 09.46.13

Delphi跨平台TCP库的封装

Delphi的跨平台框架FireMonkey下的TCP组件默认自带INDY的,但我个人在使用某些特别的库的时候喜欢再封装一层,封装为简单的对外公开的接口,这里分享一下基于indy的封装的tcp的请求的库。以下代码基于Delphi10.2。{单…
类别:网络 标签: 作者:admin 日期:2018-03-14 09.45.18

Delphi最简化异步选择TCP服务器

网上Delphi的Socket服务器优良代码,实在少见,索性写个简化的异步Socket服务器,虽然代码较少,但却该有的都有了,使用的是异步选择WSAAsyncSelect,减少了编写线程的繁琐。可能会问,性能如何?当然使用窗体消息通…
类别:网络 标签: 作者:admin 日期:2018-03-06 20.25.07

delphi 谷歌api文本转换语音mp3文件

Stream:TMemoryStream;beginStream:=TMemoryStream.Create;tryIdHTTP1.Request.UserAgent:='Mozilla/5.0(Windows;U;WindowsNT5.1;en-US;rv:1.9.2.3)Gecko/20100401';IdHTTP1.Get(TIdURI.URLEncode('http://translate…
类别:网络 标签: 作者:admin 日期:2018-02-23 23.10.56

delphi THTTPClient PostURL

functionPostURL(constAURL:string;Parameters:TStrings):string;varHttpClient:THttpClient;HttpResponse:IHttpResponse;beginHttpClient:=THTTPClient.Create;tryHttpClient.ConnectionTimeout:=3000;HttpClient.R…
类别:网络 标签:THTTPClient 作者:admin 日期:2018-02-20 21.15.26

Delphi System.net.HTTPClient 下载

unitWMain;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Con****ols,Vcl.****s,&n...
类别:网络 标签: 作者:admin 日期:2018-02-20 20.46.03

delphi实现FTP上传与下载

Unit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,IdBaseComponent,IdComponent,IdTCPConnection,IdTCPClient,IdFTP;t...
类别:网络 标签: 作者:admin 日期:2018-02-15 17.21.07

Delphi中使用XmlHttp / XmlHttpRequest 避免缓存

在应用中,如果我们使用GET方式(POST提交方式无此问题)提交交易数据,插入记录内容操作时等,对于此类的实时性的数据必须避免缓存,但有时会遇到时浏览器缓存的干扰,导致取不到最新的数据。解决的办法有两种:1、…
类别:网络 标签: 作者:admin 日期:2018-02-11 13.01.34

delphi WINSOCK 域名获取远程服务器IP

USESWINSOCK;{$R*.dfm}functionGetIP(constHostName:string):string;varWSAData:TWSAData;R:PHostEnt;A:TInAddr;beginResult:='';//'0.0.0.0'WSAStartup($101,WSAData);R:=Winsock.GetHostByName(PAnsiChar(AnsiStri…
类别:网络 标签: 作者:admin 日期:2018-02-01 12.55.23

delphi 获取电脑进程网络连接IP端口

programProject1;{$APPTYPECONSOLE}{$R*.res}usesPsAPI,WinSock,Windows,SysUtils;constANY_SIZE=1;iphlpapi=...
类别:网络 标签: 作者:admin 日期:2018-01-31 18.35.45

delphi 获取本地网络连接

programProject1;{$APPTYPECONSOLE}{$R*.res}usesSystem.SysUtils,WinSock,Windows;constANY_SIZE=1;iphlpapi='iphlpapi.dll';TCP_TABLE_OWNER_PID_ALL=5;MIB_TCP_STATE:</div...
类别:网络 标签: 作者:admin 日期:2018-01-31 18.30.20

delphi indy smtp 发送邮件

delphiindysmtp发送邮件tryidsmtp2.Username:='abc123@163.com';//设置登陆帐号idsmtp2.Password:='abc123';//设置登陆密码idsmtp2.Host:='smtp.163.com';//设置SMTP地址ifidsmtp2.Connected=Falsethenidsmtp2.Conne…
类别:网络 标签:idsmtp 作者:admin 日期:2018-01-30 15.36.59

Delphi里实现多线程下载文件并且显示进度到界面

开发的过程中遇到文件下载的过程,我们都是想到要放在线程里处理,那么线程里进行文件下载,进度怎么展示呢?这对于很多不经常使用线程的人来说是个疑问,尤其是把进度通知到界面上这一步,所以这里分享一个简单的例…
类别:网络 标签: 作者:admin 日期:2018-01-30 09.32.50

DelPhi下用CDO发送邮箱实例(授权码CDO发送邮箱的解决办法)

相对用第三方控件,CDO发送邮件还是很简洁方便的注:CDONTS为CDO的子集,仅支持WinNT/Win2K,WinXP以上请用CDO;单元引用ComObj;procedureTForm1.Button1Click(Sender:TObject);varVCDOMessage:oleVariant;beginvCDOM…
类别:网络 标签: 作者:admin 日期:2018-01-28 19.07.45

Delphi Winsocks检测某个TCP端口师傅正在被使用

//CheckingifaTCPportisOpenusingDelphiandWinsocksusesWinsock;functionPortTCP_IsOpen(dwPort:Word;ipAddressStr:AnsiString):boolean;varclient:sockaddr_in;sock:Integer;ret:Integer;wsdata:WSAData;beginResul…
类别:网络 标签:Winsocks 作者:admin 日期:2018-01-25 17.55.12

delphi HTTP Header 详解

HTTP(HyperTextTransferProtocol)即超文本传输协议,目前网页传输的的通用协议。HTTP协议采用了请求/响应模型,浏览器或其他客户端发出请求,服务器给与响应。就整个网络资源传输而言,包括message-header和messag…
类别:网络 标签: 作者:admin 日期:2018-01-24 17.54.59