H
happy_hsr
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var BoolFlag:Boolean;
KQDLL:OleVariant;
begin
kqdll:=createoleobject('KQCONNECT.Connect');////////这句总出错! 提示:无效的类别字符串
if kqdll.setport(1) then showmessage('OK') else showmessage('NO');
end;
var BoolFlag:Boolean;
KQDLL:OleVariant;
begin
kqdll:=createoleobject('KQCONNECT.Connect');////////这句总出错! 提示:无效的类别字符串
if kqdll.setport(1) then showmessage('OK') else showmessage('NO');
end;