Нужна помощь в вызове SDK - PullRequest
Новая
       36

Нужна помощь в вызове SDK

0 голосов
/ 02 июля 2019

Может ли кто-нибудь помочь мне преобразовать код VB.NET в Delphi?

У меня есть код VB для вызова команды SDK: 

Public Class UserInfo

Public axCZKEM1 As New zkemkeeper.CZKEM
Private bIsConnected = False

Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
    bIsConnected = AxCZKEM1.Connect_Net(txtIP.Text.Trim(), Convert.ToInt32(txtPort.Text.Trim()))
    If bIsConnected = True Then
        MsgBox("Connected")
    end if

Я пытаюсь сделать то же самое в Delphi, но при вызове устройства произошла ошибка: 

public axCZKEM1:TCZKEM;
public bIsConnected:boolean;

procedure button.click()
begin
  bIsconnected := axCZKEM1.connect_net('IP', port);
  if bIsconnected = true then begin
    showmessage('Connected');
  end
end
...