Nachrichten senden mit Winshoes

[Ati]

Hallo zusammen,

nachdem ich mich entschlossen habe nicht ICS zu verwenden (zu kompliziert für mich) möchte ich jetzt die Edit-felder per Winshoes versenden. Jedoch habe ich auch hier ein Problem. Mal der Quellcode vom Client und Server:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with clisock do begin
    try
    writeln(edit1.text);
    finally disconnect; end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  clisock.Connect;
  edit1.Text:='Connect';

end;

Server:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  memo1.Clear;
  srvsock.Active:=true;

end;



procedure TForm1.srvsockExecute(Thread: TWinshoeServerThread);
var s:string;
begin
  lbl2.Caption:=thread.Connection.ReadLn;

end;

procedure TForm1.srvsockConnect(Thread: TWinshoeServerThread);
begin
  lbl.Caption:='Connected';
end;

Als Fehlermeldung kommt dann der Anhang. Wie kann ich die Nachricht in einem Label oder Memofeld darstellen?

Danke Ati

[Robert Marquardt]

Ich wuerde auf die Nachfolgerkomponenten zu Winshoes wechseln. Indy.

[Ati]

D3 Prof. geht nicht mit Indy´s.

[Robert Marquardt]

Na dann sollte man eher in ein neues Delphi investieren. Die Standard-Versionen sind doch nicht so teuer.