我做了个查询窗体,要编译成DLL文件格式,只给调用程序留个ADOConnection做为接口。
但接下来就不知道怎么办了。------------请指教-----

解决方案 »

  1.   

    不知道怎样写个过程来传递调用程序的ADOConnection信息
      

  2.   

    定义个全局的ADOConnection:
    var
      Connection:TADOConnection;function SetConnection(var aConnection:TADOConnection):Boolean;stdcall;
    begin
      try
        Connection:=aConnection;
        result:=True;
      except
        result:=False;
      end;
    end;
      

  3.   

    载入你的DLL

    var
      Connection:TADOConnection;
    function SetConnection(var aConnection:TADOConnection):Boolean;stdcall;
    begin
      try
        Connection:=aConnection;
        result:=True;
      except
        result:=False;
      end;
    end;