Hallo,
ich habe ein Problem mit einer Server-Socket Verbindung:
Ich habe eine Server-Applikation und eine Client-Applikation.
Hier der Server:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
ip.caption:=Watch.LocalIP;
Server.Open;
end;
procedure TForm1.ServerClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Passiert.Lines.Add('
Verbunden ('+TimeToStr(Now)+'
)');
end;
procedure TForm1.ServerClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Passiert.Lines.add('
Gestartet ('+TimeToStr(Now)+'
)')
end;
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Server.active:=False;
end;
und hier der Client:
Delphi-Quellcode:
procedure TForm1.ConnectClick(Sender: TObject);
begin
CLient.Host:=
ip.text;
client.Active:=True;
Client.open;
Start.enabled:=True;
Passiert.Lines.Add('
Verbunden ('+TimeToStr(Now)+'
)');
end;
procedure TForm1.StartClick(Sender: TObject);
begin
Client.Socket.SendText('
start');
Passiert.Lines.add('
Gestartet ('+TimeToStr(Now)+'
)')
end;
Beide laufen auf Port 8181 und ich möchte mich jetzt mit der Clientapplikation bei der Serverapplikation anmelden und "Start" schicken.
Bisher laufen beide Programme auf einem PC und wenn ich auf Verbinden klicke kommt folgender Fehler:
Asynchroner Socketfehler: 10049
Wo ist hier der Fehler?
Viele Grüße!