Скачать: CL | DM;

Как в ActiveX написанный в Delphi передать коннект   Найти похожие ветки 

← →
VladimirTU   (2002-03-13 14:43) [0]

Народ, подскажите, как в ActiveX написанный в Delphi передать ADOBD.Connection из Visual Basic 6.0

---

← →
kig   (2002-03-13 15:32) [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.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c