Hmmm. Vielleicht habe ich dieses Thema ja falsch angefangen. Wollen wir das ganze doch mal mit Leben füllen. Was ich vor habe habe ich ja bereits geschrieben. Hier mal der Qulettext vom CLient.
Button "Connect":
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
clsock.Addr:='
127.0.0.1';
clsock.Port:='
9999';
clsock.Proto:='
tcp';
clsock.Connect;
end;
Button Disconnect:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
clsock.Close;
end;
Button "Send":
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var text:string;
begin
text:= edit1.Text;
clsock.SendStr(text);
end
Der Client scheint ja auch einwandfrei zu fuktionieren. Das Problem liegt beim Empfänger.
Benutz wird hier TWSocketServer:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
srvsock.Listen;
end;
procedure TForm1.srvsockClientConnect(Sender: TObject;
Client: TWSocketClient; Error: Word);
begin
label1.Caption:='Connect';
memo1.Clear;
memo1.Text:='Warte auf Daten!!';
end;
procedure TForm1.srvsockDataAvailable(Sender: TObject; Error: Word);
var text:String;
begin
label1.Caption:= srvsock.ReceiveStr;
end;
procedure TForm1.srvsockClientDisconnect(Sender: TObject;
Client: TWSocketClient; Error: Word);
begin
label1.Caption:='Disconnect';
memo1.Clear;
memo1.Text:='Dann eben nicht';
end;
Ich ahbe es aber auch schon mit dem Ereignis-"SessionAvailable" versucht. Ebenfalls ohne Erfolg.
Wo ist also mein Fehler??? Ach ja da wir so nett ülaudern wollte ich Euch noch nach Eurer Meinung fragen ob ich mit ICS eine gute Wahl getroffen habe oder würdet ihr mir lieber "Winshoes" empfehlen (achtet auf meine Verison). Ich habe nämlich hier so rausgehört, das ICS zumindest besser sein soll als "Winshoes". Bin wie immer für jeden Tip dankbar.
Ati