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

delphi TNetHttpClient上传文件

Delphi如何实现multipart/form-data方式上传文件呢?以前我们是使用indy,也就是用idHttp加TIdMultiPartFormDataStream来实现;本着研究精神,今天看了一下TNetHttpClient的定义,发现有个functionPost(constAURL:st…
类别:组件 标签:TNetHttpClient 作者:admin 日期:2018-01-08 20.44.13

delphi TNetHTTPCleint提交JSON串

这里,我们拿友盟的推送接口做个测试,它是要求同时提交get参数和post参数,post参数内容为json串,需要引用DateUtils和md5算法单元,代码如下:procedureT****1.Button3Click(Sender:T****);varvHttp:TNetHTTPClien…
类别:组件 标签:TNetHTTPCleint 作者:admin 日期:2018-01-08 20.17.06

delphi IdTCPClient和IdTCPServer主要属性

IdTCPClient属性1:IOHandler如果有相应的输入/输出操作,那么IOHandler相对应的组件或接口将提供一个虚拟/抽象的输入/输出接口给相应的网络连接2:Intercept如果有一个网络连接正在使用,那么Intercept提供的组件或接口…
类别:组件 标签: 作者:admin 日期:2018-01-07 16.07.40

delphi indy 10.5.7的数据发送接收的用法

发送结构体:TMyData=recordid:Integer;Name:Array[0..20]ofChar;Sex:Array[0..10]ofChar;Age:Byte;Address:Array[0..256]ofChar;UpdateTime:double;end;//发送结构体:procedureTForm2.Button2Click(Sender:TObject…
类别:组件 标签: 作者:admin 日期:2018-01-07 16.05.33

delphi idhttp的用法

idhttp的用法1)POSTfunctionPostMethod(http:TIDhttp;URL:string;Params:TStringList):string;varRespData:TStringStream;beginRespData:=TStringStream.Create('');trytryifhttp=nilthenExit;Http.Post(URL,Params…
类别:组件 标签:idhttp 作者:admin 日期:2018-01-07 16.00.42

delphi获取webbrowser中的元素的值

procedureTForm1.btn1Click(Sender:TObject);vardoc:olevariant;str:string;begindoc:=wb1.Document;str:=doc.all.xx.value;ShowMessage(str);end;
类别:组件 标签:webbrowser 作者:admin 日期:2018-01-07 15.09.14

delphi KbmMW安装

系统环境及相关软件版本:Windows764位,DelphiXEVersion15.0.3953.35171,Indy10.5.7<pstyle="margin:10pxauto;padding:0px;color:#393939...
类别:组件 标签:KbmMW 作者:admin 日期:2018-01-05 17.19.20

Delphi IdHttp组件+IdHttpServer组件实现文件下载服务

usesidhttp,IdHTTPServer;//idhttp组件提交下载请求procedureTVodService.Button3Click(Sender:TObject);varh:TIdhttp;MyStream:TMemoryStream;url:string;beginMyStream:=TMemoryStream.Create;h:=Tidhttp.Create(n…
类别:组件 标签: 作者:admin 日期:2018-01-05 14.07.40

Delphi IDFtp用法

如果在同一电脑上运行多个IdHTTPServer实例,IdHTTPServer使用时候,一定要注意“DefaultPort”属性,其实真正绑定端口是这个属性决定的,所以希望IdHTTPServer绑定在那个端口上,应该把要绑定的端口设置在“Default…
类别:组件 标签:IdHTTPServer 作者:admin 日期:2018-01-05 14.07.12

delphi idHTTP最简洁的修改和取得Cookie例子

procedureTForm1.Button1Click(Sender:TObject);varHTTP:TidHTTP;html,s:string;i:integer;beginHTTP:=TidHTTP.Create(nil);tryHTTP.HandleRedirects:=True;HTTP.AllowCookies:=True;HTTP.Request.CustomHeaders.Val…
类别:组件 标签:idHTTP 作者:admin 日期:2018-01-03 23.19.05

Delphi IdHTTP 设置cookie 和访问后读取Cookie 值

procedureTForm1.btn1Click(Sender:TObject);varIdHTTP:TIdHTTP;mstrCookie:string;Cookies:TIdCookieManager;i:Integer;beginIdHTTP:=TIdHTTP.Create(nil);IdHTTP.Request.UserAgent:='';mstrCookie:='aaa=5555&…
类别:组件 标签:IDhttp 作者:admin 日期:2018-01-03 23.17.34

DELPHI TWebbrowser 响应回车键(EWB响应正常,无需额外代码)

增加一个ApplicationEvents,在Message事件中如下代码(WB看自己的WEBBROWSER控件命名)procedureTFrmMain.ApplicationEvents1Message(varMsg:tagMSG;varHandled:Boolean);//专为IE内核WEBBROWSER响应回车键constStdKe…
类别:组件 标签:TWebbrowser 作者:admin 日期:2018-01-03 23.12.51

delphi 给Label1字加边的又一个算法

procedureTForm1.Button1Click(Sender:TObject);vartc:TCanvas;i,j:integer;color:TColor;egcolor:TColor;begintc:=Label1.Canvas;//Label1上面必须有字,而且是黑色的egcolor:=RGB(0,255,0);fori:=1toLabel1.Width-…
类别:组件 标签: 作者:admin 日期:2018-01-03 22.41.03

delphi 从TWebBrowser WebBrowser得到全部html源码

网上查询出很多方法,归结起来有两种1、使用IPersistStreamInit接口实现,函数名都是functionGetHtml(constWebBrowser:TWebBrowser):string;这个函数确实可以得到全部的html源码,但是里面用到了hHTMLText:=GlobalAl…
类别:组件 标签:TWebBrowser 作者:admin 日期:2018-01-03 22.37.08

Delphi 从 TWebBrowser中获得当前输入处的链接

varunsubscribeStr:string;ovSelection:OleVariant;innerDom,ovTextRange,nnode:OleVariant;beginovSelection:=Edit.doc.selection;//获得选择对象ovTextRange:=ovSelection.createRange;//createaTextRangefromthec…
类别:组件 标签:TWebBrowser 作者:admin 日期:2018-01-03 22.29.56

delphi 中 使用 TIdHTTP 提交Post数据

varfhttpRequest:TIdHTTP;PostData:TStringStream;tmpStr:String;beginfhttpRequest:=TIdHTTP.Create(nil);withfhttpRequestdobeginProtocolVersion:=pv1_1;AllowCookies:=True;ProxyParams.BasicAuthentication:=Fa…
类别:组件 标签: 作者:admin 日期:2018-01-03 22.29.16

delphi TWebBrowser出现 Method pasteHTML not supported by automation object 解决方法

先看下面的源码,在TWebBrowser当前编辑位置插入一个图片,是通过源码的方法插入的。varurlStr:string;ovSelection:OleVariant;ovTextRange:OleVariant;tmpStr:string;beginurlStr:='http://www.1and1-mail.com/imgv…
类别:组件 标签: 作者:admin 日期:2018-01-03 22.28.36

delphi tidhttp 超时设置无效的解决方法

现在delphi都发布到xe8了,tidhttp还有缺陷,那就是超时设置在没有网络或者连不上服务器的时候是无效的,不管你设置为多少都要10-20秒。connectTimeout和readTimeout都试过了,网上找了一圈,有人提出修改源码,我没…
类别:组件 标签:tidhttp 作者:admin 日期:2018-01-03 22.08.08

delphi (User Agent) of a TWebBrowser

constDISPID_AMBIENT_USERAGENT=-5513;typeTWebBrowser=class(SHDocVw.TWebbrowser,IDispatch)privateFUserAgent:string;procedureSetUserAgent(constValue:string);functionInvoke(DispID:Integer;constIID:TGUID;L…
类别:组件 标签: 作者:admin 日期:2018-01-02 17.46.45

delphi中实现控件的拖拽

提示:可以添加一个布尔来控制可否拖动的状态,这里提供所有都能拖动的方法。1procedureTForm1.FormMouseDown(Sender:TObject;Button:TMouseButton;2Shift:TShiftState;X,Y:Integer);3begin4ReleaseCapture;5SendMes…
类别:组件 标签: 作者:admin 日期:2018-01-02 17.33.07