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