TStrings senden/empfangen über Indy

[Delphi Nub]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: tstrings;
begin
  sl := tstrings.Create;
  sl.add(Edit1.text);
  sl.add(Edit2.text);
  sl.add(Edit3.text);
  with IdTCPClient1 do
  begin
  connect;
  writestrings(sl); //TStrings senden
  disconnect;
  sl.Free;
  
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
IdTCPServer1.Active:=True;
end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var sl: tstrings;
begin
with AThread.Connection do
begin
sl:=tstrings.create;
readstrings(sl);
memo1.Lines:=sl;
sl.Free;
end;
end;

wo liegt der Fehler oder wie kann ich es besser machen?

ich will 3 od. 4 Edits auf einmal via indy TCP senden und empfangen.

[sakura]

So auf die Schnelle würde ich sagen:

Code:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var sl: tstrings;
begin
with AThread.Connection do
begin
sl:=tstrings.create;
readstrings(sl);
[color=#ff003f]memo1.Lines.Assign(sl);[/color]
sl.Free;
end;
end;

...:cat:...

[supermuckl]

ich würde statt

sl := tstrings.Create;

die Tstringlist benutzen:

sl := tstringlist.Create;

aber in der deklaration trotzdem Tstrings verwenden

so hats bei mir geklappt

[Delphi Nub]

@ supermuckl
Danke für den Tipp aber es funst noch nicht. Ich bekomme keine Fehlermeldung aber es geht noch nicht. Habe meinen Indy Versuch mal geuppt.

[Delphi Nub]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: tstrings; i:integer;
begin
  sl := tstringlist.Create;
  sl.add(Edit1.text);
  sl.add(Edit2.text);
  sl.add(Edit3.text);
  with IdTCPClient1 do
   begin
    connect;
    writestrings(sl,true);
    disconnect;
    sl.Free;
   end;
end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var sl: tstrings;
begin
  with AThread.Connection do
   begin
    sl:=tstringlist.Create;
    readstrings(sl);
    memo1.Lines.Assign(sl);
    sl.free;
   end;
end;

So funst es ... selbst ist der Nub.

[Luckie]

Du gibst die Stringliste nicht wieder frei.

[Delphi Nub]

Bessersch*** :roll:
:wink: Danke