向一个DLL中通过函数参数传递一个窗体form,怎么窗体都传过去了,窗体上的数据集却没过去? ( 积分: 10 )

5411 · 2005-08-19

弄个传递窗体的小例子啊.最好窗体上再带个数据集.最好再在Dll中,操作操作数据集.

kinneng · 2005-08-19

这种程序我在做http://www.delphibbs.com/delphibbs/dispq.asp?lid=3164214 不过里面巨复杂，做到这样已经比一套正式软件还复杂，而且我正在大修改，有空就做一个简单源代码，公开给研究好了

kinneng · 2005-08-20

我的邮箱密码忘了寄不了信，想把源代码贴进论坛的笔记里面，就是上传不成功，在这里贴代码算了 exe部分 /////////////////Project1.dpr program Project1; uses  Forms,  Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin  Application.Initialize;  Application.CreateForm(TForm1, Form1);  Application.Run; end. ////////////unit1.pas unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls; type  TForm1 = class(TForm)    DataSource1:TDataSource;{四个控件}    ADOConnection1:TADOConnection;    ADOTable1:TADOTable;    Button1:TButton;    procedure Button1Click(Sender:TObject);  private    { Private declarations }  public    { Public declarations }  end;  TshowDllForm = procedure(fm:TForm1); stdcall; var  Form1:TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender:TObject); var  sdf:TshowDllForm;  h:THandle; begin  h := LoadLibrary('Project2.dll');  if h <> 0 then  begin    @sdf := GetProcAddress(h, 'showDllForm');    if Assigned(sdf) then      sdf(Self);  end; end; end. ///////////////unit1.dfm object Form1: TForm1  Left = 5  Top = 174  Width = 431  Height = 103  Caption = 'Form1'  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = 'MS Sans Serif'  Font.Style = []  OldCreateOrder = False  PixelsPerInch = 96  TextHeight = 13  object Button1: TButton    Left = 36    Top = 16    Width = 75    Height = 25    Caption = 'call dll'    TabOrder = 0    OnClick = Button1Click  end  object DataSource1: TDataSource    DataSet = ADOTable1    Left = 212    Top = 12  end  object ADOConnection1: TADOConnection    Connected = True    ConnectionString =      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Se' +      'curity Info=False'    LoginPrompt = False    Mode = cmShareDenyNone    Provider = 'Microsoft.Jet.OLEDB.4.0'    Left = 148    Top = 12  end  object ADOTable1: TADOTable    Active = True    Connection = ADOConnection1    CursorType = ctStatic    TableName = 'NewGoods'    Left = 180    Top = 12  end end dll部分 ///////////Project2.dpr library Project2; uses  SysUtils,  Forms,  Windows,  Messages,  Classes,  DB,  ADODB,  Unit1,  Unit2 in 'Unit2.pas' {Form2}; {$R *.res} procedure showDllForm(fm:TForm1); stdcall; begin  form2 := Tform2.Create(nil);  with form2 do  begin    dbgrid1.DataSource :=fm.DataSource1;    DBNavigator1.DataSource :=fm.DataSource1;    DBEdit1.DataSource :=fm.DataSource1;    show;  end;  // with end; exports  showDllForm; begin end. //////////unit2.pas unit Unit2; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Grids, DBGrids, DB, ADODB, ExtCtrls, DBCtrls, StdCtrls, Mask; type  TForm2 = class(TForm)    DBGrid1: TDBGrid;{三个控件}    DBNavigator1: TDBNavigator;    DBEdit1: TDBEdit;  private    { Private declarations }  public    { Public declarations }  end; var  Form2:TForm2; implementation {$R *.dfm} end. ///////unit2.dfm object Form2: TForm2  Left = 202  Top = 140  Width = 508  Height = 312  Caption = 'Form2'  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = 'MS Sans Serif'  Font.Style = []  OldCreateOrder = False  PixelsPerInch = 96  TextHeight = 13  object DBGrid1: TDBGrid    Left = 32    Top = 44    Width = 429    Height = 185    TabOrder = 0    TitleFont.Charset = DEFAULT_CHARSET    TitleFont.Color = clWindowText    TitleFont.Height = -11    TitleFont.Name = 'MS Sans Serif'    TitleFont.Style = []  end  object DBNavigator1: TDBNavigator    Left = 32    Top = 12    Width = 240    Height = 25    TabOrder = 1  end  object DBEdit1: TDBEdit    Left = 32    Top = 252    Width = 121    Height = 21    DataField = 'Name'    TabOrder = 2  end end

雪狐狸 · 2005-08-20

可以把所有的打印函数做成一个通用的打印单元（　.PAS） 然后需要打印的时候，在要工程里加入并uses这个单元不就行了。

5411 · 2005-08-20

这个问题我以前问过啊,我用的是RmReport,他的2.6和3.0不是兼容的,已经用2.6做了许多,可现在又要用3.0,两个不能装在一起,所以只好分工编译,把程序拆成几个DLL.

5411 · 2005-08-20

kinneng : 你好:试了一下,提示: Access Voilation at Address 06B61CA6 in module 'project2.dll'. Write of address 00720061

雪狐狸 · 2005-08-20

To 5411: 试没试过我说的办法？

kinneng · 2005-08-20

呵呵，为了这个，所以向难度挑战，你将为此付出比重新编程更大的代价，甚至失败，因为dll实在不是个好玩的东西，有些控件不能随便传递，或者不接受传递过来的其它对象。

5411 · 2005-08-20

to 雪狐狸: 2.6 和 3.0 不能装在一起的,我怎么试你的办法啊.

5411 · 2005-08-20

to kinneng: 你好,你先说你写的,我完全照搬的,只是换了一下数据库,出这个错误'Access Voilation at Address 06B61CA6 in module 'project2.dll'. Write of address 00720061 '是怎么一回事?

雪狐狸 · 2005-08-20

这是我一个叫“开心就好”的网友写出来的 没有经过他的同意，我想我不该帖出来的 不过，可以看看 就是这么一种思路 需要的时候 可以在工程中加入并　USER　这个打印单元 并直接调用！ (***************************************************) (* 单元名： UN_TDprint                             *) (* 功  能：通用的打印单元                         *) (*          TianYueZeng                            *) (******************************************************************) (* 应用:在要套打的单元里uses这个单元：UN_TDprint，                *) (*         Printer.BeginDoc;                                      *) (*         PrintText(16, 14, '开心', 'config.txt',9);               *) (*         PrintText(26, 14, '就好', 'config.txt',9);               *) (*         Printer.EndDoc;                                        *) (* 观察结果，用尺子测量偏移量，在config.txt文件中修改X，Y的值即可 *) (******************************************************************) unit UN_TDprint; interface uses    Printers,Windows, Messages, SysUtils, Variants, Classes, Graphics, Dialogs, Controls,forms;      //取得字符的高度    function CharHeight: Word;      //取得字符的平均宽度    function AvgCharWidth: Word;      //取得纸张的物理尺寸---单位：点    function GetPhicalPaper: TPoint;      //取得纸张的逻辑宽度--可打印区域,取得纸张的逻辑尺寸    function PaperLogicSize: TPoint;      //纸张水平对垂直方向的纵横比例    function HVLogincRatio: Extended;      //取得纸张的横向偏移量-单位：点    function GetOffSetX: Integer;      //取得纸张的纵向偏移量-单位：点    function GetOffSetY: Integer;      //毫米单位转换为英寸单位    function MmToInch(Length: Extended): Extended;      //英寸单位转换为毫米单位    function InchToMm(Length: Extended): Extended;      //取得水平方向每英寸打印机的点数    function HPointsPerInch: Integer;      //取得纵向方向每英寸打印机的光栅数    function VPointsPerInch: Integer;      //横向点单位转换为毫米单位    function XPointToMm(Pos: Integer): Extended;      //纵向点单位转换为毫米单位    function YPointToMm(Pos: Integer): Extended;      //设置纸张高度-单位：mm    procedure SetPaperHeight(Value:integer);      //设置纸张宽度：单位--mm    Procedure SetPaperWidth(Value:integer);      //在 (Xmm, Ymm)处按指定配置文件信息和字体输出字符串    procedure PrintText(X, Y: Extended; Txt: string; ConfigFileName: string;FontSize: Integer=12); implementation //取得字符的高度 function CharHeight: Word; var    Metrics: TTextMetric; begin    GetTextMetrics(Printer.Canvas.Handle, Metrics);    Result := Metrics.tmHeight; end; //取得字符的平均宽度 function AvgCharWidth: Word; var    Metrics: TTextMetric; ....... end; //在 (Xmm, Ymm)处按指定配置文件信息和字体输出字符串 procedure PrintText(X, Y: Extended; Txt: string; ConfigFileName: string;FontSize: Integer=12); var ......

5411 · 2005-08-20

to kinneng: 在DLL中再返过来引用调用该DLL的Unit,循环引用啊.

kinneng · 2005-08-20

这是全部源代码了，包括dpr,pas,dfm，除了数据库，我这里很正常，没有问题，这就难搞了。

5411 · 2005-08-31

你在DLL中又引用主程序的unit,这不行，我要他与主程序无关。

kinneng · 2005-09-01

无关？无关的东西怎么传？

5411 · 2005-09-01

就是我想打印的时候,在主程序中只要调用打印函数传个窗体过去就可以了.而不必理会DLL, 你写的代码,在DLL中还得引用所要打印的窗体单元

kinneng · 2005-09-01

只有窗体，有什么用？

zjan521 · 2005-09-01

1.DLL本身是自成体系的,有自己的一套,因此很多用到RTTI的东西就会出错,比如is等。 不过其实你可以用ClassName来判断。除非极个别,基本上用ClassName是可以做到的. 必要的地方再加上强制转换,基本上就没问题了. 比如 var ed : TEdit; ed := TEdit(AppForm.Edit1)

5411 · 2005-09-03

不可以啊,classneme,显示并不是此控件的,建议楼上试试

向一个DLL中通过函数参数传递一个窗体form,怎么窗体都传过去了,窗体上的数据集却没过去? ( 积分: 10 )

5411

Unregistered / Unconfirmed

kinneng

Unregistered / Unconfirmed

kinneng

Unregistered / Unconfirmed

雪狐狸

Unregistered / Unconfirmed

5411

Unregistered / Unconfirmed

5411

Unregistered / Unconfirmed

雪狐狸

Unregistered / Unconfirmed

kinneng

Unregistered / Unconfirmed

5411

Unregistered / Unconfirmed

5411

Unregistered / Unconfirmed

雪狐狸

Unregistered / Unconfirmed

5411

Unregistered / Unconfirmed

kinneng

Unregistered / Unconfirmed

5411

Unregistered / Unconfirmed

kinneng

Unregistered / Unconfirmed

5411

Unregistered / Unconfirmed

kinneng

Unregistered / Unconfirmed

zjan521

Unregistered / Unconfirmed

5411

Unregistered / Unconfirmed

Similar threads