[Delphi5 of 7] Externe IP-Adres opvragen

[anoniem]

Beste mensen, Ik voor een programma een functie nodig om de externe IP op te vragen. Ik heb al vanalles gezocht, maar het enige wat lukt is het netwerk-IP opvragen. Nu had ik al een functie om een commando in een DOS-venster uit te voeren, dus ik dacht: ik laat de regel "IPCONFIG > ip.txt" uitvoeren, maar dit werkt niet. Er worden geen foutmeldingen gegeven. Het werkt wel als ik het handmatig uitvoer. Hier de code: [code:1:23be3405ff] Function GetIPFromCommand(sSaveDir:string):Integer; var runstr:string; runpChar:array[0..255] of char; nResult:integer; S:string; begin runstr:='IPCONFIG > ' + sSaveDir; strPcopy(@runpChar[0],runstr); nResult:=WinExecandwait32(@runPchar[0],SW_SHOW,INFINITE); s:=inttostr(nResult); result:=nresult; end; [/code:1:23be3405ff] Iemand misschien een betere oplossing?

[anoniem]

Als iemand achter een router oid zit heb je al een probleem. Een vriend van had laatst ook hetzelfde probleem. Hij heeft het opgelost met een phpscript op een hosting en die returned het IP van de pc die pagina opvraagt.

[anoniem]

Het is niet erg dat het niet zou werken vanachter een router, ik maak het programma voor eigen gebruik en ik heb geen router. Toch bedankt. Nog iemand? Groetjes, wim

[anoniem]

Deze even uitlezen: http://emando.compdimension.nl/emando2.php?mode=remoteaddr De inhoud als Commatext in een TStringList zetten en als name/value uitlezen :)

[anoniem]

Je bedoelt dat ik die pagina dan moet inlezen met men programma?

[anoniem]

[quote:8eb606a715="wim_verbakel"]Je bedoelt dat ik die pagina dan moet inlezen met men programma?[/quote:8eb606a715] Dat is nou precies wat ik bedoelde in mijn post. :wink:

[anoniem]

Dan zal ik dat maar eens doen :D

[anoniem]

Bedankt! :D Dit werkt, ik download nu die pagina en dan lees ik vandaar de ip in. Deze code gebruik ik om de pagina te downloaden : [code:1:c5f42526a1] function DownloadFile(Source, Dest: string): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0; except Result := False; end; end; [/code:1:c5f42526a1] en bij de uses voeg je dan URLmon toe. groetjes, wim.

[anoniem]

En: extra dataverkeer voor Johan :P

[anoniem]

Kheb zelf een paginaatje gemaakt :D http://freehost23.websamba.com/wimverbakel/IP.asp

[anoniem]

K dan :p [quote:67e6894da7]Start Your Own Web Hosting Company[/quote:67e6894da7]

[anoniem]

Ow :oops: Het is deze: http://www.websamba.com/wimverbakel/IP.asp (die opent de eerste link in een frame (waardoor de reclame der boven komt), ik denk dat hij de eerste niet wil laten zien doordat je de reclame dan ook niet ziet)

[anoniem]

Ah kijk, en het werkt iig :)

[anoniem]

[quote:91faa00aed="wim_verbakel"]Beste mensen, Ik voor een programma een functie nodig om de externe IP op te vragen. Ik heb al vanalles gezocht, maar het enige wat lukt is het netwerk-IP opvragen. Iemand misschien een betere oplossing?[/quote:91faa00aed] Vraag 1: Waar heb je dat voor nodig? In 95% van de software die ik tegengekomen ben moet je dit zelf invoeren. Of wordt dit door de server bepaalt als het om een client/server applicatie gaat.

[anoniem]

[quote:1e3d7d0696]Waar heb je dat voor nodig?[/quote:1e3d7d0696] Ik heb pas een webserver opgezet (om wat mee uit te testen), maar ik heb geen vast IP-adres. Dus als iemand dan op de webserver wil komen moet hij het IP-adres weten en dat wisselt steeds. Ik heb nu een programmaatje geschreven dat, telkens als ik Apache opstart, een webpagina upload (op een free hosting) met een link naar de server. Nu moet je dus gewoon naar die pagina gaan. En het werkt :D Ik hoop dat het een beetje duidelijk is :) groetjes, wim

[anoniem]

[quote:1ad4b90199="wim_verbakel"][quote:1ad4b90199]Waar heb je dat voor nodig?[/quote:1ad4b90199] Ik heb pas een webserver opgezet (om wat mee uit te testen), maar ik heb geen vast IP-adres. Dus als iemand dan op de webserver wil komen moet hij het IP-adres weten en dat wisselt steeds. Ik heb nu een programmaatje geschreven dat, telkens als ik Apache opstart, een webpagina upload (op een free hosting) met een link naar de server.[/quote:1ad4b90199] In plaats van die pagina te uploaden kun je beter een DNS naam koppelen aan je dynamische IP-adres. Hier zijn verschillende [url=http://www.google.com/search?hl=en&lr=&ie=UTF-8&q=related:www.dyns.cx/](gratis) services[/url] voor. [quote:1ad4b90199="wim_verbakel"] Ik hoop dat het een beetje duidelijk is :) [/quote:1ad4b90199] [url=http://www.catb.org/~esr/faqs/smart-questions.html]How To Ask Questions The Smart Way[/url]

[anoniem]

[quote:f0367f6fcf="wim_verbakel"]Ow :oops: Het is deze: http://www.websamba.com/wimverbakel/IP.asp (die opent de eerste link in een frame (waardoor de reclame der boven komt), ik denk dat hij de eerste niet wil laten zien doordat je de reclame dan ook niet ziet)[/quote:f0367f6fcf] Geen problemen met Mozilla :D