Как в ActiveX написанный в Delphi передать коннект [D5, MSSQL]
VladimirTU © (2002-03-13 14:43:00)
Народ, подскажите, как в ActiveX написанный в Delphi передать
ADOBD.Connection из Visual Basic 6.0
kig (2002-03-13 15:32:00) [1]
Примерно так
vb
Dim cnt As ADODB.Connection
Set cnt = CreateObject("ADODB.Connection")
cnt.ConnectionString = "Строка коннекта"
Dim p As Object "Это ActiveX на Дельфи
Set p = CreateObject("Project1.ggg")
Set p.Connect = cnt
Это Дельфи ActiveX (inproc)
unit Unit1;
interface
uses
ComObj, ActiveX, Project1_TLB, StdVcl, ADODB_TLB;
type
Tggg = class(TAutoObject, Iggg)
protected
procedure Set_Connect(const Value: _Connection); safecall;
{ Protected declarations }
end;
implementation
uses ComServ, Dialogs;
procedure Tggg.Set_Connect(const Value: _Connection);
begin
ShowMessage(Value.ConnectionString);
end;
initialization
TAutoObjectFactory.Create(ComServer, Tggg, Class_ggg,
ciMultiInstance, tmApartment);
end.
В tlb ActiveX включено использование ADODB tlb.
Наверх 
ЧАТ |
Орешник |
|
