各位好, 小弟有一問題想請教各位大大. 我使用Indy 9.00.14 TCPServer元件, 於OnExecute event中呼叫vb所寫的dll檔, 如下: procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread); var GText, GValue: String; CObj: Variant; begin GText:= AThread.Connection.CurrentReadBuffer; if GText<>'' then begin CObj := CreateOleObject( 'Prj.Class' ); <== VB的dll CObj.ShowHello; <=VB的Method : end; end; 為何會出現CoInitialize尚未被呼叫? 但我加了CoInitialize(nil); ...CoUninitialize; 時卻又顯示OLE Error ? 請各位大大幫忙解惑, Thanks

已自行解決了

請問如何解決????使用xmldocument元件現在也遇到同樣的問題;

引言: 請問如何解決????使用xmldocument元件現在也遇到同樣的問題;

我改以TLB方法來處理 Ex: vb的dll為InterfaceTEST.DLL => 產生InterfaceTEST_TLB 宣告段: use Windows, Messages, SysUtils, Variants,......, InterfaceTEST_TLB; 程式段: procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread); var GText, GResult: WideString; CObj: _clsInterfaceTEST; begin GText:= AThread.Connection.CurrentReadBuffer; if GText<>'' then begin ... CoInitialize(Nil); CObj:= CoclsInterfaceTEST.Create; try GResult:=CObj.InterfaceTEST(GText); except end; CoUninitialize; AThread.Connection.WriteLn('Call VB DLL Return(' GResult ')'); end; end;