Indy TCPclient Disconnect Problem

[th_bone]

Hi,

habe gerade das Problem gefunden...

ich habe einen timer der auf Messages vom Server reagieren soll...

Delphi-Quellcode:

procedure TForm1.TimerGetMessageTimer(Sender: TObject);
var
  Msg, MsgStr : String;
  MsgCom   : Integer;
begin
  // wenn nicht connected
  if not TCPClient.Connected then exit;

  Msg := TCPClient.iohandler.ReadLn('', 5);

  if Msg<>'' then begin
    MsgCom :=strtoint(Msg[1]);
    MsgStr :=trim(Msg);
    delete(MsgStr,1,1);

    case MsgCom of
     stERROR       : begin
                     end;
     stMessage     : begin
                       MemoAdd(MsgStr);
                     end;
    end;
  end;
end;

und das "TCPClient.iohandler.ReadLn('', 5);" scheint die connection clientseitig
am leben zu halten...

Lösung:

Delphi-Quellcode:

procedure TForm1.BTconnectClick(Sender: TObject);
begin
  if TCPclient.Connected=false then begin
    TCPClient.Create.Host := '127.0.0.1';
    TCPClient.Create.Port := 17125;
    TCPClient.create.Connect;
    timergetmessage.Enabled:=true;
  end else begin
    timergetmessage.enabled:=false;
    TCPClient.Disconnect;
  end;
end;

Tschö

Ralf

@Florian Bernd: ich glaube wir sind die einzigen die mit Indy10 herumexperimentieren...