Sebastian Wramba
Erfahrenes Mitglied
Hi zusammen,
ich schon wieder... habe einen Server und einen Client, die per Indy-TCP verbunden sind. Verbindung steht, etc. alles wunderbar. Nun soll der Server aber die 4 Zeilen, die er in der Listbox hat, an den Client schicken, wenn dieser diese Daten anfordert. Es funktioniert fast, aber leider nur fast. Es wird nur die erste Zeile in die Liste eingetragen. Woran liegt's?
Server:
Client:
Danke im Voraus,
MfG Sebastian
ich schon wieder... habe einen Server und einen Client, die per Indy-TCP verbunden sind. Verbindung steht, etc. alles wunderbar. Nun soll der Server aber die 4 Zeilen, die er in der Listbox hat, an den Client schicken, wenn dieser diese Daten anfordert. Es funktioniert fast, aber leider nur fast. Es wird nur die erste Zeile in die Liste eingetragen. Woran liegt's?
Server:
Code:
procedure TForm1.TCPServerExecute(AThread: TIdPeerThread);
var i: integer;
begin
with AThread.Connection do
begin
if(ReadLn = 'GetFile') then
begin
for i := 0 to itemslist.Items.Count do
begin
WriteLn(itemslist.Items[i]);
end;
end;
end;
end;
Client:
Code:
procedure TForm1.btGetListClick(Sender: TObject);
var StringList: TStrings;
begin
StringList := TStringList.Create;
with TCPClient do begin
WriteLn('GetFile');
StringList.Add(ReadLn);
lstMain.Items.Assign(StringList);
end;
end;
Danke im Voraus,
MfG Sebastian