Y
yanyandt2
Unregistered / Unconfirmed
GUEST, unregistred user!
我用 d6
procedure TForm1.Button1Click(Sender: TObject);
var
test: variant;
begin
test := CreateOleObject('Project1.TAM');
// project1 是 建立 com 时的工程的名字,也就是 dll 的名字
// TAM 是类的名字
test.Method1;
end;
对了,COM的线程模式必须选成 single
procedure TForm1.Button1Click(Sender: TObject);
var
test: variant;
begin
test := CreateOleObject('Project1.TAM');
// project1 是 建立 com 时的工程的名字,也就是 dll 的名字
// TAM 是类的名字
test.Method1;
end;
对了,COM的线程模式必须选成 single