Variablen online versenden

[Benni0811]

Hallo zusammen,

Ich habe ein kleines Spiel programmiert(4 gewinnt) und möchte jetzt die Möglichkeit hinzufügen, online zu spielen. Am besten wäre es wenn man als Nutzer seinen Namen festlegen könnte, dann eine Liste mit allen verfügbaren Nutzern sieht um sich dann einen Spielgegner auszusuchen. Ich habe bereits im Internet gesucht, und habe auf der Seite Delphi-Treff die Komponenten TServersocket und TClientServer gefunden, diese kann ich aber in Delphi nicht finden. Fehlt da vielleicht eine Unit die ich einbinden muss? Und wie verschicke ich dann am besten die Daten?

Grüße

[Towmuz]

Moin,

schau mal hier http://docwiki.embarcadero.com/RADSt...et-Komponenten

Gruß

[Der schöne Günther]

Die alten Socket-Komponenten wurden 2002 abgekündigt. Will man die jetzt wirklich noch ausbuddeln?

[mjustin]

Zitat von Der schöne Günther:

Die alten Socket-Komponenten wurden 2002 abgekündigt. Will man die jetzt wirklich noch ausbuddeln?

... Delphi, einst ein bekannter Ausgrabungsort für Archäologen aus aller Welt

[ConnorMcLeod]

Spricht etwas gegen die ICS von F. Piette?

[a.def]

Zitat von ConnorMcLeod:

Spricht etwas gegen die ICS von F. Piette?

Und die Indy-Komponenten?

[jaenicke]

Zitat von Benni0811:

Am besten wäre es wenn man als Nutzer seinen Namen festlegen könnte, dann eine Liste mit allen verfügbaren Nutzern sieht um sich dann einen Spielgegner auszusuchen.

Dafür brauchst du aber auch einen Server im Internet (Root-Server, virtueller Server, ...), mit dem sich die Spieler verbinden können um zu sehen wer online ist usw.

[Benni0811]

Erstmal danke für die vielen antworten,
Ich habe jetzt die Socketkomponenten installiert und (mithilfe des Internets) einen kleinen Chat geschrieben. Dieser besteht aus zwei Programmen, zwischen denen man Narichten verschicken kann, was aber nur auf einem Rechner funktioniert hat.

Ich habe dann die Ip mit der sich der Client verbindet auf die meines PCs geändert ClientSocket1.Address:='172.16.136.11';

(Vorher war da die Ip, die automatisch auf den eigenen Rechner zurückführt) ClientSocket1.Address:='127.0.0.1';

Dann habe ich das Programm auf einen anderen Rechner(Im selben Netzwerk) kopiert und versucht mich mit dem dem Server zu verbinden, was aber zu einem Error geführt hat, der mithilfe dieses Codes abgefangen wurde:

Delphi-Quellcode:

procedure TForm2.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  ErrorCode:=0;
  ClientSocket1.Active := False;
  Memo1.Text:=Memo1.Text+'No connection found'+#13#10;
end;

Was ist das Problem?

[Klaus01]

.. und wie lautet die Fehlermeldung?

Wie sind die Firewalls der Rechner konfiguriert?
Werden eingehende Verbindungen erlaubt?

Grüße
Klaus

[Aviator]

Zitat von Benni0811:

Was ist das Problem?

Stichwort Firewall. Da könntest du zuerst mal ansetzen. Port auf beiden Rechnern weiterleiten/freigeben der benötigt wird.

Bist du in einer Firma. Die IP ist eine aus einem /16 Netz. Wie sieht denn die Subnetzmaske aus? Sind die Rechner evtl. in unterschiedlichen Subnetzen zwischen denen nix geroutet wird?