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

利用WebBrowser自动填写网页上的表单

利用WebBrowser自动填写网页上的表单
类别:组件 标签: 作者:admin 日期:2019-04-13 11.07.04

DELPHI SPEEDBUTTON按钮动态加载图片(从IMAGE和IMAGELIST)

DELPHISPEEDBUTTON按钮动态加载图片(从IMAGE和IMAGELIST)一、直接上代码procedureTForm2.Button2Click(Sender:TObject);varbmp:Tbitmap;Stream:TMemoryStream;beginbmp:=Tbitmap.Create;//ImageList1.GetBitmap(1,…
类别:组件 标签: 作者:admin 日期:2019-04-13 09.36.11

Delphi GridPanel Percent百分比设置

DelphiGridPanelPercent百分比设置可能很多人都有这个困扰,为什么每次设置一个百分比后,值都会改变,只有设置成absolute​才会正常,经摸索发现,是因为精度引起,设置percent的时候,需要将精确到多个小数位…
类别:组件 标签: 作者:admin 日期:2019-04-13 08.45.23

Delphi高亮显示TRichEdit当前行

vargStart,gLength,gCol:Integer;procedureSetRichEdit(aRichEdit:TRichEdit);varfRow,fCol:Integer;fStart,fLength,tStart:Integer;beginfRow:=aRichEdit.CaretPos.X;fCol:=aRichEdit.CaretPos.Y;ifgCol=fColthenEx…
类别:组件 标签: 作者:admin 日期:2019-04-08 13.51.15

delphi checklistbox用法

在Delphi中checklistbox中高亮选中(不论是否Checked)能够进行操作么?删除,上下移动等等删除:CheckListBox.DeleteSelected;上下移:CheckListBox.Items.Move删除用CheckListBox1.Items.Delete(Index);上下移动用…
类别:组件 标签: 作者:admin 日期:2019-03-10 22.14.44

delphi HTTP 常见异常状态及Delphi IDHTTP 控件处理方式

以下部分为网上查找,部分为工作中整理200:请求成功202:请求被接受,但处理尚未完成302:请求到的资源在一个不同的URL处临时保存处理方式:重定向到临时的URL(IDHTTP处理方式:IdHTTP.HandleRedirects:=True;)404:…
类别:组件 标签: 作者:admin 日期:2018-04-14 22.55.18

delphi Webbrowser同时访问两个网址导致程序出错的解决办法

有些时候我们用Webbrowser,在一些配置不好的机器上,访问网页会比较卡,特别是自动提交表单的时候。这时,如果一先一后访问两个网址或两个表单,而正好这时机器卡了一下。那这两个网址就变成一起传递给机器,这会造…
类别:组件 标签: 作者:admin 日期:2018-04-06 13.36.49

Delphi10.2.3实现http异步下载

随着Delphi10.2.3的发布,随之带来更稳定、更完善的版本。今天借官方的例子,解读一下如何实现Http异步下载并显示下载进度。使用的核心组件是THttpClient,首先建立一个THttpClient对象FClient,用他来执行下载任务。…
类别:组件 标签: 作者:admin 日期:2018-03-29 23.29.13

delphi 图像自动调整显示

varTempWidth:longint;begin&...
类别:组件 标签: 作者:admin 日期:2018-03-17 23.01.12

Delphi WebBrowser 去除滚动条和边框

去掉滚动条只对某些网页起作用,比如百度的页面就不知道为什么去不掉。下面是用Webbrowser显示图片时去掉边框和滚动条的方法,也适用于部分网页,实际上就是设置网页CSS。在DocumentComplete事件中加入下列代码即可。…
类别:组件 标签: 作者:admin 日期:2018-03-14 21.35.40

delphi RichEdit文字背景色的处理

usesRichEdit;procedureRichEditSetBackColor(//设置RichEdit文字背景色mRichEdit:TRichEdit;//Rich编辑框mBackColor:TColor//背景色);varvCharFormat2:TCharFormat2;beginifnotAssigned(mRichEdit)thenExit;FillCha…
类别:组件 标签: 作者:admin 日期:2018-03-14 11.39.22

delphi RichEdit选中文字右键菜单的实现

procedureTForm1.RichEdit1MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);varvPoint:TPoint;beginifButton<>mbRightthenExit;vPoint:=Point(X,Y);X:=SendMessage(RichEdit1.Handle,…
类别:组件 标签: 作者:admin 日期:2018-03-14 11.38.50

delphi RichEdit中插入带背景色文本的一种思路

usesRichEdit;functionTextToRtf(//将文本处理为RTF格式mText:WideString//输入文本):WideString;//返回处理后的RTF文本varI:Integer;beginResult:=StringReplace(mText,#13#10,#10,[rfReplaceAll]);forI:=Length(mT…
类别:组件 标签: 作者:admin 日期:2018-03-14 11.38.16

delphi获得webbrowser中的html文本

procedureTForm1.btn1Click(Sender:TObject);vardoc:olevariant;str:string;begindoc:=wb1.Document;//获取元素的值{str:=doc.all.xx.value;ShowMessage(str);}//写入htnl{doc.clear;doc.write('新的html...
类别:组件 标签: 作者:admin 日期:2018-03-13 21.21.41

Delphi PageControl.TTabSheet与DriveComboBox.items同步

procedureTForm1.Button1Click(Sender:TObject);VarX,I,Y:integer;cText:String;bNext:Boolean;T:TTabSheet;beginForI:=0toSelf.DriveComboBox1.Items.Count-1dobegincText:=DrivecomboBox1.Items.Strings[i];bNext:…
类别:组件 标签: 作者:admin 日期:2018-03-12 22.08.45

delphi idftp ditDirectory未定义

------解决方案--------------------usesIdFTPList;------解决方案--------------------<brstyle="margin:0px...
类别:组件 标签: 作者:admin 日期:2018-03-10 14.18.56

delphi INDY 10TIdFTP中的DirectoryListing使用

INDY10TIdFTP中的DirectoryListing使用。原来在9。0里直接可以用DirectoryListing这个属性的,但到了10。0就不行了,但用list(strings,'',false)可以把文件列表取出来,后来在网查了一下,在国外的一个网站上发现了一…
类别:组件 标签: 作者:admin 日期:2018-03-10 13.07.50

IdFTP无法设置TransferType属性

IdFTP无法设置TransferType属性IdFTP无法设置TransferType属性时,在程序单元的user部分加入IdFTPCommon即可.无法设置为IdFTP.TransferType:=ftASCII;或IdFTP.TransferType:=ftBinary;时使用.
类别:组件 标签: 作者:admin 日期:2018-03-10 12.04.39

delphi IDFTP 使用被动连接

delphiIDFTP使用被动连接idftp.passive:=true;//使用被动连接
类别:组件 标签: 作者:admin 日期:2018-03-10 12.00.20

delphi idftp

//连接FTPvari:integer;tr:Tstrings;IdFTP1.Quit;tr:=TStringlist.Create;IdFTP1.Host:=hostTxt.Text;//FTP服务器地址172.20.16.76IdFTP1.Port:=StrToInt(PortTxt.Text);//FTP服务器端口号9500IdFTP1.Username:=User…
类别:组件 标签: 作者:admin 日期:2018-03-10 11.59.38