各位,
小弟要写个动态连库,其中一个参数是ADOConnection对想象! 目前:function GetStreamNo(ADOConn : TADOConnection):integer;stdcall; 这只能保证Delphi编写的程序正确调用,但如果对方使用VC编写,将数据连接对象传递给我,我将如何书写这个接口! 谢谢!
小弟要写个动态连库,其中一个参数是ADOConnection对想象! 目前:function GetStreamNo(ADOConn : TADOConnection):integer;stdcall; 这只能保证Delphi编写的程序正确调用,但如果对方使用VC编写,将数据连接对象传递给我,我将如何书写这个接口! 谢谢!
TADOConnection 是delphi, 也就是VCL 獨有的, VC應該不可用
function GetStreamNo(ADOConn : _Connection ): integer;stdcall;
var
mvarADOConn : TADOConnection;
begin
mvarADOConn.ConnectionObject := IunKnown(ADOConn) as _Connection; //总是出错!
end;
谢谢!