给分!以下例子返回com中的TNdi类com:dll的pas:type TNdi = class //TForm类我没试过,自己试 myString: PChar;
procedure LoadForm;
//也可以在这里创建Form end;
function GetNdiClass: TNdi;
stdcall;
export;dll的dpr:exports GetNdiClass;使用(客户端):type TNdi = class myString: PChar;
procedure LoadForm;
end;
function GetNdiClass: TNdi;
stdcall;
external NdiDll;...........var Ndi: TNdi;
begin
Ndi := GetNdiClass;
Ndi.LoadForm;
end;