vb翻译成DELPHI报错解决方案

2013-03-22

vb翻译成DELPHI报错VBDim objApi As ObjectDim objApp As ObjectDim Server As StringDim PortAs LongDim

vb翻译成DELPHI报错
VB

Dim objApi As Object
Dim objApp As Object

Dim Server As String
Dim Port  As Long
Dim Password As String
Dim UserName As String

Server = txtServer.Text
Port = txtPort.Text
Password = txtPassword.Text

Set objApi = CreateObject("RTXClient.RTXAPI")

On Error GoTo ProcedureName_Err

Set objApp = objApi.GetObject("KernalRoot")
objApp.Login Server, Port, txtUsername.Text, Password  ' 传入服务器地址,端口,用户名,密码  登陆

ProcedureName_Err:
    If Err.Description <> "" Then
        MsgBox "Error # " & CStr(Err.Number) & " " & Err.Description
        Err.Clear
    End If

Set objApi = Nothing

End Sub

DELPHI

var
  objapi,objapp:Olevariant;
  Server,Username,Password: string;
  Port :Integer;
begin
  Server := '192.168.176.7';
  Port := 8000;
  Password := '';
  Username := 'zxc';

  objapi := CreateOleObject('RTXClient.RTXAPI');
  objapp := objapi.GetObject('KernalRoot');
  objApp.Login(Server,Port,Username,Password);
  objAPI := Unassigned;

objApp.Login(Server,Port,Username,Password);这句报未指定的错误
[解决办法]
Better import RTXClient ActiveX to delphi and import wizard will create the wrapper unit via which you can see what methods are exposed.

//Ali

热点排行

.NET

vb翻译成DELPHI报错解决方案