Question

我正在使用lazarus和nodave组件，我想读取数字输入的状态，例如I45.6我通过以太网连接，据我所知，我有一个连接，CPU在插槽3中，通信卡是插槽5.

为此，我尝试使用GetBit函数。

begin
IF
  nodave1.GetBit(45,6)
then
  showmessage('got it')
else
  showmessage('not got it')
end;

但无论我做什么我都无法得到回应。我不确定它是否是组件属性或其他东西。

这里是完整的代码，组件设置为Area = daveinputs和protocol = protoISOTCP

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Spin,
  StdCtrls, NoDaveComponent;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    NoDave1: TNoDave;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure NoDave1Connect(Sender: TObject);
    procedure NoDave1Disconnect(Sender: TObject);
    procedure NoDave1Read(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  nodave1.CPURack:=spinedit1.Value;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  nodave1.Active:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  nodave1.Disconnect;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if
nodave1.GetBit(46,5,nil,0,0)
then
showmessage('got it')
else
showmessage('dont got it')
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  nodave1.IPAddress:=edit1.text;
end;

procedure TForm1.NoDave1Connect(Sender: TObject);
begin
form1.Caption:='connected'

end;

procedure TForm1.NoDave1Disconnect(Sender: TObject);
begin
  form1.caption:='disconnected';
end;

procedure TForm1.NoDave1Read(Sender: TObject);
begin

end;

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
  nodave1.CPUSlot:=spinedit2.Value;
end;

end.

Answer 1

我在C和Delphi中触及libNoDave已有8年了，但我的猜测是你正在解释CPU和以太网卡的插槽号错误。我查看了我的20多个PLCs libnodave连接参数，它们都在插槽0中有CPU，在插槽2,3或5中都有以太网卡。这与您的设置相比有很大的不同。您是否计算电源占用2个插槽？你不应该。在\ DelphiComponent \ Demo \ Lazarus目录中有一个TNoDave测试实用程序，您可以编译。运行该可执行文件，首先建立与PLC的成功连接，并获得一些良好的实时读数。在该实用程序中未实现读取位，但您可以从I45读取整个字节。建立连接后，将连接参数从此实用程序复制到代码中并使用它读取位应该是微不足道的。

libnodave getbit函数没有返回任何值

1 个答案: