TCP/ASCII - Protocoll2000/3000 über Indy

[MondoShiva]

Richtig handelt sich um die Kramer Protocolle.

Bevorzugen würde ich Protocol 3000 jedoch ein Auswahlverfahren wäre klasse, da man die Geräte im Protocol bereich wechseln kann.

Geräte sind es extrem viele die ich damit steuern will aber zu Beginn würde ein VS-42HN ausreichen um den Syntax des Codes ins Hirn zu bekommen ^^.

Ein Beispiel wäre:
#VID 1>1

damit würde ich über Prtotocol 3000 eingang 1 zu ausgang 1 routen.

Hatte bislang gehofft das ganze als einen String zu übermitteln entsprechend sieht mein Code aus

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject); begin
   if not IdTCPClient1.Connected then
IdTCPClient1.Connect
else
Panel1.Color := clGreen;

     ListBox1.Items.AddObject('Gerät: ' +Label2.Caption, Pointer(clGreen));
     ListBox1.Items.AddObject('IP: '+ Form3.Edit2.Text, Pointer(clGreen));
     ListBox1.Items.AddObject('Port: '+ Form3.Edit1.Text, Pointer(clGreen));
     ListBox1.Items.AddObject('Nachricht: ' + Edit1.Text, Pointer(clGreen));
     ListBox1.Items.AddObject('', Pointer(clGreen));

        IdTCPClient1.Socket.Write(Length(edit1.text));
        IdTCPClient1.Socket.Write(Edit1.Text);

IdTCPClient1.Disconnect;
Sleep(500);
Panel1.Color := clRed;

end;