最近透過政府資料開放平台OpenData抓取資料時，發現會出現302的錯誤。 而HTTPStatus(狀態)3XX指的是重新導向(Redirection)的問題，在IdHttp中就要將 IdHTTP1.HandleRedirects:=True;...
Delphi有很好用的DBNavitor元件，美中不足的是按钮的样式稍嫌不足！那是否可以仿DBNavigator的方式？ 笔者提供一个简单的范例给大家 :) delphi_simulate_dbnavigator 一、自订首笔/上笔/下笔/末笔...
Delphi判断TImage是否为空： 1）非空Image1.Picture.Graphicnil 2）为空Image1.Picture.Graphic=nil 注意不能用Image1.Picture来判断。 Image1.Picture.Graphic即可直接赋值也可用Assign。 Image1.Picture不能直接赋值，...
Delphi禁用TEdit右键菜单及复制粘贴简的单方法如下： 1)设置TEdit的ReadOnly属性为True Edit1.ReadOnly:=True; 2)在TEdit的OnContextPopup中使Handled:=True procedureTFrmReport.Edit1ContextPopup(Sender:TObject;MousePos:TP...
Delphi XE + Indy 10.5.7，限速不是很准确，不过还凑合吧 分别拖一个 idhttp 和IdInterceptThrottler 组件到窗体， 设置 idhttp 的IdIntercept 为IdInterceptThrottler1，然后设置 IdInterceptThrottler1 的属性： v...
XE6的Switch元件增加了多國語系的功能，不過很遺憾的是它在中文的部份只認得zh，不會分辨zh_CN、zh_TW、zh_SG跟zh_HK。但是幸好Delphi是可以自己修正原始碼的:) 將ProgramFilesEmbarcaderoStudio14....
修改WebBrowser的内容 很多方法都可以修改WebBrowser的内容。比如说修改innerHTML、以流方式修改。 以流方式就不说了，网上很多代码。直接修改innerHTML的方法很简单，但是有个缺点，修改后...
1.获得网页中变量值 htm中lt;scriptgt;varcurrID=123lt;/scriptgt; 程序中可以这么调用id:=Form1.WebBrowser1.OleObject.Document.script.currID 值得说明的是,变量可以是javascript定义的,也可以是vbscrip 1.获得网页...
uses VCLUnZip, VCLZip; function ComPressFile(dstFile,srcFile:string):Boolean; var nbsp; vclzip:TVCLZip; begin nbsp; Result:=False; nbsp; vclzip:=TVCLZip.create(nil); nbsp; try nbsp;nbsp;nbsp; with vclzip do nbsp;nbsp;nbsp; begin nbsp;nbsp;n...
procedure TForm1.Button1Click(Sender: TObject); var s : string; begin combobox1.Clear; s := '01'; combobox1.Items.AddObject('北京',TObject(s)); s := '02'; combobox1.Items.AddObject('天津',TObject(s)); s := '03'; combobox1.Items.AddObjec...