so dafür hab ich jetzt eine lösung geschieben es gibt zwar bestimmt iwas besseres aber bei mir funzt es so
client:
Delphi-Quellcode:
procedure tform1.send_sl(als:string);
var
i:integer;
begin
IdTCPClient_strings.Host:=Edit1.text;
IdTCPClient_strings.connect;
if (als='') then
begin
als:='end?';
end;
sl.Add('end?'+als);
for I := 0 to sl.Count - 1 do
begin
IdTCPClient_strings.IOHandler.WriteLn(sl[i]);
end;
IdTCPClient_strings.disconnect;
end;
server:
Delphi-Quellcode:
procedure TForm1.IdTCPServer_stringsExecute(AContext: TIdContext);
var
s_z_speicher,s_read,s_command:string;
sl2,sl:tstringlist;
i:integer;
begin
sl2:=tstringlist.create;
sl.Clear;
sl2.Clear;
s_z_speicher:='';
while (s_z_speicher<>'end') do
begin
s_read:=AContext.Connection.IOHandler.ReadLn;
s_z_speicher:=copy(s_read, 1, pos('?',s_read) - 1); // vor ?
s_command:=copy(s_read, pos('?',s_read) + 1, length(s_read)); // nach ?
sl2.Add(s_read);
end;
for I := 0 to sl2.count - 2 do
begin
sl.Add(sl2[i]);
end;
end;
das als:
procedure tform1.send_sl(als:string);
damit wird dann in der letzten zeile mitgeschickt, was mit der sl gemacht werden soll
ich hoffe es hilft ijemanden
mfg gandime