H
hfghfghfg
Unregistered / Unconfirmed
GUEST, unregistred user!
关于activeForm的断点调试的另一种方法。
昨天在家写一个activeForm,发现
activeForm的断点调试很好用。
//原来是用IE调试,不爽!!!
步骤:
1。创建一个test程序。E:/active_lis/test/Project1.exe
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('E:/active_lis/test.htm');
end;
end.
2。在你的activeForm的工程中的run下的parameters中的local中填写 E:/active_lis/test/Project1.exe
3。设断点 ,调试。
4。找一只 肥的 猪脚
5。hfghfghfg开始啃猪脚。
{以上两步可以不做}
ps:{感慨}
此activeForm的写的怪怪的。主要是完成报告的打印。
其实报告的打印不需要写activeForm的。可是,报告
的要求很多,自定义纸张,控制走纸,行打。这些还
好办。可是报告的样式很多。存放在几十个delphi写
的dll中,而且还经常改动。另外数据还是加密压缩的
{如某些bmp,不能用jpg压缩因为要无损}。结果就写成
了怪怪的样子。还好是局域网。否则,我要吐血了。
用webservices + activeForm 还能应付过去。
昨天在家写一个activeForm,发现
activeForm的断点调试很好用。
//原来是用IE调试,不爽!!!
步骤:
1。创建一个test程序。E:/active_lis/test/Project1.exe
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('E:/active_lis/test.htm');
end;
end.
2。在你的activeForm的工程中的run下的parameters中的local中填写 E:/active_lis/test/Project1.exe
3。设断点 ,调试。
4。找一只 肥的 猪脚
5。hfghfghfg开始啃猪脚。
{以上两步可以不做}
ps:{感慨}
此activeForm的写的怪怪的。主要是完成报告的打印。
其实报告的打印不需要写activeForm的。可是,报告
的要求很多,自定义纸张,控制走纸,行打。这些还
好办。可是报告的样式很多。存放在几十个delphi写
的dll中,而且还经常改动。另外数据还是加密压缩的
{如某些bmp,不能用jpg压缩因为要无损}。结果就写成
了怪怪的样子。还好是局域网。否则,我要吐血了。
用webservices + activeForm 还能应付过去。