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

DELPHI 代码查询一个 IP 地址的归属地

网上搜了一下资料,发现公开的查询API有几个:1.新浪的。访问了,没有结果返回;2.腾讯的。访问了,返回结果是这个页面已经找不到。3.淘宝的,能用。淘宝的API接口:http://ip.taobao.com/service/getIpInfo.php?ip=…
类别:网络 标签: 作者:admin 日期:2019-04-15 14.02.17

DELPHI XE 与PLC通讯(INTCPSERVER 二进制)

一、与PLC通讯采用TCPSERVER方式二、配合PLC发送二进制数据。vari:integer;RecClient:TIdContext;buf:TIdBytes;beginSetLength(buf,2);buf[0]:=ord('W');buf[1]:=BintoInt(Edit7.Text);withc_tcp_list_all.LockListd…
类别:网络 标签:PLC 作者:admin 日期:2019-04-13 09.28.18

Delphi通过POST传递参数给PHP

Delphi代码************************************************************************************************************************************unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,…
类别:网络 标签: 作者:admin 日期:2019-03-24 14.00.42

Delphi 如何GET/POST 调用HTTP请求

**HTTP请求的GET方法**procedureGetDemo;varIdHttp:TIdHTTP;Url:string;//请求地址ResponseStream:TStringStream;//返回信息ResponseStr:string;begin//创建IDHTTP控件IdHttp:=TIdHTTP.Create(nil);//TStringStream对…
类别:网络 标签: 作者:admin 日期:2019-03-24 13.52.38

delphi post数据与对应的接收方式

前几天研究了下post的方式和服务器的接收处理,环境delphi10.1,首先说客户端post数据,采用idhttp,有两种方式,一种是字符串,一种是流如下:1.psot字符串的方式vars:string;stm:TStringStream;//接收返回内容send…
类别:网络 标签: 作者:admin 日期:2019-03-24 13.47.11

DELPHI 代码查询一个json IP 地址的归属地

procedureTFmMain.BtnIPQueryClick(Sender:TObject);varS:string;JSONStr:string;country,area,region,city:string;begin//EditIP是输入的要查询的IP地址S:='http://ip.taobao.com/service/getIpInfo.php?ip=';JSONS…
类别:网络 标签: 作者:admin 日期:2019-03-24 13.01.34

delphi通过Idhttp和php交互

最近需要做delphi和php交互的方法;就把这2个方法写了下一,Get方法constUrl='http://www.delphitop.com';procedureTForm1.Button1Click(Sender:TObject);varstream:TStringStream;idHttpObj:TIdHTTP;begintrystream…
类别:网络 标签: 作者:admin 日期:2019-03-08 22.05.54

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