idtcpclient dissconnected

[the_seed]

hi das ist ganz einfach
ich weiss nicht wie du es gemacht hast aber hier wie mans machen könnte

Code:

client:

procedure TForm1.Button1Click(Sender: TObject);

begin

  idtcpclient1.host:=edit1.text;
  idtcpclient1.port:=strtoint(edit2.text);
  try
  idtcpclient1.connect;
  except ...

procedure TForm1.Button1Click(Sender: TObject);
var ergebnis:string;
begin
    try
   form1.idtcpclient1.writeln('existiertdatei');
    form1.idtcpclient1.writeln('c:\autoexec.bat');
      ergebnis:= form1.idtcpclient1.readln;
      except ...

------------------------------

server

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var a,pfad:string;

begin
   a:=athread.connection.readln;

     if a='existiertdatei' then begin
      pfad:=athread.connection.readln;
        if fileexists(pfad) then athread.connection.writeln('positiv')
          else
        athread.connection.writeln('negativ')
        end
         
        else ....

sollte funktionieren