随笔分类 -  Delphi技术

摘要:bool是LongBool类型。 Delphi中定义了四种布尔类型:Boolean,ByteBool,WordBool和LongBool。后面三种布尔类型是为了与其他语言兼容而引入的,一般情况下建议使用Boolean类型。 这四种类型的布尔值占用内存的数量如下: Boolean 1 Byte Byt 阅读全文
posted @ 2010-02-18 21:58 猪悟能 阅读(1884) 评论(0) 推荐(0)
摘要:内存块赋值函数。 定义:Procedure FillChar ( Var X; Count : Longint; Value : Char or Byte); 意为:对一个Char类型的数组X进行Count次赋值,当Value为Char类型时,直接赋值;若Value为Byte类型时,将Value作为 阅读全文
posted @ 2010-02-18 16:14 猪悟能 阅读(571) 评论(0) 推荐(0)
摘要:var s:string; pc:pchar; pb:pbyte; ac:array[1..100] of char; ab:array[1..100] of byte; i:integer; begin s:='this is a test'; pc:=pchar(s); //string->pchar pb:=pbyte(pc); //pchar->pbyte for i:=1 t... 阅读全文
posted @ 2010-02-16 22:00 猪悟能 阅读(2285) 评论(0) 推荐(0)
摘要:要把一个Form编译进DLL,这个Form必须要自己创建和释放。由于源代码分为几个部分,这里写下dll的关键代码:function showform(handle1:THandle):Boolean;stdcall;var form3:TForm1;begin Result:=True; form3:=TForm1.Create(nil); Application.Handle:=handle1;... 阅读全文
posted @ 2010-02-16 19:48 猪悟能 阅读(401) 评论(0) 推荐(0)
摘要:TFrame的一个功能可以进行功能的封装,就像一个组件一样,它能够把一组功能包装在一起,实现这组功能的复用,甚至可以把一个应用程序封装到一个TFrame,然后在其它地方引用它;TFrame的另一个功能是,它提供了一种拆分和组合应用程序的途径,可以把一个比较大,而且有较独立模块的应用程序拆分为多个Fframe,然后分发给不同的人做,最后把所有的Frame组合在一起,作为一个整体的应用程序。源程序代码... 阅读全文
posted @ 2010-02-16 07:44 猪悟能 阅读(1424) 评论(0) 推荐(0)
摘要:把一个窗体或者控件变成可以停靠只需要两步:(1)把DragKind特性设置为dkDock。(2)把DragMode特性设置为dmAutomatic。另外,TPanel控件有一个UseDockManager特性,如果为Ture,它的作用是将停靠在上面的控件的尺寸扩充为Panel的大小,即充满全部Panel空间。演示代码:新建一个VCL form工程,加入界面代码:object Form1: TFor... 阅读全文
posted @ 2010-02-16 06:40 猪悟能 阅读(566) 评论(0) 推荐(0)
摘要:小东西,初学delphi练习下手。 源代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ImgList, ComCt 阅读全文
posted @ 2010-02-16 00:00 猪悟能 阅读(602) 评论(0) 推荐(0)
摘要:主要演示了TApplicationEvents.OnMessage 的第二个参数 Handled 如果是 True, 表示消息已经处理过了, 到此为止.代码如下:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, AppEvn... 阅读全文
posted @ 2010-02-15 16:18 猪悟能 阅读(253) 评论(0) 推荐(0)
摘要:源代码:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } public { Public de... 阅读全文
posted @ 2010-02-15 16:17 猪悟能 阅读(218) 评论(0) 推荐(0)
摘要:源代码:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } public { Public de... 阅读全文
posted @ 2010-02-15 16:15 猪悟能 阅读(262) 评论(0) 推荐(0)
摘要:代码文件:--------------------------------------------------------------------------------unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtr... 阅读全文
posted @ 2010-02-15 14:12 猪悟能 阅读(228) 评论(0) 推荐(0)
摘要:淘宝的宝贝描述页是ajax异步载入的,所以直接idhttp读一下是弄不到它的源码的。用下面的方法就可以。 代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Contro 阅读全文
posted @ 2010-02-15 14:11 猪悟能 阅读(833) 评论(0) 推荐(0)
摘要:问题的由来:我有两个asp文件 a.asp内容: <html> <head> </head> <body> <formaction="b.asp"method=posttarget="_self"> <P><INPUTid="Text1"type="text"name="Text1"> <INPUTid="S... 阅读全文
posted @ 2010-02-15 14:11 猪悟能 阅读(1981) 评论(0) 推荐(0)
摘要:MSHTML是微软公司的一个COM组件,该组件封装了HTML语言中的所有元素及其属性,通过其提供的标准接口,可以访问指定网页的所有元素.   MSHTML对象模型是由一些对象和集合组成的.处于根部的是HTML,描述了打开页面的1个窗口,包括一系列集合和对象。如Frames集合,History,Location,Navigator,Document,Vi—sum,Event对象等.其中描... 阅读全文
posted @ 2010-02-15 14:10 猪悟能 阅读(2045) 评论(0) 推荐(0)
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Memo1... 阅读全文
posted @ 2010-02-15 14:09 猪悟能 阅读(820) 评论(0) 推荐(0)
摘要:程序界面 测试是在本机测试的,注意不能是127.0.0.1或者localhost,不然idhttp会罢工。由于测试论坛没有几篇文章,所以“下一页”,其实只读取了第一页。上一页还没做呢,呵。 源代码: unit Unit1; interface uses Windows, Messages, SysU 阅读全文
posted @ 2010-02-15 14:09 猪悟能 阅读(338) 评论(0) 推荐(0)
摘要:function IIF<T>(Condition: Boolean; TrueValue: T; FalseValue: T): T; begin if Condition then result := TrueValue else result := FalseValue; end;注:Delphi 2009\2010 支持泛型,其它版本不支持。真的很方便!不过好像不能直接... 阅读全文
posted @ 2010-02-15 14:08 猪悟能 阅读(314) 评论(0) 推荐(0)
摘要:法一:利用TWebBrowser组件 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw; type TForm1 = class(TForm) WebBrowser1: ... 阅读全文
posted @ 2010-02-15 14:08 猪悟能 阅读(1451) 评论(0) 推荐(0)
摘要:在程序中使用TWebbrowser控件或者Indy中控件连接采用Ajax技术的网页,获得的网页源码中并不会有客户端更新的内容。在IE浏览器中的查看源文件同理也是看不到Ajax更新的内容。通过插件可以看到Ajax更新后的内容。问题是在程序中怎样来获得完整的网页内容?如果有Ajax更新,Webbrowser的DocumentComplete事件也不会被触发。其实完整的网页内容并不是不可以获得,使用一个... 阅读全文
posted @ 2010-02-15 14:07 猪悟能 阅读(627) 评论(0) 推荐(0)
摘要:在 Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选, 准备彻底而细致地研究它.官方网站: http://www.regular-e­xpressions.info/delphi.html直接下载: http://www.regular-e­xpressions.info/download/TPerlRegEx.zip二、安装方法:1、先把解压的 TPerlR... 阅读全文
posted @ 2010-02-15 14:07 猪悟能 阅读(494) 评论(0) 推荐(0)