随笔分类 - DELPHI
摘要: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...
阅读全文
摘要:不是由BORLAND提供的组件叫第三方组件:安装方法:南山古桃(nsgtao)首先提醒一下:最好把要安装的文件先复制到Delphi安装目录的Lib目录下再执行下面的操作!就目前常见的各种形式的组件的安装方法介绍一下。 (**** 转载敬请注明-本文出处:南山古桃(nsgtao)的百度空间:http://hi.baidu.com/nsgtao/ ****)1 只有一个DCU文件的组件。DCU文件是编译好的单元文件,这样的组件是作者不想把源码公布。一般来说,作者必须说明此组件适合Delphi的哪种版本,如果版本不对,在安装时就会出现错误。也正是因为没有源码,给使用者带来了不便,那就是一旦Delph
阅读全文
摘要:JSON相对XML轻量了很多,考虑到以后WEBSERVICE可以通过JSON实现DELPHI的程序和WEBSERVICE进行交互,今天就想去看一下DELPHI如何解析JSON. 比如:如何将: {"metaData":[{"a":"哇","b":"d"},{"a":"哇","b":"d"}],"success":true,"totalProperty":4} 这个JOSN字符串
阅读全文
摘要:一. 工具选择 DELPHI本身没有处理正则表达式的库,只能找第三方库。在选择方面,我的标准是: 1. 不必向开发环境注册控件 2. 接口简单 3. 符合主流的perl式正则语法 4. 专业,至少应该有个看上去专业的专门网站 5. 免费 目前符合以上标准, 比较好的RegEx类库有TRegExpr ( http://www.regexpstudio.com/...
阅读全文
摘要:官方网站: http://www.regular-expressions.info/delphi.html 直接下载: http://www.regular-expressions.info/download/TPerlRegEx.zip 安装方法: 1、先把解压的 TPerlRegEx 文件夹放一个合适的地方, 我放在了 Delphi 的 Imports 目录中. 2、目...
阅读全文
摘要:关键词:IdHTTP ,RegExpr,正则表达式,链接 目的:取得Web页面中的链接及链接文字。 操作: 1.使用IdHTTP获取网页的源码。 2.使用RegExpr定义正则表达式,获取网页中的链接及链接文字。 实现方法如下: //使用正则表达式,匹配网页源码,抽取内容。 procedure GetLinkFromHtml(Const SourceHtmlTxt,Patt...
阅读全文
摘要:代码中用到了IdAntiFreeze、idhttp、PerlRegEx和StringGrid。 type IdHTTP1: TIdHTTP; IdAntiFreeze1: TIdAntiFreeze; PerlRegEx1: TPerlRegEx; StringGrid1: TStringGrid; Edit1.Text:=s2;//可以设置成某内置变量,也可以手...
阅读全文
摘要:◆Delphi多线程编程之四 线程安全和VCL ◆(乌龙哈里2008-10-12) (调试环境:Delphi2007+WinXPsp3 例程:Tst_Thread4.dpr) 由于Delphi VCL在设计成大部分在主线程访问,因而,当多个线程同时访问VCL时,就非安全。 其实线程的安全性如上面那个读全局变量来说,那个全局变量是非线程安全的,因为当另外一个线程访问它...
阅读全文
摘要:(调试环境:Delphi2007+WinXPsp3 例程:Tst_Thread5.dpr) 前面的例子都是同类线程的不同实例来读写全局变量,用临界区、互斥等来锁住同段代码。现在碰到的问题是,A,B两个不同类型的线程,如何安全地来读写全局变量。 unit Tst_Thread5U; interface uses Windows, Messages, SysUtils, Variants...
阅读全文
摘要:开始研究最重要的多线程读写全局数据了,结合书上的例子,我修改成下面的情况:unit Tst_Thread3U;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Button2: TButton; Button3: TButton;procedure Button1Click(Sender: TObject);proce
阅读全文
摘要:一、线程的局部变量threadvar type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { P...
阅读全文
摘要:Google搜到线程的例子都是那个画图的,猛禽那个多线程又太过高深(对于我这一滴水来说),万一老师开线程的博还是要等。只有自己看着《Delphi5开发人员指南》中文版PDF一步一步来弄懂些初步的东西,到时候可以跟上万一老师的课程。 一、创建: 1、直接书写: unit Unit1; interface uses Classes; TMyThead = class(T...
阅读全文
摘要:delphi多线程 2009-10-29 23:08 1-1 多线程的基本概念 多线程带来如下好处:(自己阅读) 1)避免瓶颈; 2)并行操作; 3)提高效率; 在多线程中,通过优先级管理,可以使重要的程序优先操作,提高了任务管理的灵活性。 另一方面,在多CPU 系统中,可以把不同的线程在不同的CPU 中执行,真正做到同时处理多任务(Win 98 只是模拟的,而W...
阅读全文