Hi,
ich möchte mittels Client/Server-Socket Strings übers Netzwerk verschicken.
Dazu hab ich folgenden Code:
ServerSocket:
Delphi-Quellcode:
procedure Tfrmmain.FormCreate(Sender: TObject);
begin
list:=tstringlist.Create;
server.Port:=10024;
server.Open;
list.Append(formatdatetime('dd.mm.yyyy-hh:mm:ss',now)+' - Server gestartet');
memmain.Lines:=list;
list.SaveToFile('mcserver.log');
end;
procedure Tfrmmain.ServerClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
list.insert(0,formatdatetime('dd.mm.yyyy-hh:mm:ss',now)+' - Client verbunden');
memmain.Lines:=list;
list.SaveToFile('mcserver.log');
end;
procedure Tfrmmain.ServerClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
memmain.Lines.Insert(0,server.socket.ReceiveText);
end;
Client:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
if client.Active=false then
begin
client.Host:='127.0.0.1';
client.Port:=10024;
client.open;
button2.Caption:='Disconnect';
end
else
begin
client.Close;
button2.Caption:='Connect';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if client.Active=true then
client.Socket.SendText(edit1.Text);
end;
Das Verbinden funktioniert, auch das Trennen auf die gleiche Weise aber beim Senden bekomm ich immer nen Fehler, dass der Socket nicht verbunden ist und keine Adresse angegeben wurde.
Was mach ich falsch???