Ip Rausfinder?

[deinmeister]

Ok... erstmal hallo.....:)

Und nun zum Problem ;), alsooooooo ich bin ein Nub.... und wollte als erstes Programm einfach mal einen IP Rausfinder machen der die IP angibt(die ausm Inet) hab hier im forum auch einen schönen quelltext gefunden.....
dann habe ich die oberfläche zusammengewurschtelt und einen button gemacht der mir dann die ip angeben soll.....

hier ist erstmal der code vom button.....

Code:

procedure TForm1.Button1Click(Sender: TObject);
  function GetIPAdress: string;
var
  s: string;
begin
  try
    s:=idhttpl.Get('http://gekmihesg.i-networx.de/ip.php');
    result:=trim(copy(s,pos('Your IP: ',s)+9,15));
    if result = '' then
      result:='0.0.0.0';
  except
    result:='0.0.0.0';
  end;
end;
end;

end.

..... aba wenn ich das prog nun compiliern will kommt der mit dem fehler das er "idhttpl" als undefinierten bezeichner bezeichnet und nich weitermachen will.... nun meine frage.... WARUM? und WIE GEHT ES WEG?....

bitte nehmt rücksicht darauf das ich mich seit 10min mit delphi beschäftige ;)


ps: muss da noch was hin wie z.b. showmessage?.... also ich hab da aufn ersten blick nix gefunden wo die ip dann ausgegeben wird... nich das da prog die dann für sich behält

[supermuckl]

Zitat:

bitte nehmt rücksicht darauf das ich mich seit 10min mit delphi beschäftige

dann sag ich jetzt einfach mal: les tutorials für nubs durch und das mindestens eine woche.

dein http objekt ist noch nicht zur erstellzeit erstellt worden.

ein typischer fall von copy/paste/nixblick/nixfunzt

[JasonDX]

wenn du unter den komponenten-paletten (oben, wo du deine buttons ect. findest) unter "Indy Clients" guckst, findest du die komponente TidHttp
wenn du dir so ein Teil auf dein Formular setzt, dürfts klappen

ansonsten kann ich mich supermuckl anschließen
beschäftige dich ruhig mal mit delphi und seiner umgebung ect. (->tutorials lesen), bevor du progs schreibst, von denen du keine sourcezeile verstehst ;)

[Chegga]

Hi,

[OT]Ändere dein Titel mal bitte um. Z.B. in IP Rausfinder, ohne 1000x ?! :wink: [/OT]
Wenn du Änfanger bist, würde ich allerdings mit anderen Programmen anfangen. :roll:

MfG Marc

P.S.: Herzlich Willkommen in der DP! :dp:

[deinmeister]

aaaaaaaaaaaaaaaaaaaaaaha . . . . .leida gibts Indy... nich... jedenfalls bei meinen komponenten...

[JasonDX]

welches delphi hast du?
im fall dürften die indys frei verfügbar sein (wenn auch ohne source) -> du kannst sie dir irgendwo runterladen und selber installieren.
(bin aber nich sicher, obse wirklich immer frei sind, dürftense aber)

[supermuckl]

sind frei und mit source und für annähernd jedes delphi zu haben

//edit.. doch die indy version ;)

[malo]

Zitat:

Zitat von deinmeister

aaaaaaaaaaaaaaaaaaaaaaha . . . . .leida gibts Indy... nich... jedenfalls bei meinen komponenten...

indy
indy

Oder direkt indy

:roll:

[deinmeister]

mhh hab delphi 7 .... aus der ct...

kurzes fräglein :) wie meinteste das Chimaira

"wenn du dir so ein Teil auf dein Formular setzt, dürfts klappen "

[Chegga]

Hi,

so, jetzt noch mal der direkte Link zum Indy-Download für dich deinmeister:
Link!
Also wenn's jetzt nicht klappt... :roll:

Zitat:

häääääätte man ja auch sagen können das man indy erst ma installn muss :roll:

Das bleibt jetzt mal unkommentiert! :wall:

MfG Marc

Persönlicher Tip: Lern dich wirklich erst in Delphi/Pascal ein,
bevor du einfach irgendwelche Quellcodes kopierst. :wink:

[deinmeister]

den beitrag hätteste dir sparen können :P hab indy schon längst installed schon als ich den "besagten" post gemacht hatte ;) aba danke für den link :) falls mir die installexe verloren geht greif ich auf den link zurück ;)

[JasonDX]

Zitat:

Zitat von deinmeister

mhh hab delphi 7 .... aus der ct...

kurzes fräglein :) wie meinteste das Chimaira

"wenn du dir so ein Teil auf dein Formular setzt, dürfts klappen "

Damit meinte ich die Komponente TidHttp mit einem Doppelklick darauf aufs Formular befördern

Aber lern echt besser mal Delphi oder überhaupt programmieren, damit du einen funken ahnung kriegst, was du mit dem quellcode überhaupt machst ;)
is nich bös gemeint

[deinmeister]

.... ich dacht du meinst oben bei der leiste erst auf komponente... dann auf neue komponente.... :shock: .... uund nich da in der leiste auswählen und aufs form packen..... :P..... uuuuund ich lerne bessa wenn ich rauskopier und zum funzen bringe ;) als von null zusammenschreiben :) geht schnella :).................

nu kommt der an mit neuen fehlern !!! .... gibts da noch was zu beachten außa draufklicken?.....

kann man mir noch ma kurz ne erläurerung zum fehler "undefinierter bezeichner" geben?... der kommt mir zu oft vor ....

[Meflin]

Zitat:

Zitat von deinmeister

.... ich dacht du meinst oben bei der leiste erst auf komponente... dann auf neue komponente.... :shock: .... uund nich da in der leiste auswählen und aufs form packen..... :P..... uuuuund ich lerne bessa wenn ich rauskopier und zum funzen bringe ;) als von null zusammenschreiben :) geht schnella :).................

nu kommt der an mit neuen fehlern !!! .... gibts da noch was zu beachten außa draufklicken?

junge, lass es ;) so lernst du absolut nichts! du hast doch null peilung! also solltest du mal kleiner anfangen...

[deinmeister]

naaaaaaaaaaa guuuuuuuuuuuuuuuuuuuuuuuuuuuuut .... nachdem ihr nun lange genug auf mir herumgetrampelt seit.... mahc ich nun noch mehr von diesen langweiligen showmessage dingern..... :cry:

[Chegga]

Hi,

es ist wirklich nicht böse gemeint, aber nehme dir das mal zu Herzen:
Verhaltens-Kodex

Dort steht unter anderem:

Zitat:

Mit Fragen, die sich lesen wie "...ich habe weder Ahnung noch Lust, kann mir mal einer mein Programm schreiben..." wirst Du hier nicht auf Gegenliebe stoßen. Wir sind gerne bereit, jedem zu helfen, der selber Engagement zeigt - aber wir machen nicht die Hausaufgaben Anderer.
Zudem ist es unerläßlich, daß Du Dich selber mit dem Problem befasst hast, bevor Du in der Lage bist, dazu eine präzise Frage zu stellen.
Etwas völlig Anderes ist es natürlich, wenn Du (noch) nicht weißt, wonach Du suchen sollst, bzw. wo Du anfangen sollst. Dann frage gerne nach geeigneten Stichworten.

Also bitte lerne dich erst in Delphi ein,
bevor du hier fertige Antworten willst! :zwinker:
Bzw. einfach Quelltexte kopierst (die du nicht verstehst!)
und dann dafür Hilfe verlangst. :roll:

MfG Marc

[Sharky]

Zitat:

Zitat von Meflin

... du hast doch null peilung...

Bitte nicht in diesem Ton! :warn:

[alcaeus]

Hallo deinmeister,

nachdem es noch keiner gemacht hat, erstmal herzlich willkommen in der DP :hi: :dp:

Die DP hat einige sehr nuetzliche Features, u.a. die Code-Library und die DP-Suche.

Durch eine Kombination der beiden Features, findest du z.B. auch diesen Tipp: Lokale IP(s) ermitteln
Diese Funktion liefert dir ALLE IPs deines Rechners (also Internet-IP sowie die IPs aller verfuegbaren Netzwerkkarten). Falls du Fragen zum Code hast, stelle diese evtl. in einem neuen Thema. Die Funktion ist aber relativ einfach zu verwenden, das Ergebnis der Funktion ist die Liste der IPs. Beachte aber auch die Hinweise unter dem Codestueck, anstatt nur den Code 1:1 zu uebernehmen.

Greetz
alcaeus