Delphi实现HTMLWebBrowser实现HTML界面

HTML的界面有以下特点：图文混排，格式灵活，可以包含Flash、声音和视频等，实现图文声像的多媒体界面，而且易于建立和维护。另外，HTML的显示环境一般机器上都具备，通常不需要安装额外的软件。当然，HTML界面也有它欠缺的方面，即：界面控制能力有限，代码调试不便----虽然DHTML提供了比较强的编程特性，但是比起Delphi的传统的开发语言和工具来，对界面的控制能力，尤其是和数据交互时的控制能力还是稍逊一筹。 
了解了这些特点，我们就可以在实际应用开发中，适时地选择HTML技术。下面举个例子： 
一种仪器的管理程序，需要显示该仪器的操作方法文档，包含文字和图片，并要求可以隐藏或显示文档，并能安要求打印。 
这个应用中，图文显示、隐藏/显示部分文档、图文打印等需求，都是HTML界面所擅长的，用传统的表单控件实现几乎无法想像。 
　 
用什么实现HTML的界面 
用Delphi实现HTML界面的应用主要有两种选择：WebBrowser Control或MSHTML。为了弄清两者如何选择，我们先来看看Internet Exporer 4.0及其后续版本的体系结构： 
http://msdn.microsoft.com/workshop/graphics/IE4Arch.gif" width=305 border=0> 
IE浏览器是建立在SHDOCVW.DLL组件之上的，而SHDOCVW.DLL则建立在MSHTML.DLL组件之上，底层则包括脚本引擎等。SHDOCVW.DLL提供了对活动文档(Active Document)的支持----例如Word等文档可以在IE中显示，并提供导航、in-place*连接、收藏夹、浏览历史和分级内容选择(PICS: Platform for Internet Content Selection)等功能。SHDOCVW.DLL组件虽然也提供了很多接口可以单独使用，但是通常所指的SHDOCVW.DLL就是WebBrowser Control。MSHTML.DLL是实行HTML解析和表现的组件。它通过DHTML对象模型提供对HTML文档的访问。它实现了活动文档服务器接口，可以通过COM接口调用。 
不难看出，WebBrowser在比较高的层次上，提供了更为丰富的功能，因此一般通常编程都采用WebBrower控件。MSHTML只有在需要解析HTML这样的特殊应用中，才推荐使用。微软的MSDN网站上提供了一个使用MSHTML的例子：WalkAll‘>http://msdn.microsoft.com/downloads/samples/internet/browser/walkall/default.asp">WalkAll Sample Source Page。 
（*注：In-place链接，是指点击HTML连接时，在相同的WebBrowser实例中显示连接的HTML文档。如果仅使用MSHTML.DLL，点击链接将导致在新的浏览器实例中打开链接的文档。） 
　 
如何访问HTML页面的内容 
首先，在Delphi 7.0组件面板的Internet页上，把TWebBrowser组件放到表单上。 
通过执行以下语句装载HTML文档到WebBrowser中进行显示： 
WebBrowser1.Navigate(GetCurrentDir + ‘\index.htm‘); 
隐藏/显示HTML元件代码示例：

Pascal Code


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 		 
procedure xx();
var 
Doc : IHTMLDocument2; 
element: IHTMLElement; 
begin 
Doc := IHTMLDocument2(WebBrowser1.Document); 
if nil <> Doc then 
begin 
    element := Doc.all.item(‘T1‘, 0) as IHTMLElement; 
    if nil <> element then 
    begin 
        if ‘‘ = element.style.display then 
        begin
            element.style.display := ‘none‘ 
            else 
            element.style.display := ‘‘; 
        end; 
    end; 
end; 

设置/取值代码示例： 
var 
         Doc : IHTMLDocument2; 
         inputText : IHTMLInputTextElement; 
     begin 
         Doc := IHTMLDocument2(WebBrowser1.Document); 
         if nil <> Doc then 
         begin 
             //如果T1不是IHTMLInputTextElement类型将出错 
             inputText := Doc.all.item(‘T1‘, 0) as IHTMLInputTextElement; 
             inputText.value := Edit1.Text; 
             Edit2.Text := inputText.value; 
         end; 
     end; 
提示：关于哪些HTML元件（标记）应该采用什么MSHTML接口进行访问，请参考MSDN Library中的Web Development > Programming and Reusing the Browser > MSHTML Reference > Interfaces and Scripting Objects。 
　 
如何调用JavaScript函数（兼谈消息提示框） 
知道了访问HTML内容的方法，就可以通过间接方式调用HTML页面上包含的JavaScript代码。具体实现方式是：在HTML中插入<span></span>等不可见元件，利用它的click事件调用响应的JavaScript函数，然后再Delphi中调用该元件的click过程。 
下面我们就用Delphi调用JavaScript的alert函数来实现消息提示框。首先在HTML中加入： 
<span id="ShowMessage" style="display:none" onclick="alert(this.innerText);"></span> 
Delphi中的调用代码如下：

Pascal Code


1
2
3
4
5
6
7
8
9
10
11
12
13
14 		 
procedure TForm1.Alert(const Msg : string); 
     var 
         Doc : IHTMLDocument2; 
         Element : IHTMLElement; 
     begin 
         Doc := IHTMLDocument2(WebBrowser1.Document); 
         Assert(nil <> Doc);//一定要先加载HTML 
         Element := Doc.all.item(‘ShowMessage‘, 0) as IHTMLElement; 
         if nil <> Element then 
         begin 
             Element.innerText := Msg; 
             Element.click; 
         end; 
     end; 

我发现在Delphi中用Browser显示HTML，如果你的表单是作为EXE运行，然后嵌入到了别的表单的组件上显示的，例如，Form1.Parent := Form2.Panel1，即Form1显示在Form2中Panel1所占据的位置，当你用ShowMessage显示提示信息时，HTML的内容依然可以被操作，这显然不太好。使用JavaScript中的alert函数则可避免这种现象。 
　 
如何禁止右键菜单（如何禁止用户查看源代码） 
默认情况下，在显示HTML的WebBrowser上点击鼠标右键，会显示一个弹出菜单，和IE中看到的一样。通过这个菜单用户可以查看HTML的源代码。因此有时候我们需要屏蔽该菜单。和该菜单相关的接口是IEDocHostUIHandler。已经用人对它进行了封装，详见ieConst.pas‘>http://members.shaw.ca/iedelphi/downloads/source/ieConst.pas">ieConst.pas 和 IEDocHostUIHandler.pas‘>http://members.shaw.ca/iedelphi/downloads/source/IEDocHostUIHandler.pas">IEDocHostUIHandler.pas。使用方法如下：

Pascal Code


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 		 
var 
       Form1: TForm1; 
       FDocHostUIHandler: TDocHostUIHandler; 
     ... 
     implementation 
     ... 
     procedure TForm1.FormCreate(Sender: TObject); 
     begin 
       FDocHostUIHandler := TDocHostUIHandler.Create; 
     end; 
     procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
     begin 
       FDocHostUIHandler.Free; 
     end; 
     procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject; 
       pDisp: IDispatch; var URL: OleVariant); 
     var 
       hr: HResult; 
       CustDoc: ICustomDoc; 
     begin 
       hr := WebBrowser1.Document.QueryInterface(ICustomDoc, CustDoc); 
       if hr = S_OK then 
         CustDoc.SetUIHandler(FDocHostUIHandler); 
     end; 

有时你可能还需要定制自己的右键菜单，这是还是要借助于IEDocHostUIHandler，具体实现方法可以看看MSDN Library。 
　 
如何响应HTML的事件（如何在HTML中调用Delphi的代码） 
HTML事件的响应方式有两种：一种是JavaScript，一种是在Delphi中响应。一些简单的功能可以在JavaScript中实现，这样易于修改。但是从功能、安全性等方面考虑，通常还是要在Delphi中实现。例如当用户点击HTML上的一个按钮时，需要访问数据库，这是就得用Delphi了。 
在Delphi中响应HTML事件，实际上就是响应ActiveX事件的问题，这通过事件槽(Event Sink)来实现，有些繁琐。还好前人已经为我们作了很多工作。利用Experts Exchange网站的Cynna封装的TDHTMLEvent类（该源码请看本文的附件），实现就简单多了。实现代码如下：

Pascal Code


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33 		 
var 
       Form1: TForm1; 
       EventSink: TDHTMLEvent; 
     ... 
     implementation 
     ... 
     procedure TForm1.FormCreate(Sender: TObject); 
     begin 
       EventSink:= TDHTMLEvent.Create; 
     end; 
     procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
     begin 
       EventSink.Free; 
     end; 
     procedure TForm1.DemoEventSink(Sender: TObject); 
     begin 
         ShowMessage(‘成功从HTML中调用Delphi的过程。‘); 
     end; 
     procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; 
         const pDisp: IDispatch; var URL: OleVariant); 
     var 
         Doc : IHTMLDocument2; 
         Element : IHTMLElement; 
     begin 
         Doc := IHTMLDocument2(WebBrowser1.Document); 
         if nil <> Doc then 
         begin 
             //找到HTML元件 
             Element := Doc.all.item(‘B3‘, 0) as IHTMLElement; 
             //使HTML元件的click事件和DemoEventSink过程关连 
             Element.onclick := EventSink.HookEventHandler(DemoEventSink); 
         end; 
     end; 

点击HTML页面中ID为‘B3‘的按钮，就会调用DemoEventSink过程。 
　 
如何能在HTML控件上输入回车 
含有多行文本输入框(textarea )或提交(submit)按钮的HTML表单在TWebBrowser中显示时，对回车键不响应。另外，Delphi表单上按钮的快捷字母键也无法在HTML表单上输入，因为一输入就触发相应按钮的单击事件。解决代码如下：

Pascal Code


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75 		 
unit Unit1; 
interface 
uses 
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
   Dialogs, OleCtrls, SHDocVw_TLB, ActiveX, StdCtrls; 
type 
   TForm1 = class(TForm) 
     WebBrowser1: TWebBrowser; 
     Button1: TButton; 
     Button2: TButton; 
     procedure FormDestroy(Sender: TObject); 
     procedure FormCreate(Sender: TObject); 
     procedure Button1Click(Sender: TObject); 
     procedure Button2Click(Sender: TObject); 
   private 
     { Private declarations } 
     FOleInPlaceActiveObject: IOleInPlaceActiveObject; 
     procedure MsgHandler(var Msg: TMsg; var Handled: Boolean); 
   public 
     { Public declarations } 
   end; 
var 
   Form1: TForm1;

implementation 
{$R *.dfm} 
procedure TForm1.FormDestroy(Sender: TObject); 
begin 
   FOleInPlaceActiveObject := nil; 
end; 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
   Application.OnMessage := MsgHandler; 
end; 
procedure TForm1.MsgHandler(var Msg: TMsg; var Handled: Boolean); 
const 
   DialogKeys: set of Byte = [VK_LEFT, VK_RIGHT, VK_BACK, VK_UP, VK_DOWN, 
     $30..$39, $41..42, $44..$55, $57, $59..$5A]; 
var 
   iOIPAO: IOleInPlaceActiveObject; 
   Dispatch: IDispatch; 
begin 
   { exit if we don‘t get back a webbrowser object } 
   if (WebBrowser1 = nil) then 
   begin 
     Handled := System.False; 
     Exit; 
   end; 
   Handled := (IsDialogMessage(WebBrowser1.Handle, Msg) = System.True); 
   if (Handled) and (not WebBrowser1.Busy) then 
   begin 
     if FOleInPlaceActiveObject = nil then 
     begin 
       Dispatch := WebBrowser1.Application; 
       if Dispatch <> nil then 
       begin 
         Dispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO); 
         if iOIPAO <> nil then 
           FOleInPlaceActiveObject := iOIPAO; 
       end; 
     end; 
     if FOleInPlaceActiveObject <> nil then 
       if ((Msg.message = WM_KEYDOWN) or (Msg.message = WM_KEYUP)) and 
         (Msg.wParam in DialogKeys) then 
         // nothing - do not pass on the DialogKeys 
       else 
         FOleInPlaceActiveObject.TranslateAccelerator(Msg); 
   end; 
end; 
initialization 
   OleInitialize(nil); 
finalization 
   OleUninitialize; 
　 

本段代码出自SwissDelphiCenter.ch，作者未知。主要要引用ActiveX。Delphi 7中SHDocVw_TLB改为SHDocVw。 
　 
如何实现HTML的打印和预览 
HTML的打印和预览向来是个难题，但自从IE5.5推出后，情况大有改观。你可以利用其“打印模板”功能，实现自己的预览窗口和控制打印。“打印模板”的使用方法请参考MSDN Library中的Web Development > Programming and Reusing the Browser > Print Templates目录下的文章。从微软的网站上还可以下载到一个不错的例子，示例如何一步步由浅入深地使用Print Template (下载：http://download.microsoft.com/download/6/8/3/683DB9FE-8D61-4A3C-B7B8-3169FF70AE9F/printtemplates.exe">打印模板示例)。 
你会发现，要自己实现一个功能完善的打印模板也并非易事。IE浏览器本身带的打印模板做得还不错，能否在它的基础上加上自己的定制功能呢？答案是肯定的，至少从技术上看是这样（不考虑版权问题）。下面就介绍这偷懒的招。 
用Visual Studio打开x:\Program Files\Internet Explorer\MUI\0804\SHDOCLC.DLL，会看到其资源目录。其中HTML/PREVIEW.DLG就是IE所带的打印模板了。把它export(导出)出来，把文件扩展名改成HTM，打开看看，是不是特刺激？PREVIEW.DLG用到了几个图片文件，在2110目录下，别忘了导出。（注：我的环境是Windows XP Professional英文版+SP1a，IE是6.0sp1。） 
IE默认的模版中，页眉页脚均只支持纯文字。下面以定制HTML页眉为例，看看如何定制自己的打印模板。思路是：用自己的页眉内容换掉原有的内容，并修改其页眉高度和页边距使之和新的页眉相对应。 
第一步，定义页眉。在要使用此模版预览打印的HTML文件中加入一个id为Header的div标记，括起HTML页眉内容，并制定以英寸为单位的页眉的高度和宽度，其中宽度应该和模版相符。例： 
<div id="Header" style="DISPLAY:none; WIDTH:6.5in; HEIGHT:0.78in"> 
         ...（HTML页眉内容） 
     </div> 
第二步，声明变量。在模版前面变量声明部分加上两个变量声明： 
             var g_htmlHeader = "";//用于保存页眉内容 
             var g_nHeaerHeight = 0;//页眉的高度 
第三步，取得页眉。在函数OnLoadBody()中的“Printer.footer = dialogArguments.__IE_FooterString”语句之后加入这段代码：

oPageHeader = dialogArguments.__IE_BrowseDocument.all.item("Header", 0); 
if (null != oPageHeader) 
{ 
     g_htmlHeader = oPageHeader.innerHTML; 
     g_nHeaerHeight = oPageHeader.style.posHeight; 
}

第四步，指定页边距和页眉高度。在上面的代码下面紧接着加入：

//指定页边距。其中40可以自己改，单位是百分之一英寸。 
Printer.marginTop = 40 + (g_nHeaerHeight * 100); 
Printer.marginBottom = 40; 
Printer.marginLeft = 40; 
Printer.marginRight = 40; 
在函数EnsureDocuments()中， 
/*注释掉以下代码 
if (header) 
{ 
tmp = upTop + (27 / 100); 
if (tmp > top) 
top = tmp; 
} 
if (footer) 
{ 
tmp = upBottom + (27 / 100); 
if (tmp > bottom) 
bottom = tmp; 
} 
*/ 
//紧接着加上： 
tmp = upTop + g_nHeaerHeight; 
if (tmp > top) 
top = tmp; 
//下面隔几行，注释掉：oRule.style.top = upTop + "in"; 
第五步，指定页眉内容。在函数CPrintDoc_AddPage()中，在“HeadFoot.page = HeadFoot.pageTotal;”语句之后加入： 
//这两行用于设置页码，你在页眉可以通过加入“[P]”和“[p]”分别代表总页数和当前页数。 
g_htmlHeader = g_htmlHeader.replace("[P]", "<span class=‘hfPageTotal‘></span>"); 
var pageHeader = g_htmlHeader.replace("[p]", HeadFoot.pageTotal); 
//下面隔3行，注释掉： 
//~oPage.children("header").innerHTML = HeadFoot.HtmlHead; 
//~oPage.children("footer").innerHTML = HeadFoot.HtmlFoot; 
//下面隔几行，把“newHTM += HeadFoot.HtmlHead;”改为： 
newHTM += pageHeader ; 
//然后注释掉（不要页脚）：newHTM += HeadFoot.HtmlFoot; 
至此，一个支持自定义HTML页眉的新模版就定制完成了。是不是觉得特爽？如果觉得它给你省下了两周的时间，就赶紧到“希望之光”网站上，花你2天的工资，资助一个小孩上学吧。 
定制好的打印模板怎么用呢？请看以下代码：

var 
     vaIn, vaOut: OleVariant; 
     CmdTarget : IOleCommandTarget; 
     MyHandle : THandle; 
begin 
     vaIn := ‘c:\\Preview.htm‘;

//预览方法1：WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut); 
//下面是方法2： 
     if WebBrowser1.Document <> nil then 
     begin 
         WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget); 
         if CmdTarget <> nil then 
         begin 
             try 
                 CmdTarget.Exec( PGuid(nil), OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut); 
             finally 
                 CmdTarget._Release; 
             end; 
         end 
         else 
         begin 
             ShowMessage(‘IE不支持该功能，请升级至IE5.5以上。‘); 
         end; 
     end; 
end; 
方法1简洁，但是如果WebBroswer不支持打印预览的话就会出错。第二种方法可能更好一些。 
在打印预览时，预览窗口的尺寸大小总是和WebBrowser所在的Form的一样，而且没法最大化。更麻烦的是，如果你的表单是嵌入到了别的表单的组件上显示的，例如，Form1.Parent := Form2.Panel1，即Form1显示在Form2中Panel1所占据的位置，那么预览窗口就变得很小了，不拉大根本没法看。解决办法如下，在预览的代码后面加上以下代码，使预览窗口最大化： 
             Handle:=FindWindow(‘Internet Explorer_TridentDlgFrame‘, ‘打印预览‘); 
                 if 0 <> MyHandle then 
                 begin 
                     ShowWindow(MyHandle , SW_MAXIMIZE); 
                 end; 
如果不预览而是直接打印，则把OLECMDID_PRINTPREVIEW换成OLECMDID_PRINT就可以了。 
如果要在Web应用中使用打印模板，可以通过ActiveX来实现调用。 
注：打印模板需要安装Internet Explorer 5.5以上版本，本文其它功能需要安装Internet Explorer4.0以上版本。 
　 
如何打包HTML和相关文件 
应用做好了，总不能把HTML文件和相关的图片文件等直接发布吧。这样既不安全，前面禁止用户查看源代码的努力也白费了。因此至少应该将这些文件打个包。一般来说，作为资源编译到exe或dll里就行了。我觉得编译到DLL中最为方便。在Visual Studio中，新建一个Win32工程，应用类型选择DLL。然后把HTML文件和相关的图片文件等资源加到工程中，然后编译即可。 
再添加HTML等资源时，我强烈推荐用手工加入的方法。原因有二：一，GIF等图片文件加入到工程中时，Studio可能会把文件内容自动改了，使得该文件不能正确显示；二，加入资源后会自动生成资源ID，需要把它改成你需要的名称（通常改成和文件名相同），当文件很多时，这项工作就很浪费时间，也很烦人。手工加入，即用文本编辑器把资源脚本文件（工程名.rc)打开，手工加入内容。我就不赘述了，格式例子如下： 
About.htm     HTML     "HTML\\About.htm" 
image016.gif     IMAGES     "HTML\\images\\image016.gif" 
当加入很多文件时，如何节省时间呢？没有实践经验的人，是不可能想到这些问题的。别着急，按我说的做。 
首先，进入命令行(DOS)界面（Windows NT/2000/XP/2003下运行cmd.exe进入），进入你的HTML等资源文件所在的目录，执行“dir > temp.txt”,把文件列表输出到temp.txt。 
接着，用文本编辑器把该文件打开，去掉头尾内容，仅留文件列表部分，例如： 
2004-03-17 11:20 20,397 About.htm 
2004-03-17 11:20 27,397 index.htm 
然后，用Excel把修改后的文件打开。打开时，“原始数据类型”请选择“固定宽度 - 每列字段加空格对齐”。这样，日期、时间、文件大小、文件名就被分别放在了不同的列中。删除前三列，仅留文件名一列，并把该列复制一份。在两个文件名列之间插入两个空列，分别填写“HTML”和“"HTML\\”，然后就可以另存成以制表符分隔的文本文件了。 
最后，用文本编辑器把上一步处理好的文件打开，不用我多说，只要几个替换，就得到所需要的资源脚本了。对于不同目录下的文件，均需要这么弄以下。 
资源脚本弄好了，把资源文件也加入（不是作为资源加入）工程，编译，就得到打包好的DLL文件了。接下来的问题是，这个DLL怎么用啊？别急，WebBrowser支持一种叫res的协议，可以访问文件里的资源。例如，假设上面About.htm打包到了myresource.dll文件中，则可以通过res://myresource.dll/About.htm访问，image016.gif则可通过res://myresource.dll/images/image016.gif访问（注意到了吧，HTML在根目录下，而IMAGES等其它资源则在同名目录下）。如果About.htm中通过“images/image016.gif”引用了image016.gif文件，则该图片在WebBrowser中正常显示。换句话说，你在打包之前，程序可以通过file://...访问HTML，打包之后，只需要换成res://...就可以了----打包对程序和HTML几乎没什么影响。但是，切记，切记！千万不要仅以数字来做文件名（如：1.htm、2.gif等），因为数字是被用来标识某种资源或某个资源的，如果用仅用数字作文件名（可以用字母+数字），打包后会导致访问找不到文件。

参考：http://m.blog.csdn.net/blog/fghydx/18548257

时间： 2024-11-03 21:16:35

Delphi实现HTMLWebBrowser实现HTML界面的相关文章

Delphi XE10让android的界面设计摆脱繁杂

设计一个选项卡. 大体图样: 1.创建一个multi_Device_Application;2.在form上放一个Rectangle1,设置align为top.设置fill属性的kind为Gradient,编辑Gradient(颜色取值见样图).3.再放一个Rectange2设置align为top,底色为白色.4.在Rectange2上放置三个RoundRect1,RoundRect2,RoundRect3.设置它们的Corners属性的TopLeft和TopRight为TURE,BottomL

用Delphi写软件播放器

最近打算用Delphi写软件播放器,主要是界面问题,如果用Delphi控件来做界面,那实在是太麻烦了.所以最后决定用Delphi结合HTML来做,主要用到的是Delphi的webbrower来做,这样做的速度可能是原来的10倍,还不止.不过还是要写播放器方面的UI的,希望早日做好吧.用空还是要把http://blog.csdn.net/henreash/article/details/7571660使用GDI+绘制的360风格按钮控件 这个来学习滵学习的,其实Delphi来写界面来说还是比较简单

Delphi中的容器类

从Delphi 5开始VCL中增加了一个新的Contnrs单元,单元中定义了8个新的类,全部都是基于标准的TList 类. TList 类 TList 类实际上就是一个可以存储指针的容器类,提供了一系列的方法和属性来添加,删除,重排,定位,存取和排序容器中的类,它是基于数组的机制来实现的容器,比较类似于C++中的Vector和Java中的 ArrayList,TList 经常用来保存一组对象列表,基于数组实现的机制使得用下标存取容器中的对象非常快,但是随着容器中的对象的增多,插入和删除对象速度会

用Python查询手机号码归属地

简单的一个例子,是以前用Dephi写的,前不久刚实现了一个在Python中使用Delphi控件来编写界面程序,于是趁热写一个类似的的查询方案. 本实例是通过www.ip138.com这个网站来查询的,这里需要的几个知识点,就是用Python模拟网页提交数据,获得数据返回信息,以及对返回的Html信息进行解析,模拟Http提交,Python自带有一个urllib和urllib2这两个库,相当方便,只是奇怪,为什么不将两个库合并成一个,这样来的更方便.然后就是窗体了,窗体还是用我之前写的一个Pyth

我的闪存备份

闪存中记录了一些技术备忘,在此记录一下: >>>> 终于将所有旧系统的控件都升级到了Delphi 2010 ! [2010-01-18 10:33:55]>>>> 测试python3.2,要升级的话有许多代码要修改. [2011-03-17 09:31:09]>>>> 今天我的me525怎么也无法上网了,用hiapn等打开也没有用,后来一查,是数据传输(设置-数据管理.数据传输-数据已启用)关掉了．．．唉,大家注意 [2011-05-

简单详细的OD破解教程

2007-08-04 15:46作者:CCDebuger注:昨天在网上见到了这篇文章,但缺少插图,从另外一篇文章中也看到了类似的的教程文章,里面的插图质量实在不敢恭维.在一个论坛中正好下载了文章中所介绍的破解软件CRACKME3,于是便想按部就班的体验一下OD的功能,同时也完善一下这篇文章,附上自己捕捉的相应屏幕图片,以做参考学习之用.同时由于在实践过程中遇到了些许的差异,有些内容稍有改动.如果有想亲自尝试破解该软件的朋友,可尝试到http://download.csdn.net/source/

DELPHI美化界面（2009开始TPanel增加了ParentBackGround）

1.透明问题. 要重新调整界面确实很麻烦,以前用DELPHI开发的界面都很土,和WEB真是没办法比.(我以前用的是DELPHI7),现在回想起来,DELPHI难做的原因是:没有透明控件.所有控件都是不透明的,并且大部分控件就是灰色的,一放到窗体上,就像一块膏药一样贴在上面.即使界面上放几副图片也难以和控件的那种灰灰的颜色融合起来.所以,一直在想QQ是怎么开发的.还是挺佩服腾讯那帮家伙的. 后来打开DELPHI2009,竟然发现有些控件支持背景,特别是PANEL控件,比以前增加了一个ParentB

设置Delphi XE4默认界面样式

VCL BitMap Style Proceject Options->Application->Appearance 选择几个样式 使用代码设置 uses Vcl.Themes;procedure TForm1.Button1Click(Sender: TObject);begin    TStyleManager.TrySetStyle('Amakrits');end; XE4默认皮肤列表 Windows Amakrits Amethyst Kamri Aqua Graphite Aqua

delphi directui 做界面的一个例子

现在很多CS系统或者软件界面都做的非常好看,比如:QQ皮肤,迅雷下载,360杀毒界面等.这些都是运用的流行的DIRECTUI 技术,基本上有的资料都是基于C++的,很少有同仁将C++下的DIRECT UI 转换到DELPHI, 这真是个悲哀,我最近也想美化一下界面,但厌倦了皮肤控件.在CSDN上搜索到了这个例子,不过需要积分下载,我也转载分享在这里. directui, 其实有很多地方还是用到GDI,GDI+ 实现的,所以下面这个例子就是用的GDI+ 的DELPHI库完成的: 貌似样子还不错,里