chat funktioniert nicht übers inet =(

[alanblack]

Hallo Leute,

ich habe es doch noch geschafft mir einen kleine chat zu schreiben ..
ich würd aber damit auch gerne übers inet chatten können mit anderen leuten die das prog benutzen.
Wenn ich den Server geöffnet habe und nochmal die exe öffne und auf client gehe und die ip (vom inet die ich auf www.meine-ip.de.vu auslese) eintippe verbindet er nicht .. weiß einer wieso?

Hier einmal der code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
// Server
 form1.Caption := 'Server';
ServerSocket1.Open;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// client
form1.Caption := 'Client';
ClientSocket1.Host := edit2.Text;
ClientSocket1.open;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if form1.caption='Server' then
begin
Memo1.lines.add(edit1.text);
serversocket1.Socket.Connections[0].SendText(edit1.text);
edit1.text := '';
end;

if form1.caption='Client' then
begin
Memo1.lines.add(edit1.text);
clientsocket1.Socket.SendText(edit1.text);
edit1.text := '';
end; 

end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Add('Client:' + socket.receivetext);
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Add('Server:' + socket.receivetext);
end;

end.

Vielen Dank schonmal im vorraus

mfg alanblack

[KingofWerlte]

solltest evtl. mal nicht deine Internet IP nehmen sondern deine normale lokale IP

[MrKnogge]

Zitat:

Zitat von KingofWerlte

solltest evtl. mal nicht deine Internet IP nehmen sondern deine normale lokale IP

Die lokale IP bringt aber nicht's, wenn er übers Internet chatten möchte.

Sitzt du eventuell hinter einem router ?

[KingofWerlte]

sicher bringt einem die lokale ip was..bei meinem funktioniert es auch..allerdings nur dann wenn man nicht hinter einem router sitzt..das ist das problem

[S2B]

:shock:
Wenn er die lokale IP-Adresse nimmt, dann kann er nicht herausfinden, ob der Chat übers Internet geht oder nicht... :wink:

[alanblack]

Hi leute,

also ich habe ISDN - hab also keinen router. Die Firewall hab ich auch ausgeschalten und habs probiert funzte allerdings auch nicht =(

weiß jemand sonst noch was?

[MrKnogge]

@KingofWerlte
Was meinst du wieviele (millionen) die gleiche lokale Ip haben ?

Für eine Verbindung brauhst du eine eindeutige IP -> Die IP die du von Provider bekommst.

Schon mal

Delphi-Quellcode:

ClientSocket1.Active := true;
serversocket1.Active := true;

probiert ?

Andernfalls wechsel mal deine Port's

[S2B]

Also als KingOfWerlte und ich den Chat von Ulti mal ausprobieren wollten (der basiert auch auf den Sockets), da ging es auch nicht, obwohl wie die Firewalls aushatten! Vielleicht kannst du dich ja mit den Indy's aufreunden, damit geht es ganz bestimmt! :wink:

[KingofWerlte]

:roll: hmm ich will ja nichts sagen aber wenn mehrere leute die gleiche Lokale IP haben und so ins Internet gehen gibts ein paar probleme

Zitat:

jedem Quadratmeter der Erde können 1.500 IP-Adressen zugewiesen werden

S2B lag daran das ich hinterm Router sitz..hab das mal auf einem server ohne router getestet..da ging es ohne probleme auch übers internet

[MrKnogge]

Zitat:

Zitat von KingofWerlte

Zitat:

jedem Quadratmeter der Erde können 1.500 IP-Adressen zugewiesen werden

Kommt auf die Art deiner Konfiguration an, ClassA, ClassB oder ClassC Netze, aber das gehört hier nicht her.

Mit wem hast du'n dein Chat getestet ?

Ich hab den Code ebenfalls mal mit nem Freund getestet, keine Probleme.