如何调用COM?

Question

我也正在学习com，共同努力。

Answer 1

看李维的那本书，下面就是我照书上抄给你的，
procedure TForm1.Button1Click(Sender: TObject);
var
   LoginObj :ImtssecurityObj;
   vCookie  :Olevariant;
begin
   application.ProcessMessages;
   
   Loginobj:=ComtsSecurityObj.CreateRemote('Gordon');
   LoginObj.login(edit1.text,edit2.text,vCookie);
   if (vCookie<>'') then
   begin
      edit3.text:=vCookie;
      edit3.Visible :=true;
   end
   else
    showmessage('invalid login');
end;