Søg
Avatar billede ingeman Seniormester
21. november 2009 - 10:08 Der er 6 kommentarer og
1 løsning

Mangler Delphi code til nedenstående

Function MyIP_WinHTTP( )
' Name:      MyIP_WinHTTP
' Function:  Display your WAN IP address using WinHTTP
' Usage:      ret = MyIP_WinHTTP( )
' Returns:    WAN (or global) IP address
'
' This script uses WhatIsMyIP.com's automation page
' http://www.whatismyip.com/automation/n09230945.asp
'
' Written by Rob van der Woude
' http://www.robvanderwoude.com
    Dim lngStatus, objHTTP, objMatch, objRE, strText, strURL
    ' Return value in case the IP address could not be retrieved
    MyIP_WinHTTP = "0.0.0.0"
    ' Retrieve the URL's text
    strURL = "http://www.whatismyip.com/automation/n09230945.asp"
    Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )
    objHTTP.Open "GET", strURL
    objHTTP.Send
    ' Check if the result was valid, and if so return the result
    If objHTTP.Status = 200 Then MyIP_WinHTTP = objHTTP.ResponseText
    Set objHTTP = Nothing
End Function
Avatar billede kroning Nybegynder
21. november 2009 - 11:33 #1
Du kan bruge Indy´s HTTP komponent til det.

Husk at tilføje IdHTTP til din uses;

function MyIP_WinHTTP : string;
begin
//Return value in case the IP address could not be retrieved
    MyIP_WinHTTP:='0.0.0.0';
    with TIdHTTP.Create do
  begin
      try
          Result:=Get('http://www.whatismyip.com/automation/n09230945.asp');
    except
        on E:exception do Result:=E.Message;
    end;
    Free;
  end;
end;
Avatar billede kroning Nybegynder
21. november 2009 - 11:37 #2
Denne følger din kode bedre:

function MyIP_WinHTTP : string;
begin
//Return value in case the IP address could not be retrieved
    MyIP_WinHTTP:='0.0.0.0';
    with TIdHTTP.Create do
  begin
      try
          Result:=Get('http://www.whatismyip.com/automation/n09230945.asp');
    except
        //on E:exception do Result:=E.Message;
    end;
    Free;
  end;
end;
Avatar billede kroning Nybegynder
21. november 2009 - 11:39 #3
Det skal vist være sådan:

function MyIP_WinHTTP : string;
begin
    with TIdHTTP.Create do
  begin
      try
          Result:=Get('http://www.whatismyip.com/automation/n09230945.asp');
    except
        Result:='0.0.0.0';
    end;
    Free;
  end;
end;
Avatar billede ingeman Seniormester
21. november 2009 - 12:25 #4
Jeg kan ikke lige fåe den til at køre ?

with TIdHTTP.Create do //her siger den (3850): Not enough actual parameters
Avatar billede kroning Nybegynder
21. november 2009 - 12:41 #5
Hvilken Indy version har du? Du burde have version 10.2.x som er den nyeste.
Men ellers prøv:
with TIdHTTP.Create(nil) do
Avatar billede ingeman Seniormester
21. november 2009 - 15:30 #6
Det virker - åbn svar
Avatar billede kroning Nybegynder
21. november 2009 - 16:27 #7
Svar
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel Indlæg Oprettet Seneste aktivitet
Bat file. Af johnnylassen i Andet programmering 4 23/04/202616:10 I går 09:43
Hjælp til Api.asmx Af lurup i Andet programmering 1 17/03/202609:27 17/03/202614:12
burgermenu til hjemmeside - hjælp! Af SabrinaL i Andet programmering 2 12/11/202514:10 02/12/202520:42
Hjælp til programmering af website Af hamdenlange i Andet programmering 16 17/08/202522:26 19/08/202515:53
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering 8 24/07/202513:06 28/07/202517:03
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 17:35 Kan ikke resette PC med Windows 8.1 Af TTA i Office & Kontorpakker
I går 13:33 Lukning af Microsoftkonto Af ErikHg i Windows
23/0416:10 Bat file. Af johnnylassen i Andet programmering
23/0410:28 “Signe” Svindel omtalt i medier Af nu_igen i Mobiltelefoner
22/0420:59 RAID controller virker ikke ved tilslutning af alle 4 harddiske Af Strawberry i Andet hardware
White papers
Flere white papers »