Sendtext-Problem ..

[Christian Seehase]

Moin Hanswurst,

also so funzt das bei mir:

Delphi-Quellcode:

// Senden
procedure TForm1.Button1Click(Sender: TObject);
begin
  idTCPClient1.Connect;
  if idTCPClient1.Connected then begin
    try
      idTCPCLient1.OpenWriteBuffer;
      try
        idTCPClient1.WriteLn(Edit1.Text);
      finally
        idTCPClient1.CloseWriteBuffer;
      end;
    finally
      idTCPClient1.Disconnect;
    end;
  end;
end;

// Empfang
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
   Edit2.Text := AThread.Connection.ReadLn;
end;