Guten Tag,
ich erhalte folgende exeption: "Asynchroner Socketfehler 10061"
ich habs auf Windows 2000 Prof, Windows XP Home Edition & Windows XP Prof. getestet (bei XP ist die Standard-Firewall deaktiviert)
Aus dem
PSDK:
Zitat:
WSAECONNREFUSED
(10061)
Connection refused.
No connection could be made because the target machine actively refused it. This usually results from trying to connect to a service that is inactive on the foreign host—that is, one with no server application running.
Und hier die sinngemässe deutsche Übersetzung der Fehler-Beschreibung (
Winsock Fehlermeldungen):
Zitat:
10061 WSAECONNREFUSED Angerufener möchte keinen Verbindungsaufbau
Hier mein Server-Code:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp;
type
TForm1 =
class(TForm)
Button1: TButton;
Edit1: TEdit;
Client: TClientSocket;
Server: TServerSocket;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
strCommand:
string;
begin
begin
Server.Port:=44044;
Client.Port:=44044;
Client.Host:=Edit1.Text;
// Client-IP z.b.: 192.168.0.1
Server.Open;
Client.Open;
strCommand:='
Command1';
if Client.Active = true
then
begin
Client.Socket.SendText(strCommand);
end;
Client.Close ;
Server.Close ;
strCommand:= '
';
end;
end;
end.
Leider habe ich noch keine Lösung für dieses Problem gefunden.
gruß xpmstos