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
