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

delphi TZoCInetChecker——一个检测网络连接的类

delphiTZoCInetChecker——一个检测网络连接的类本文给出一个封装了WinInet调用的类,用以异步检测某个Url是否能打开,从而实现网络是否连通的检测,代码以ObjectPascal写就。关键词:InternetOpen,InternetSetStat…
类别:网络 标签: 作者:admin 日期:2013-10-15 23.06.55

Delphi XE2 将域名转IP

DelphiXE2模拟键盘按键//在用友U6V3.2-【产品采购】打开计算器procedureT****1.SpeedButton1Click(Sender:T****);Varc:Hwnd;b:Byte;beginc:=FindWindow(nil,'用友U6V3.2-[产品采购]');//选择程序SetForegrou…
类别:网络 标签: 作者:admin 日期:2013-04-05 20.02.39

Delphi XE2 IDHTTP 获取UTF-8编码中文网页

DelphiXE2IDHTTP获取UTF-8编码中文网页procedureTForm1.SpeedButton1Click(Sender:TObject);<brstyle="widows:2;text-transform:none;background-color:#ffffff;text-indent...
类别:网络 标签: 作者:admin 日期:2013-04-05 20.00.48

Delphi 获取局域网内的机器名

unitmain;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ImgList,ExtCtrls,ComCtrls;typeTNetResourceArray=^TnetResource;TForm1=class(TForm)TreeView1:TTreeView;Im…
类别:网络 标签: 作者:admin 日期:2013-03-25 16.12.57

Delphi EmbeddedWB 遍历Frames并执行子frame的js脚本

varwDoc:IHTMLDocument2;wc:IHTMLWindow2;Dispatch:IDispatch;begin//遍历emWb:TEmbeddedWB的FramesifemWb<>nilthenbeginwDoc:=((emWb.DocumentasIHTMLDocument2));ifAssigned(wDoc)then&nb...
类别:网络 标签: 作者:admin 日期:2013-03-25 15.55.29

Delphi 获取网站验证码的图片

usesActiveX,ComObj;procedureTfrmMain.FormCreate(Sender:TObject);beginOleInitialize(nil);end;procedureTfrmMain.DomImg2Image(wb:TWebBrowser);vari:Integer;rang:IHTMLControlRange;s:string;begintry//pic是图…
类别:网络 标签: 作者:admin 日期:2013-03-25 15.54.05

delphi 获取某个页面所有的链接

USERMSHTMLprocedureTfrmWebEmail.btn5Click(Sender:TObject);varDoc:IHTMLDocument2;Len:Integer;item:OleVariant;all:IHTMLElementCollection;I:Integer;beginDoc:=ebdwbWeb.DocumentasIHTMLDocument2;all:=Doc.li…
类别:网络 标签: 作者:admin 日期:2013-03-25 15.49.05

delphi xe3里判断网络是否连接成功

delphixe3里判断网络是否连接成功unitUnit2;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Web.Win.Sockets;type…
类别:网络 标签: 作者:admin 日期:2013-03-08 22.12.28

delphi 获取内网所有IP地址

ConstMAX_ADAPTER_NAME_LENGTH=256;MAX_ADAPTER_DESCRIPTION_LENGTH=128;MAX_ADAPTER_ADDRESS_LENGTH=8;TypeTIPAddressString=Array[0..4*4-1]ofChar;PIPAddrString=^TIPAddrString;TIPAddrString=RecordNext:PIPAdd…
类别:网络 标签: 作者:admin 日期:2013-02-14 17.47.19

delphi DataSnap(MIDAS)三层架构中,常用事件及其触发顺序

delphiDataSnap(MIDAS)三层架构中,常用事件及其触发顺序要深刻理解TclientDataSet的两个重要属性:Data、Delta要深刻理解并区分开Tfield的4个重要属性:Value、OldValue、CurValue、NewValueTField的事件触发顺序:…
类别:网络 标签: 作者:admin 日期:2013-01-24 13.22.50

delphi 服务器群集解决方案

1.代理服务器维护客户专用的应用服务器的表结构(此表规划了负载平衡,每一个客户都有自己专用的应用服务器):用户编号,用户密码,应用服务器编号2.代理服务器维护应用服务器的表结构:应用服务器编号,应用服务器名称,应用…
类别:网络 标签: 作者:admin 日期:2013-01-24 13.17.20

delphi webservices传数据

delphiwebservices传数据//数据集数据转换为XMLfunctionReplaceString(AString:string):string;beginResult:=StringReplace(AString,'&','&amp;',[rfReplaceAll]);Result:=StringReplace(Result,'>','&g…
类别:网络 标签: 作者:admin 日期:2013-01-24 13.00.00

delphi webservices 字节数组 Base64编码

//delphiwebservices字节数组Base64编码unitEncodingUtil;interfaceusesSysUtils,Classes,Types,EncdDecd;functionBytesToBase64(constbytes:TByteArray):string;functionStreamToBase64(AStream:TStream):string;im…
类别:网络 标签:webservices 作者:admin 日期:2013-01-24 12.58.57

delphi webservices传base64字串

delphiwebservices传base64字串functionCompressStrToBase64(sStr:string):string;varM1:TMemoryStream;M0,M2:TStringStream;beginResult:='';ifsStr=''thenExit;M0:=TStringStream.Create(sStr);M1:=TMemoryStream.…
类别:网络 标签:webservices 作者:admin 日期:2013-01-24 12.58.23

delphi webservices传文件

webservices传文件有两种方法,一种是把二进制对象转成base64码,返回字符串,应该是最简单的方法,另外一种就是返回二进制数组TByteArray服务器:functionTFileSoap.getPic(outsize:integer):TByteArray;varbuf:TMe…
类别:网络 标签: 作者:admin 日期:2013-01-24 12.57.56

delphi webservices base64编码

delphiwebservicesbase64编码soap传输XML格式的字串,是明文,经过BASE64对XML格式字串编码后,不再是明文,增加传输的安全性。而且还可以彻底解决中文显示乱码的问题。所以WEBSERVICES可以考虑对所有的字串先进行BA…
类别:网络 标签:webservices 作者:admin 日期:2013-01-24 12.57.27

delphi DATASNAP双缓存下载文件

delphiDATASNAP双缓存下载文件procedureTFrmMain.btnUpdateFilesClick(Sender:TObject);begintryifAssigned(gEXEmm)thenFreeAndNil(gEXEmm);ifAssigned(gINImm)thenFreeAndNil(gINImm);gEXEmm:=TFileStream.Create(E…
类别:网络 标签: 作者:admin 日期:2013-01-24 12.50.53

Delphi IdHTTP访问路由里的Web

RStream:=TStringStream.Create('');self.IdHTTP1.Request.Host:='192.168.3.198';self.IdHTTP1.Request.UserAgent:='Mozilla/5.0(Windows;U;WindowsNT6.1zh-CN;rv:1.9.2.10)Gecko/20100914Firefox/3.6.10';self.IdH…
类别:网络 标签:IdHTTP 作者:admin 日期:2013-01-22 12.49.33

Delphi生成的WebService AppDebug的程序,编译时出错

Delphi生成的WebServiceAppDebug的程序,编译时出现:UnitSockAppwascompiledwithadifferentversionofIdTCPServer.TIdTCPServer。网上搜索的解决方法在这里。SOAPServerThedefaultDelphiSOAPServerapplicationwithWe…
类别:网络 标签:WebService 作者:admin 日期:2013-01-20 10.48.08

delphi 如何在WebService中获取客户端的IP地址

如何在WebService中获取客户端的IP地址一、如果在WebModule单元中,可用如下语句实现(这其实是WebBroker技术):Request.RemoteAddr;二、如果是ISAPI/CGI的WebService中,*impl.pas中是无法存取WebModule单元的(use…
类别:网络 标签:WebService 作者:admin 日期:2013-01-20 10.46.47