安云网

CodeGear RAD Studio 2007 最终版(With Update4) v11.0.2902.10471 http://altd.codegear.com/download/radstudio2007/CodeGearRADStudio2007_Dec2007.iso Embarcadero RAD Studio 2009 最终版(With Update1-4) http://altd.embarcadero.com/download/Delphi_C++Builder2009/Delphi...

listbox删除 删除选中的某个：procedure TForm1.Button1Click(Sender: TObject); var i:integer;begin i:=0; while ilistbox1.Count do//删除掉前一个后，下一个会上移，所以用while if listbox1.selected[i] then listbox1.Items.delete(i) else i:=i+1;end; 删除listbox中所有的内容：...

1 连接远程服务器 procedure Connect(AAutoLogin: boolean; const ATimeout: Integer); 2 改变目录 procedure ChangeDir(const ADirName: string); 3 下载 procedure Get(const ASourceFile: string; ADest: TStream; AResume: Boolean); overload; procedure Get(const ASourceFile: stri...

最近，用到Delphi第三方控件EmbeddedWB，浏览器控件,比较不错，比Delphi自带的Webbrowser强悍很多，好像就是在Webbrowser上的二次开发。把EmbeddedWB的安装方法在这里说下。 EmbeddedWB安装方法： 1.下载压...

1.获得网页中变量值 htm中script var currID=123/script 程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID 值得说明的是,变量可以是javascript定义的,也可以是vbscript定义的,如果Webbrowser1中找不到该变量,调用会触发一个异常事件...

procedure TForm1.LoadPictureClick(Sender: TObject); // 上传图片 begin OpenPictureDialog1.Title := 打开图片; if OpenPictureDialog1.Execute then begin Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); end; end; procedure TForm1.saveClick(Sender: TObject); /...

http://blog.csdn.net/baronyang/article/details/7485258...