hi, es ist zum verzweifeln ich komme einfach nicht auf den fehler
vielleicht kann mir hier jmd weiterhelfen....
ich habe einen idtcp server mit einer listbox in der die laufenden prozesse stehen und ein clienten der diese prozesse abrufen und wieder in einer lkistbox ausgeben soll.
Code:
[u]server:[/u]
var anzahl:integer;
a :string;
begin
a:=athread.connection.readln;
if a='prozess' then begin
try
prozesse(ListBox1.items); //prozesse ist die function...
anzahl:=listbox1.count;
athread.connection.writeln(inttostr(pro));
for i:=1 to anzahl do athread.connection.writeln(listbox1.items[i]);
listbox1.clear;
except showmessage('Fehler');
end;
end
-------------------
[u]client:[/u]
var i:integer;
a:string;
begin
try
listbox1.Clear;
form1.idtcpclient1.writeln('prozess');
a:=form1.idtcpclient1.readln;
for i:=2 to strtoint(a) do listbox1.Items.add(form1.idtcpclient1.readln);
except showmessage('Fehler');
end;
[edit] wenn ich connecte kann ich sie abrufen aber sobal ich disconnected hab und nochmal connecte funktioniert es nicht [/edit]