Indy TCP client empfangene Daten ausgeben

[stalkingwolf]

Mit readln sollte es gehen

[fox67]

hab ich auch schon probiert macht kein Unterschied das Programm reagiert nicht mehr sobald man connected

[stalkingwolf]

Ich benutze selber immer noch einen TThread der sich um das Thema kümmert, damit die Hauptanwendung nicht blockiert wird.

Delphi-Quellcode:

TClientHandleThread = class(TThread)
  private
    msg : string;
    procedure HandleInput;
    protected
    procedure Execute; override;
  end;

procedure TClientHandleThread.HandleInput;
begin
    addlog(msg);
end;

procedure TClientHandleThread.Execute;
begin
    while not Terminated do begin
        if fmain.myindytcpClient.Connected then begin
            try
                msg:=fmain.myindytcpClient.ReadLn;
                Synchronize(HandleInput);
            except
            end;
        end;
    end;
end;

procedure fmain.myindytcpClientDisconnected(Sender: TObject);
begin
    try
        ClientHandleThread.Terminate;
    except
    end;
end;

und beim connecten auf den Server

Delphi-Quellcode:

ClientHandleThread := TClientHandleThread.Create(True);
                    ClientHandleThread.FreeOnTerminate := True;
                    ClientHandleThread.Resume;

Woher kommen die Daten denn?

[fox67]

Zitat von stalkingwolf:

Ich benutze selber immer noch einen TThread der sich um das Thema kümmert, damit die Hauptanwendung nicht blockiert wird.

Delphi-Quellcode:

TClientHandleThread = class(TThread)
  private
    msg : string;
    procedure HandleInput;
    protected
    procedure Execute; override;
  end;

procedure TClientHandleThread.HandleInput;
begin
    addlog(msg);
end;

procedure TClientHandleThread.Execute;
begin
    while not Terminated do begin
        if fmain.myindytcpClient.Connected then begin
            try
                msg:=fmain.myindytcpClient.ReadLn;
                Synchronize(HandleInput);
            except
            end;
        end;
    end;
end;

procedure fmain.myindytcpClientDisconnected(Sender: TObject);
begin
    try
        ClientHandleThread.Terminate;
    except
    end;
end;

und beim connecten auf den Server

Delphi-Quellcode:

ClientHandleThread := TClientHandleThread.Create(True);
                    ClientHandleThread.FreeOnTerminate := True;
                    ClientHandleThread.Resume;

Woher kommen die Daten denn?

Hab ich oben schon geschrieben. Hier ist ein Manual zu dem Server

[Mavarik]

Zitat von fox67:

Hab ich oben schon geschrieben. Hier ist ein Manual zu dem Server

Und jetzt sollen wir gemäß der Docu für Dich die Routine schreiben?

[mjustin]

Zitat von fox67:

Hallo
ich würde gerne mit delphi Datenpakete die von einem TCP server versendet werden empfangen und in einer Memo ausgeben. Die Daten sehen so aus wie in diesem Manual Seite4. Die Daten werden konstant ohne Unterbrechung gesendet.

Mit Wireshark könnte man nachschauen, was tatsächlich gesendet wird. Eventuell wird ein anderer Zeilenseparator verwendet als bei ReadLn.

Oder ohne Wireshark: einfach in einer Schleife Byte für Byte lesen und ausgeben. Dann könnte man den Datenstrom im Debugger einfach mitlesen.