Autor Beitrag
JungerIslaender
ontopic starontopic starontopic starofftopic starofftopic starofftopic starofftopic starofftopic star
Beiträge: 427
Erhaltene Danke: 5

Win XP
Delphi 7; Delphi 2005
BeitragVerfasst: So 10.08.08 15:55 
Hi Leute,

Ich würde gerne ein Programm schreiben da ich so etwas brauche (dazu später). Das Programm soll flogendes können: Es soll aus dem Internet, z.B. von "wie ist meine ip" die eigene ip auslesen (aber nicht die interne) und die dann per Email an eine bestimmte Anzahl Leute schicken. Dabei soll es alle 2h oder 1h gucken ob sich die ip geändert hat, wenn ja neue Email, wenn nicht dann nicht.

Hintergrund zum Programm: Ich hab einen FTP und Browser-Game Server aufgesetzt ( wer meine früheren Threads verfolgt hat wird also sehen das ich es endlich hingekriegt habe). Das Funktioniert in lokalen Netzwerk acuh wunder bar. Nun ist es so das wir eine dynamische ip von versanet (ka ob versanet oder tkom....) bekommen und die sich andauernd ändert. Nun möchte ich aber auch von wo anders als zuhause oder auch andere mensche auf den server zugreifen (grade bei einem Browsergame). Und dazu ist das Programm gedacht.


Vielen Dank im voraus MFG JungerIslaender


Moderiert von user profile iconChristian S.: Topic aus Sonstiges (Delphi) verschoben am So 10.08.2008 um 16:00
Hidden
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 2242
Erhaltene Danke: 55

Win10
VS Code, Delphi 2010 Prof.
BeitragVerfasst: So 10.08.08 16:00 
Hi,

Was hältst du von einem Login? Wäre imho performanter, als auf jedem Rechner die ip an ne mailadresse zu Senden.

mfG,

_________________
Centaur spears can block many spells, but no one tries to block if they see that the spell is a certain shade of green. For this purpose it is useful to know some green stunning hexes. (HPMoR)
Sinspin
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1338
Erhaltene Danke: 120

Win 10
RIO, CE, Lazarus
BeitragVerfasst: So 10.08.08 16:16 
An so einem Problem habe ich auch schonmal gehangen.
Anstatt die aktuelle IP an jeden zu versenden würde ich die IP in einer Datei auf einen frei zugänglichen Server legen.
So kann die dann jeder mit einem HTTP Client, zB. Indy, abfragen.
Das hat den Vorteil das du die IP Problemlos wesentlich öfter, einmal in der Minute oder so, prüfen kannst und sie dann neu hochladen wenn sie geändert wurde.
Und jeder kann die aktuelle IP jederzeit abrufen.

_________________
Wir zerstören die Natur und Wälder der Erde. Wir töten wilde Tiere für Trophäen. Wir produzieren Lebewesen als Massenware um sie nach wenigen Monaten zu töten. Warum sollte unser aller Mutter, die Natur, nicht die gleichen Rechte haben?
JungerIslaender Threadstarter
ontopic starontopic starontopic starofftopic starofftopic starofftopic starofftopic starofftopic star
Beiträge: 427
Erhaltene Danke: 5

Win XP
Delphi 7; Delphi 2005
BeitragVerfasst: So 10.08.08 16:22 
user profile iconHidden hat folgendes geschrieben:
Hi,

Was hältst du von einem Login? Wäre imho performanter, als auf jedem Rechner die ip an ne mailadresse zu Senden.

mfG,


Das verstehe ich schon mal net? Wie denn bitte Login wenn sich andauernd die ip ändert? Ich hab einen Computer der fungiert als server und der soll seine ip an die user sschicken damit die sich einliggen, und auf den Rechner zugreifen können.

---Moderiert von user profile iconNarses: Beiträge zusammengefasst---

user profile iconSinspin hat folgendes geschrieben:
An so einem Problem habe ich auch schonmal gehangen.
Anstatt die aktuelle IP an jeden zu versenden würde ich die IP in einer Datei auf einen frei zugänglichen Server legen.
So kann die dann jeder mit einem HTTP Client, zB. Indy, abfragen.
Das hat den Vorteil das du die IP Problemlos wesentlich öfter, einmal in der Minute oder so, prüfen kannst und sie dann neu hochladen wenn sie geändert wurde.
Und jeder kann die aktuelle IP jederzeit abrufen.


Das klingt gut, dann brüchte ich aber irgendwo anders webspace. Aber wenn du erklären könntest wie ich machen muss.
nagel
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 708

Win7, Ubuntu 10.10

BeitragVerfasst: So 10.08.08 16:26 
[url]dyndns.org[/url] könnte dir weiterhelfen.
Robert.Wachtel
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Beiträge: 895
Erhaltene Danke: 7

Windows 7 Ultimate x64
D5 Ent, D7 Arch, RAD Studio 2010 Pro, VS 2008
BeitragVerfasst: So 10.08.08 16:35 
user profile iconnagel hat folgendes geschrieben:
[url]dyndns.org[/url] könnte dir weiterhelfen.

Ich wollte es gerade anmerken - habe mich schon gewundert, dass es so lange gedauert hat... ;)
Hidden
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 2242
Erhaltene Danke: 55

Win10
VS Code, Delphi 2010 Prof.
BeitragVerfasst: So 10.08.08 16:39 
user profile iconJungerIslaender hat folgendes geschrieben:
user profile iconHidden hat folgendes geschrieben:
Was hältst du von einem Login? Wäre imho performanter, als auf jedem Rechner die ip an ne mailadresse zu Senden.

Das verstehe ich schon mal net? Wie denn bitte Login wenn sich andauernd die ip ändert? Ich hab einen Computer der fungiert als server und der soll seine ip an die user sschicken damit die sich einliggen, und auf den Rechner zugreifen können.
Ich habe deinen post wohl oberflächlich gelesen, sry. Hatte dich so verstanden, dass du die IP als deine Identifikation bzgl. Server-Zugriff verwendest :)

Moderiert von user profile iconNarses: Zitat gekürzt

_________________
Centaur spears can block many spells, but no one tries to block if they see that the spell is a certain shade of green. For this purpose it is useful to know some green stunning hexes. (HPMoR)
Boldar
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Beiträge: 1555
Erhaltene Danke: 70

Win7 Enterprise 64bit, Win XP SP2
Turbo Delphi
BeitragVerfasst: So 10.08.08 17:31 
IP ermitteln:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
function LocalIP:string;
var
  WSA  : TWSAData;
  ILen : integer;
  PHst : PChar;
  PHEn : PHostEnt;
begin
  WSAStartup( $0101, WSA );
  ILen := $FF;
  PHst := StrAlloc( ILen );
  gethostname( PHst, ILen );
  PHEn := gethostbyname( PHst );

  with PHEn^ do  result:=format(
   '%d.%d.%d.%d',
   [ord(h_addr^[ 0 ]), ord(h_addr^[ 1 ]),
   ord(h_addr^[ 2 ]), ord(h_addr^[ 3 ])]);
  StrDispose( PHst );
  WSACleanup;

end;
Robert.Wachtel
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Beiträge: 895
Erhaltene Danke: 7

Windows 7 Ultimate x64
D5 Ent, D7 Arch, RAD Studio 2010 Pro, VS 2008
BeitragVerfasst: So 10.08.08 17:45 
user profile iconBoldar hat folgendes geschrieben:
IP ermitteln: [...]

Das war jetzt aber voll am Thema vorbei... :mrgreen:
Boldar
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Beiträge: 1555
Erhaltene Danke: 70

Win7 Enterprise 64bit, Win XP SP2
Turbo Delphi
BeitragVerfasst: So 10.08.08 17:51 
user profile iconJungerIslaender hat folgendes geschrieben:
Hi Leute,
Es soll aus dem Internet, z.B. von "wie ist meine ip" die eigene ip auslesen


Das ist nicht nötig. Deshalb mein Post. Also nicht am Thema vorbei!!!
huuuuuh
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Beiträge: 665
Erhaltene Danke: 19

win xp, (win vista), win 7
VS 2008 Express Edition, VS 2010 Express Edition, VS 2010 Professionell
BeitragVerfasst: So 10.08.08 18:22 
user profile iconJungerIslaender hat folgendes geschrieben:
(aber nicht die interne)

doch vorbei :mrgreen:
<TargeT>
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 59

Win XP, Win 98
Delphi 7
BeitragVerfasst: So 10.08.08 19:23 
Du könntest die IP auch von www.myip.ch/ auslesen lassen, dass geht schneller als bei "Wie ist meine IP".

<TargeT>
GTA-Place
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
EE-Regisseur
Beiträge: 5248
Erhaltene Danke: 2

WIN XP, IE 7, FF 2.0
Delphi 7, Lazarus
BeitragVerfasst: So 10.08.08 20:39 
Wie kann man die eigene Internet-IP-Adresse ermitteln?

Aber warum so umständlich. Wie oben erwähnt: DynDNS-Acc anlegen, DynDNS-Programm auf Server starten, fertig.

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)
BenBE
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 8721
Erhaltene Danke: 191

Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
BeitragVerfasst: So 10.08.08 20:40 
Für sowas gibt es [url]www.DynDNS.org[/url]. So betreib ich seit Jahren meinen Heimserver UND NOCH NIE Probleme. Können inzwischen sogar die Router problemlos --> Einmal konfiguriert, funzt immer.

Alles andre sind WÜRG-AROUNDS!

_________________
Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
Timosch
ontopic starontopic starontopic starontopic starontopic starofftopic starofftopic starofftopic star
Beiträge: 1314

Debian Squeeze, Win 7 Prof.
D7 Pers
BeitragVerfasst: So 10.08.08 21:10 
user profile iconBoldar hat folgendes geschrieben:
user profile iconJungerIslaender hat folgendes geschrieben:
Hi Leute,
Es soll aus dem Internet, z.B. von "wie ist meine ip" die eigene ip auslesen


Das ist nicht nötig. Deshalb mein Post. Also nicht am Thema vorbei!!!

Deine Funktion heißt sogar LocalIP. Also doch am Thema vorbei...

_________________
If liberty means anything at all, it means the right to tell people what they do not want to hear. - George Orwell
JungerIslaender Threadstarter
ontopic starontopic starontopic starofftopic starofftopic starofftopic starofftopic starofftopic star
Beiträge: 427
Erhaltene Danke: 5

Win XP
Delphi 7; Delphi 2005
BeitragVerfasst: Mo 11.08.08 13:37 
user profile iconBenBE hat folgendes geschrieben:
Für sowas gibt es [url]www.DynDNS.org[/url]. So betreib ich seit Jahren meinen Heimserver UND NOCH NIE Probleme. Können inzwischen sogar die Router problemlos --> Einmal konfiguriert, funzt immer.

Alles andre sind WÜRG-AROUNDS!


Das klingt sehr gut! Könntest du mal erklären wie das funktioniert und was ich machen muss. Bin auf der Website nicht sehr schlau geworden. Vor allem mit den Preisen.
Xentar
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 2077
Erhaltene Danke: 2

Win XP
Delphi 5 Ent., Delphi 2007 Prof
BeitragVerfasst: Mo 11.08.08 13:48 
- Du registrierst dich bei DynDNS und bekommst dann eine Adresse, die du dir selber aussuchen kannst, z.B. JungerIslaender.dyndns.com oder so ähnlich.

Nun zwei Möglichkeiten:
1. Wenn du dich selber ins Internet einwählst (DFÜ): Du lädst dir ein Programm von denen herunter. Dieses Programm macht genau das, was du auch vorhast. Es sendet relgemäßig / bei Änderung deine aktuelle IP Adresse an DynDNS, so dass die oben genannte Adresse immer auf deine aktuelle IP "zeigt".
2. Wenn du einen Router hast funktioniert dieses Programm soweit ich weiß nicht korrekt - hierfür gibts in den meisten Routern eine Einstellung, dass dieser dann selber regelmäßig seine aktuelle IP zu DynDNS schickt.

Ergebnis: Du bist immer über die gewünschte Adresse erreichbar.


Edit: Die Basisfunktionen von DynDNS sind übrigens kostenlos. Du musst nur etwas zahlen, wenn du mehr Funktionen, z.B. mehrere Adressen haben möchtest.

_________________
PROGRAMMER: A device for converting coffee into software.
Jetstream
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 222



BeitragVerfasst: Mo 11.08.08 16:58 
dyndns hat bei mir in letzter zeit probleme gemacht, bin auf afraid.org umgestiegen.

Mein Router (WRT45GL mit Tomato-Firmware) unterstützt das sogar :)

_________________
Die folgenden Klangbeispiele sind Ergänzungen zum methodischen Aufbau der Textbeilage und dürfen nicht losgelöst von dieser behandelt werden.
wazup
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 101

Windows XP
Delphi 2009
BeitragVerfasst: Mo 11.08.08 17:17 
Meinst du sowas:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
uses
  IdHTTP

function GetInternetIP(): string;
var
  IdHTTP: TIdHTTP;
  Temp: string;
begin
  Result := '';

  IdHTTP := TIdHTTP.Create;
  try
    Temp := IdHTTP.Get('http://checkip.dyndns.org');
  finally
    IdHTTP.Free;
  end;

  Result := Copy(Temp, Pos(':', Temp) + 2, Pos('</bo', Temp) - Pos(':', Temp) - 2);
end;
??
Narses
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Administrator
Beiträge: 10185
Erhaltene Danke: 1261

W11x64
TP3 .. D7pro .. D10.2CE
BeitragVerfasst: Mo 11.08.08 18:15 
Moin!

user profile iconwazup hat folgendes geschrieben:
Meinst du sowas:
Nein, eigentlich meint er einen dynamischen DNS-Alias. ;)

user profile iconwazup hat folgendes geschrieben:
ausblenden Delphi-Quelltext
1:
2:
3:
function GetInternetIP(): string;
...
Result := Copy(...
Dieser Ansatz ist zu unflexibel, besser so. :idea:

cu
Narses

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