hab da ein Client Server Prog geschrieben das nur einen Text
am Server in einen Memofeld ausgeben soll.
Die zwei Prog. lassen sich ohne Fehler kompilieren, aber
der Text wird im Memofeld nie angezeigt.
server code:
Code:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
MSG: String;
begin
//Der Text wird in der Variable MSG gespeichert
MSG:=Socket.ReceiveText;
//Der Text wird einem MemoFeld hinzugefügt
Memo1.Lines.Add(MSG);
end;
client code:
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
Clientsocket1.Socket.SendText('Hallo!');
end;
Die Portnummer habe ich bei jeden Komponenten auf 10055 gestellt.( Eigenschaften )
Und die Eigenschaft Host im Client auf 127.0.0.1.
??? muß ich noch was ein bzw umstellen ?????
mfg Vader
[edit=sakura] Code-Tags korrigiert. Mfg, sakura[/edit]