Delphi开发的DLL与VC通信问题
用Delphi制作的DLL，导出一个接口的实现
ITest = interface
procedure SetInt(Value: Integer); stdcall;
function GetInt(Value: Integer): Integer; stdcall;
end;
TTest = class(TInterfacedObject, ITest)
procedure SetInt(Value: Integer); stdcall;
function GetInt(Value: Integer): Integer; stdcall;
end;
function Get: ITest;
begin
Result := TTest.Create;
end;
