Dag,
momenteel ben ik in bezit van een IT1 industrial weighing terminal.
Graag zou ik het gewicht willen uithalen die op de display staat.
Hiervoor gebruik ik TCPClient.
Volgens de uitleg in de pdf
zou ik een 'RN1' moeten versturen om zo data te verkrijgen.
Een verbinding met IT1 heb ik kunnen opzetten met de TCPClient.
Maar bij een poging om data optehalen, dan moet ik blijven wachten.
Waarschijnlijk moet ik op de IT1 iets uitvoeren, maar kan het niet weten wat ik verkeerd opzet.
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
Buffer : TIdBytes;
begin
self.Memo1.Lines.Clear;
self.IdTCPClient.Host := edtIp.Text;
self.IdTCPClient.Port := StrToInt(edtPort.Text);
self.IdTCPClient.Connect;
if self.IdTCPClient.Connected then
begin
self.Memo1.Lines.Add('connected');
self.IdTCPClient.IOHandler.Write('RN1');
self.IdTCPClient.IOHandler.InputBuffer.Clear;
self.IdTCPClient.IOHandler.ReadBytes(Buffer, 100); // <-- hier wordt er gewacht, maar weet niet waarom
end;
self.IdTCPClient.Disconnect;
end;
Iemand kennis met de IT1 industrial weighing terminal?
Bookmarks