12 2013 档案
摘要:EmbarcaderoRADStudioXE5Version19.0.13476.4176:http://altd.embarcadero.com/download/radstudio/xe5/delphicbuilder_xe5_win.iso试用序列号:JNFL-EBQDUH-T6NESD-M2NNHNFK-BCN8NN-78N53D-H4RSHNFJ-DPADCW-BDWCFU-FPNNQDF4-CTSDHV-RDFCFE-FEAN破解补丁:http://pan.baidu.com/share/link?shareid=2283257532&uk=1241659094破解方法:1
阅读全文
摘要:procedure TForm1.Button1Click(Sender: TObject);var HTTP: TidHTTP; html, s: string; i: integer;begin HTTP := TidHTTP.Create(nil); try HTTP.HandleRedirects := True; HTTP.AllowCookies := True; HTTP.Request.CustomHeaders.Values['Cookie'] := 'abcd';//修改Cookie 抓包可见 ...
阅读全文
摘要:通过 idhttp 带进度条上传演示一下,下载和上传原理差不多,说明一下下面例子中的的idhttp 是动态创建的第一步:添加一个StatusBar或者gauge 进度条,这2个都可以。我用的是 statusbar ,因为这个好看,属性保持默认就可。第二步:获取上传进度需要填写idhttp中的onwork,onworkbegin,onworkend,由于idhttp是动态创建的所以需要覆盖一下。在主窗体类中添加如下几个公有函数(函数名可随意),记住一定要是一个类的方法,否则报错。[delphi] view plaincopyprint?procedure idhttp_onwork(ASende
阅读全文
摘要:取得网页的源码内容的函数以及调用方法供大家参考:program geturl;useswininet,windows;//取网页内容function StrPas(const Str: PChar): string;beginResult := Str;end;function GetWebPage(const Url: string):string;varSession,HttpFile:HINTERNET;szSizeBuffer:Pointer;dwLengthSizeBuffer:DWord;dwReserved:DWord;dwFileSize:DWord;dwBytesRead:D
阅读全文
摘要:if语句-------------------------------------------------------------------------------------------------------------------------------------------------其实delphi中的IF语句和VB中的语句有点相像,都是IF .... THEN...不过DELPHI中的不同点就是语句的前后需要加个BEGIN,END.这个就相当于JAVA中的{}吧,呵呵。下边写几个IF语句的例子":1、IF.. THENif 1=1 thenbegin//这里写执行语句
阅读全文
摘要:var Form1: TForm1;constversionthis:double=2.24;implementation{$R *.dfm}uses shellapi;procedure TForm1.Button1Click(Sender: TObject);varversion:string;beginend;procedure TForm1.FormCreate(Sender: TObject);varversion,s:string;p:integer;ver:double;begins:=idhttp1.Get('http://blog.sina.com.cn/s/blog
阅读全文
摘要:一、IDHTTP的基本用法IDHttp和WebBrowser一样,都可以实现抓取远端网页的功能,但是http方式更快、更节约资源,缺点是需要手动维护cook,连接等IDHttp的创建,需要引入IDHttpprocedure InitHttp();begin http := TIdHTTP.Create(nil); http.ReadTimeout := 30000; http.OnRedirect := OnRedirect; http.Request.Accept := 'image/gif, image/x-xbitmap, image/jpeg, image/pj...
阅读全文
摘要:不在界面上用控件动态创建idhttp,IdAntiFreeze来用var IdHTTP: Tidhttp; IdAntiFreeze: TidAntiFreeze;begin IdAntiFreeze:=TIdAntiFreeze.Create(nil); IdAntiFreeze.OnlyWhenIdle:=False; IdHTTP:=Tidhttp.Create(nil); try StrHtml:=IdHTTP.Get(PChar('http://www.vdj8.com/')); finally IdHTTP.Disconnect; IdHTTP...
阅读全文