Netzwerk Programm funzt net im I-Net

Paddymann · Beiträge: 58 Delphi 5 Professional

Hi!
Ich möchte einen Chat programmieren. Dazu habe ich erstmal ganz banal angefangen wie man unten sieht(weil ich Probleme erwartet habe). Im Netzwerk funktionieren Server und Client prima (Label1 wird zu Connected). Wenn ich das jetztz allerdings über das Internet probiere bekomme ich den Fehler "Asynchroner Socket-Fehler 10061". Ich muss dazu sagen, dass ich hinter einem Router "sitze". Mit whatismyip.com habe ich meine IP rausgefunden und dann in das Edit-Feld eingetragen. Nachdem das nicht funktioiert hat hab ich in meinem Router die Ports geforwardet und den Dienst auch im DMZ eingetragen - aber der selbe Fehler. Kennt wer ne Lösung?

Hier mal noch der Code:
Client:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

const
  Server_Port = 12345;
  
type
  TForm1 = class(TForm)
    Button1: TButton;
    ClientSocket1: TClientSocket;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Port := Server_Port;
ClientSocket1.Host := Edit1.Text;
ClientSocket1.Open;
end;

end.

Und der Server:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

const
  Server_Port = 12345;
  
type
  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure ServerSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Port := Server_Port;
ServerSocket1.Open;
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Label1.Caption := 'Connected';
end;

end.

danke für eure hilfe und mfg
Patti

Moderiert von raziel: Topic aus Sonstiges (Delphi) verschoben am Do 01.06.2006 um 21:32

The Who · Beiträge: 25 Win XP Prof D3 Prof, D8, D7E

Geht der Server vieleicht per Router rein ?

Also ich meine ob vieleicht ne Firewall die ganze Sache blockt ?

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Bei nem Router würde ich eher auf Portforwarding tippen

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Paddymann · Beiträge: 58 Delphi 5 Professional

Ja die Firewall hab ich alle IPs durchgeben lassen und Portforwarding hab ich für Pot 12345 ja auch schon gemacht...

Narses · Verfasst: Do 01.06.06 21:00

Moin!

Zunächst mal dieser Vorschlag im Server-Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  Label1.Caption := Socket.RemoteAddress;
end;

Damit siehst du die IP des Clients, der da einen Connect geschafft hat.

Dann zu dem Problem: Was genau versuchst du denn da? Du startest den Server und jemand, der nicht in deinem LAN ist (sondern an seinem PC zuhause sitzt) versucht einen Connect? Oder nimmst du den Client und gibst einfach nur die öffentliche IP deines Routers ein, um einen Internet-Connect zu simulieren?

Ersteres sollte klappen, wenn dein Portforwarding korrekt ist (geht nur wirklich gut mit festen IP-Adressen, übrigens), letzteres sollte in den meisten Fällen nicht klappen, weil das Router OS das vermutlich filtert - was dann so erstmal OK ist.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Oder sagst du zu deinem Freund der bei sich zu Hause ist, dass der zu 192.168.xxx.xxx connecten soll?

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Paddymann · Beiträge: 58 Delphi 5 Professional

Danke für die Antwort Narses.

Zitat:

Dann zu dem Problem: Was genau versuchst du denn da? Du startest den Server und jemand, der nicht in deinem LAN ist (sondern an seinem PC zuhause sitzt) versucht einen Connect?

ja genau das versuche ich. Halt nicht im LAN sondern über das Internet.

Zitat:

Oder nimmst du den Client und gibst einfach nur die öffentliche IP deines Routers ein, um einen Internet-Connect zu simulieren?

Stimmt ebenfalls wieder. Ich lasse Server und Client auf meinem PC laufen. Habe das aber auch schon "richtig" veruscht, dass funktioniert ebenfalls nicht.

Mein Port-Forwarding sollte richtig sein. Habe Ein- und Ausgehende verbindungen geforwardet.
Meinst du ich sollte mir mit DynDNS erstmal eine "feste" IP Addresse holen und, dass dann nochmal von aussen probieren, Oder wie?

thx und mfg
Patti

//Edit: @ Born To Frag: Nein ich versuche auch nicht die LAN ip zu connecten!

Narses · Verfasst: Do 01.06.06 21:20

Moin!