Delphi窗体互相调用

在Form1和form2的Uses下加各自的单元，但是要避免循环调用，不然编译器是报错的。

应该这样调用：

unit Unit1;

interface

uses

Unit2pas;

--------------------------

unit Unit2;

interface

uses

var

Form2: TForm2;

implementation

Uses

Unit1pas

很幸运能帮到你。自定义函数声明可以放在窗体内，也可以放在窗体外的单元文件内。两种都可以。

一、按一般的情况，公共函数放到窗体外的单元文件Pas文件内声明。如下代码正确：

var

frm_main: Tfrm_main;

Function Get_item_list(tbname, fdname: String; alist: TStrings): Boolean;//在这里声明不出错,但函数功能实现不了!

然后实现代码也没错。

最后调用时分两种情况：

1，在别的单元文件内的其他窗体内调用。需要在其他单元文件内implementation关键字后加上引用该单元文件：uses uni_main;然后在使用的地方直接Get_item_list('tb资料设置_客户', '所属省份',quprovinceItems );并不需要加uni_main因为他在窗体对象之外声明，是公共函数。引用了该单元文件后，这个调用能够找到该函数声明和实现。

2，在本单元文件内调用。这样简单。只需要一步。直接Get_item_list('tb资料设置_客户', '所属省份',quprovinceItems );并不需要加uni_main这个引用。因为这个自定义函数不属于窗体对象。

二、按特殊情况，这个自定义函数要放到窗体内部。那么，声明用：

public

{ Public declarations }

pubEmpNo,pubEmpName:string;

procedure CopyDbDataToExcel(Target: TDbgrid);

Function Get_item_list(tbname, fdname: String; alist: TStrings): Boolean; // 在这里声明的话出错!

end;

这个也没错。但是函数体的实现部分应该是加上uni_main这个引用。注意下列代码的函数头部分加上该引用（其他地方不变）：

函数如下:

Function uni_mainGet_item_list(tbname, fdname: String; alist: TStrings): Boolean;

Begin

alistBeginUpdate;

alistClear;

Try

Try

With TADOQueryCreate(Nil) Do

Begin

Try

Close;

LockType := ltReadOnly;

Connection := DMAdoConn;

SqlClear;

//SQLAdd(Format('select %s from %s where %s is not null', [fdname, tbname, fdname]));

SQLAdd(Format('select %s from %s', [fdname, tbname]));

Open;

While Not Eof Do

Begin

alistAdd(FieldByName(fdname)AsString);

Next;

End;

Close;

Finally

Free;

End;

End;

Except On E: Exception Do

Begin

ApplicationMessageBox(PChar(EMessage), 'msg', 64);

End;

End;

Finally

alistEndUpdate;

End;

End;

如果在另一个单元文件调用的时候，注意在另一个单元文件的implementation关键字后同样uses uni_main;然后调用时候也要加上(uni_main包含窗体名字)Get_item_list(参数1,。。。。);这样你编译就会通过了。

最佳方案是用管道接收 另一个进程的输出

但有时图省事可以用如下方式

命令行下执行你的 exe程序 myexefileexe >> C:\outtxt

执行结果就保存在 C:\outtxt中了

在Delphi中如此调用 然后就可以到你指定的文件中找结果了用TStringList 加载个txt文件 简单又方便

所谓的静态调用DLL是指程序加载的时候直接就把需要的DLL全部加载了，一直到程序运行结束才释放这些加载的DLL这个就是所谓的静态加载,动态加载就是需要一个DLL中某个函数的时候加载这个DLL运行完成了这个函数就释放DLL，这个就是动态加载！

你要静态加载DLL就用Delphi自己写一个DLL，并且写一个引出库(pas的)，然后在你的应用程序中包含这个pas就根本不用声明DLL中那些乱七八糟的引出函数，直接用就可以了，如果该DLL不存在，那么整个应用程序将无法使用，但是动态调用DLL就不同了，就算DLL不在，应用程序仍然可以使用

访问DLL库有两种方式，一种是静态引用，另一种是动态引用。

用静态引用这种方法装入DLL要做两件事情：为DLL 库创建一个输入单元，以及用USES把输入单元连接到要使用DLL 函数的程序模块中。为DLL库创建的输入单元与普通的单元的区别仅在于：在它的接口处声明的过程、函数，并不在它的实现部分给出真正的实现代码，而是用external关键字把过程、函数的实现细节委托给外部DLL模块。

external命令的使用语法如下：

procedure /function 过程/函数名；external DLL模块名；

下面给出为上面创建的minmaxDLL库写的输入单元源文件testdll pas，从中可看出输入单元 与一般 单元的一些差别，代码如下所示：

unit testdll;

interface

uses

function Min (X, Y: Integer): Integer;

function Max (X, Y: Integer): Integer;

implementation

function Min; external ‘minmaxDLL’;

function Max; external ‘minmaxDLL’;

end

一个应用程序若想调用minmaxDLL中的函数，只须在其uses语句中加入testdll 单元即可。

动态装入DLL，要用到Windows的三个API函数。Loadlibrary、Freelibrary和GetprocAddress 。loadlibrary函数用来装入DLL库，其调用格式如下：

function loadlobrary (DLLfileName：Pchar): THandle:

当不再需要一个DLL库时，应调用FreeLibrary函数将其释放，以空出宝贵的内存资源，其调用格式如下：

procedure FreeLibrary (Libmodule:THandle)

Libmodule 为由LoadLibrary调用得到的DLL库句柄。在用loadlobrary 函数装入某个DLL库和调用FreeLibrary释放该DLL库之间的程序段中， 可以使用该DLL库中的过程和函数，

具体使用方法是：用GetprocAddress函数把DLL库中函数的地址传递给程序中某个函数变量，再用该变量实现DLL函数的调用。GetprocAddress函数声名如下，

function GetprocAddress (Libmodule:THandle:procname:pchar):TFarProc:

如下例所示：

type

TTimeRec = record

Second: Integer;

Minute: Integer;

Hour: Integer;

end;

TGetTime = procedure(var Time: TTimeRec);

THandle = Integer;

var

Time: TTimeRec;

Handle: THandle;

GetTime: TGetTime;

begin

Handle := LoadLibrary('DATETIMEDLL');

if Handle > 0 then

begin

@GetTime := GetProcAddress(Handle, 'GetTime');

if @GetTime > nil then

begin

GetTime(Time);

with Time do

WriteLn('The time is ', Hour, ':', Minute, ':', Second);

end;

FreeLibrary(Handle);

end;

end;

在调用动态链接库时应注意， 所需动态链接库须与应用程序在同一目录或Windows System 目录下。

静态调用

Function fun(para:Longint):Longint; stdcall; external 'xxxdll';

动态调用

loadlibrary,getprocaddress,freelibrary三个函数

（1）如果不涉及控件的函数或过程，请做成独立的单元文件供你的项目调用；

（2）如果涉及窗体中的控件，在调用窗体对应的单元文件的 “接口部分” 或者 “实现部分”用 uses将被调用的单元包含进去即可；

（3）delphi VCL项目必须有主窗体（可隐藏），除非你的项目是“控制台”程序（其实有dos窗体）。做成系统服务程序也许可以没有主窗体。

以上就是关于Delphi窗体互相调用全部的内容，包括:Delphi窗体互相调用、Delphi自定义函数声明及调用问题!、delphi 调用exe文件后怎么获得执行结果等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！