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

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

delphi中获取memo鼠标所在位置的行和列

functionGetLine(X,Y:integer):TPoint;varOldFont:HFont;Hand:THandle;TM:TTextMetric;Rect:TRect;beginHand:=GetDC(mmotest.Handle);tryOldFont:=SelectObject(Hand,mmotest.Font.Handle);tryGetTextMetrics(Hand,T…
类别:组件 标签: 作者:admin 日期:2018-01-02 16.01.25

delphi idHttp上传图给ASP完美解决

delphiidHttp上传图给ASP完美解决unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,IdBaseComponent,IdComponent,IdTCPConnection,IdTCPClient,IdHTTP,StdCtrls…
类别:组件 标签:idHttp 作者:admin 日期:2018-01-02 14.54.14

delphi TChart 的使用

最近开发要使用图表,Delphi里提供了图表开发的控件TChart,可惜帮助里没有DEMO代码,上网搜索了一下,竟然发现文章也少的可怜。没办法,自己丰衣足食,写代码试用,看帮助,读代码,搞了半天大概弄明白了TChart的使…
类别:组件 标签:TChart 作者:admin 日期:2018-01-02 14.47.50

Delphi WebBrowser 使滚动条滚动到底部

网上的代码不好使,下面是经过改正的:(webbrowser1.DocumentasIHTMLDocument2).parentWindow.scrollTo(0,((webbrowser1.DocumentasIHTMLDocument2).bodyasHTMLBody).scrollHeight);
类别:组件 标签: 作者:admin 日期:2018-01-02 14.13.34

Delphi直接插入法排序示例

Delphi直接插入法排序示例,将一数组按插入法排序的方法进行有序排列,可视化操作窗口,如下图所示,点击“排序”按钮即可实现排序功能。插入法排序Delphi插入法排序代码如下:unitUnit1;interfaceusesWindows,Messa…
类别:组件 标签: 作者:admin 日期:2018-01-02 11.00.36

Delphi中将DBGRID中的内容输出到WORD中

在使用DELPHI开发过程中发现网上有很多的开发朋友询问关于将DBGRID中的内容导出到一个WORD中的方法。想想可以帮帮大家,所以就自己写了一个。希望对大家的软件开发有帮助。下面是源代码。其中我使用了RZ的控件,用DE…
类别:组件 标签: 作者:admin 日期:2017-12-31 00.26.36

delphi 在RichEdit中插入GIF图片的方法

许多人在找RichEdit中插入GIF图片的方法,这里摘录一段我的一个程序的片段,程序中使用了QQ中的OleImage.dll,要先象安装OCX控件一样安装,安装后产生一ImageOleLib_TLB文件,要加入到工程中,并要安装rxRichEdit控件…
类别:组件 标签: 作者:admin 日期:2017-12-31 00.18.27

Delphi DbGrid鼠标滚屏

Delphi的DbGrid默认不支持滚屏。通过一下代码可以让DbGrid支持鼠标滚屏procedureNewGridWnd(varmessage:TMessage);OldGridWnd:TWndMethod;procedureTForm1.FormCreate(Sender:TObject);begin//支持鼠标滚动OldGridWn…
类别:组件 标签: 作者:admin 日期:2017-12-30 23.57.57

Delphi DBGrid 表格自适应宽度

(*//标题:数据网格自动适应宽度说明:使用DBGrid不可不看设计:Zswang日期:2002-03-04支持:wjhu111@21cn.com//*)///////BeginSourceusesMath;functionDBGridRecordSize(mColumn:TColumn):Boolean;{返回记录数据网格列显…
类别:组件 标签: 作者:admin 日期:2017-12-30 23.54.54

delphi强制WebBrowser控件使用指定版本显示网页

functionTFrmmain.WriteAppNameToReg:Boolean;varreg:TRegistry;sPath,sAppName:String;Sver:string;lenver:Integer;beginResult:=True;reg:=TRegistry.Create;tryreg.RootKey:=HKEY_LOCAL_MACHINE;...
类别:组件 标签:WebBrowser 作者:admin 日期:2017-12-29 08.33.51

Delphi WebBrowser 无法调用当前浏览器的版本

procedure****egedtIE.****Create(Sender:T****);beginWriteAppNameToReg;WebBrowser1.Navigate('C:\a.html');end;{--}{需要注意是GetNativeSystemInfo函数从WindowsXP开始才有,而IsWow64Process函数从Wind…
类别:组件 标签:WebBrowser 浏览器 作者:admin 日期:2017-12-29 08.23.40

delphi Memo加个PromptText

TEdit有PromptText属性,用来显示一个提示,又不影响输入。TMemo没有,在官方提了需求也没响应。实在没办法,自己加个。话不多说,上代码:typeTForm6=class(TForm)Memo1:TMemo;Button1:TButton;Button2:TButton;pro…
类别:组件 标签: 作者:admin 日期:2017-12-15 19.13.26

delphi 限制TEdit控件只能输入数字,小数点和负号

执行这些代码,Edit1只能输入数字、小数点和负号,负号和小数点只能输入一个,负号必须在最前,粘贴的数字必须完全正确,不能以限制Ctrl_V的使用为前提。type<spanstyle="color:#555555;fon...
类别:组件 标签: 作者:admin 日期:2017-12-15 18.25.03

delphi IDHttp Post

procedureTForm1.Button1Click(Sender:TObject);varT:TStringStream;ts:TStringList;SvrUrl,postUrl:string;beginSvrUrl:='http://app.25hours.cc:6077/webservice/25hours.asmx/StruUp';postUrl:='';ts:=TStringLis…
类别:组件 标签: 作者:admin 日期:2017-03-28 23.38.29

delphi IdHTTP中设置非标准头信息和读写cookie

fori:=0toIdHTTP1.Response.RawHeaders.Count-1dobeginifUpperCase(Copy(IdHTTP1.Response.RawHeaders[i],1,10))='SET-COOKIE'thenbeginsCookieTmp:=Trim(Copy(IdHTTP1.Response.RawHeaders[i],12,MAXINT));sCookieT…
类别:组件 标签: 作者:admin 日期:2017-03-28 23.12.56