Einzelnen Beitrag anzeigen

AJ_Oldendorf

Registriert seit: 12. Jun 2009
385 Beiträge
 
Delphi 12 Athens
 
#1

Probleme mit TIdTCPClient / TIdTCPServer

  Alt 2. Aug 2012, 12:08
Hallo zusammen,
ich habe folgendes Problem.

Ein Scanner schickt beim Lesen einer Nummer ein String über TCP/IP.
Mit Hyperterminal habe ich eine Verbindung zu dem Gerät aufgenommen (Eingabe der IP des Gerätes und des Ports) und ich sehe die gelesenen Nummern.
Am Gerät selber kann ich nicht sagen, an welche IP er den gelesenen String schicken soll sondern nur ein Port kann man da einstellen.

Jetzt bin ich mir ehrlich gesagt nicht ganz sicher ob ich ein Client oder Server auf meinem PC nehmen muss, um die Daten zu empfangen.
Ich habe es mit dem TIdTCPClient versucht. Leider bekomme ich kein Text angezeigt.
Code sieht so aus:

Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not IdTCPClient1.Connected then
    IdTCPClient1.Connect;

  if IdTCPClient1.Connected then
  begin
    IdTCPClient1.ReadTimeout := 250;
    Memo1.Text := IdTCPClient1.IOHandler.ReadLn();
  end;

  if IdTCPClient1.Connected then
    IdTCPClient1.Disconnect;
end;
Oder welches Event müsste ich denn nehmen um die Daten abzufragen?

Gruß
Alex
  Mit Zitat antworten Zitat