请教这个.

[paranoia190]

DLL的INTERFACE问题.
DLL文件:
1.主体部分
type
TA = class(TInterfacedObject,IA)
private
FA : PChar;
Public
Constructor Create(value : pchar);
Function GetData: PChar;stdcall;
end;

implementation

Constructor Ta.Create(Value : PChar);
begin
FA := Value;
Inherited create;
end;

Function TA.GetData: pchar;
begin
Result := FA;
end;

接口部分:

type
IA = interface
['{C143B447-4F9D-475A-B33B-182916F05DEC}']
Function GetData: PChar;stdcall;
end;

输出部分:
function GetA(value : PChar) : IA;export;
begin
Result := TA.Create(value);
end;

exports
GetA;



EXE调用DLL部分
var
HD : Cardinal;
GetTa : function(value : PChar) : IA;
tmp : IA;
begin
try
HD := LoadLibrary('Project1.Dll');
if hd > 32 then
begin
GetTa := GetProcAddress(HD,'GetA');
tmp := GetTa(PChar('aaa'));
memo1.Lines.Add(StrPas(tmp.GetData));
end
else
memo1.Lines.Add('DLL Load Error~')
finally
FreeLibrary(HD);
end;

调用的时结果正常返回.但报错误..

[paranoia190]

我顶啊.

[paranoia190]

我再顶啊!

[paranoia190]

靠.顶不住了/

[王集鹄]

procedure TForm1.Button1Click(Sender: TObject);
var
HD: Cardinal;
GetTa: function(Value: PChar): IA;
tmp: IA;
begin
HD := LoadLibrary('InterfaceLib.dll');
try
if hd > 32 then
begin
GetTa := GetProcAddress(HD,'GetA');
tmp := GetTa(PChar('aaa'));
Memo1.Lines.Add(StrPas(tmp.GetData));
tmp := nil; // <<<<< 完全蒙的，道理你自己想吧
end else Memo1.Lines.Add('DLL Load Error~')
finally
FreeLibrary(HD);
end;
end;

[paranoia190]

哈哈.我前几天就想到了...呵呵
还是谢谢你.

[paranoia190]

再问你个问题.我不是很明白.
adoconnection.connected := true
数据库中连接多一条.
adoconnection.connected := false;
数据库中连接未断开

adoconnection.free;连接断开..
为什么.这个想不明白.