Ich habe ein Problem mit den Socket Komponenten. Ich habe zwei miteinander vernetzte Computer. Auf einem läuft der Client:
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
| procedure TForm1.Button1Click(Sender: TObject); begin ClientSocket1.Address := Edit1.Text; ClientSocket1.Active := true; end;
procedure TForm1.Button2Click(Sender: TObject); begin Clientsocket1.Socket.Sendtext( 'Hello World'); end; |
Auf dem anderen der Server:
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
| procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket); begin ShowMessage('Client has connected!'); end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); begin ShowMessage( Socket.ReceiveText); end; |
Wenn ich nun versuche, eine Verbindung herzustellen, sprich, ein Klick auf Button1, erhalte ich folgenden Fehler:
Asynchronous socket error 10049.
Ich bitte um Hilfe
.