Grundsätzliche Frage zur Kommunikation übers Internet

[Grolle]

Hallo!
Ich möchte mich ein wenig mit der Kommunikation über das Internet beschäftigen.
In erster Linie, um mich da etwas einzuarbeiten. Mir schwebt ein Projekt Richtung
VoIP, Chat, eigenes VPN realisieren, vor. Meine erste Frage ist, wie ich Ip's mit
Nutzernamen auf meinem Server im Internet für das Programm bereitstellen soll? Was
gibt es da für Zugriffsmethoden, die auch einigermaßen sicher sind (FTP, HTTP...)?
Wie kann ich einen solchen Zugriff realisieren? Woher hole ich die IP (PHP-Script)?

Viele Grüße...

[Mavarik]

Hallo!

Ist Dein Server ein Linu* oder ein Windows Server?

Frank

[phXql]

Das heisst *nix ^^

[mkinzler]

Zitat:

Zitat von Grolle

Mir schwebt ein Projekt Richtung
VoIP, Chat, eigenes VPN realisieren, vor. Meine erste Frage ist, wie ich Ip's mit
Nutzernamen auf meinem Server im Internet für das Programm bereitstellen soll?

Feste IP? Oder dynamische IP, dann Verwendung dyndns.org o.ä. möglich.

Zitat:

Was gibt es da für Zugriffsmethoden, die auch einigermaßen sicher sind (FTP, HTTP...)?

wenn dann sftp, https
Wie kann ich einen solchen Zugriff realisieren? Woher hole ich die IP (PHP-Script)?
[/quote]das Skript braucht die IP-Adresse nicht, oder meinst du die IPs der Clients?

[Grolle]

Hi!
es ist nen Windows Server. Im Prinzip habe ich mir aber einfach
einen Zugriff auf ne Textdatei vorgestellt. Die Clienten sollen
da ihre aktuelle IP, den Online-Status und den Benutzernamen
hinterlegen, um so untereinander miteinander kommunizieren zu
können. Ich brauch nen Denkanstoss, wie ich das vernünftig um-
setzen kann. Habe bei Delphi Indy10 installiert.

Viele Grüße...

[Mavarik]

Ich würde das mit SOAP lösen...

Somit kanst Du auch davon ausgehen, dass sich Clients die hinter einer Firewall sind, verbinden können...

es geht natürlich auch einfach mit einen Get Request auf ein Script...

Delphi-Quellcode:

Beispiel: // Ungetestet
Var
  IPListe : TMemoryStream;
begin
  IPListe := TMemoryStream.Create;
  idhttp1.get('http://www.MyDomain.de/cgi/myip.dll?Name=ABCD&Action=Login&Passwort=XYZABCDE',IPListe);
  // Was auch immer....
  IPListe.free;
end;

Der Server kann die IP ermitteln und dann speichern...

Als Antwort erhälst Du dann z.B. eine Liste der Clients mit den IP Adressen...

Hinweis: Einige Provider haben ein IP-Hopping.... d.H. Zwi aufeinanderfolgende Request's müssen nicht
unbedingt die gleiche IP Adresse haben. Kann auch an einem Prody liegen...

Würde den Nachrichtenaustausch ggf. über einen Server machen (Chat) und da eigene Sessions verwalten.

Frank :coder:

[Grolle]

Hallo Mavarik!
Danke erstmal für deine Antwort. Das erste Problem, was ich bei deiner Lösung
habe ist das cgi. Gibt es ein Tutorial, wie man ein cgi mit Delphi erstellt?
Wie ermittle ich die IP mit der Hilfe des Servers (habe es bisher immer über nen
PHP-Script gemacht)?

Viele Grüße...

[Mavarik]

Zitat:

Zitat von Grolle

Hallo Mavarik!
Danke erstmal für deine Antwort. Das erste Problem, was ich bei deiner Lösung
habe ist das cgi. Gibt es ein Tutorial, wie man ein cgi mit Delphi erstellt?
Wie ermittle ich die IP mit der Hilfe des Servers (habe es bisher immer über nen
PHP-Script gemacht)?

Viele Grüße...

Naja ist eigentlich keine große Hexerei... Könnte Dir ein Beispiel mal zusammenstellen...

Du kannst das aber auch problemlos als PHP-Script schreiben...

Ein Get auf eine Wasauchimmer.php würde das Gleiche bewirken.

Schaffe ich aber heute Abend nicht mehr... Auf Wunsch dann morgen...

Frank :coder:

[Grolle]

Hi Mavarik!
Das wäre sehr nett. :spin2: Mach dir keinen Stress.

Viele Grüße...

[Mavarik]

OK!

Walkthrough:

Datei - Neu - weitere - Web Server Anwendung
ISAPI*.*

ObjektInspector (OI) : Actions Klick - Neu

OI: Pathinfo := /LOGIN
OI: Ereignisse OnAction dblKlick

Delphi-Quellcode:

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  response.Content := 'Keine anderer User online!'; // lol
  IP := request.RemoteAddr;
  UserName := Request.QueryFields.Values['NAME'];
  UserPass := Request.QueryFields.Values['PASSWORT'];

  Handled := true; // default
end;

Dann auf Server laden...

www.deineDomain.de/cgi/IPCheck.dll

Für das cgi Verzeichniss noch die Rechte setzen...

User : IUSR_MASCHINENNAME Ausführen und Dateierstellen/schreiben, falls Du die IP in eine Dateischreiben willst... (Achtung Threadsave "TMultiReadExclusiveWriteSynchronizer" verwenden)

Aufruf dann wie gesagt:

Delphi-Quellcode:

idhttp1.get('http://www.deineDomain.de/cgi/IPCheck.dll/LOGIN?NAME=ABC&PASSWORT=DEF',IPListe);

mfg Frank (Hoffe es hilft) :coder: