AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi IP Adresse der aktuell angezeigten Seite vom TWebBrowser

IP Adresse der aktuell angezeigten Seite vom TWebBrowser

Ein Thema von Remote1 · begonnen am 2. Jul 2005 · letzter Beitrag vom 3. Jul 2005
Antwort Antwort
Benutzerbild von Remote1
Remote1

Registriert seit: 22. Okt 2003
Ort: Dippoldiswalde
252 Beiträge
 
Delphi 6 Personal
 
#1

IP Adresse der aktuell angezeigten Seite vom TWebBrowser

  Alt 2. Jul 2005, 21:57
kann mir jemand nen tipp geben wei das funzt
hab schon gesucht, aber noch nichts gefunden
  Mit Zitat antworten Zitat
Benutzerbild von x000x
x000x

Registriert seit: 21. Jan 2004
Ort: Bei Hamburg
308 Beiträge
 
Delphi XE2 Professional
 
#2

Re: IP Adresse der aktuell angezeigten Seite vom TWebBrowser

  Alt 2. Jul 2005, 23:04
Moin moin,

ob und wie es mit TWebBrowser funktioiert kann ich dir auch nicht sagen...
Da dir aber die adresse (URL) bekannt ist ein alternativer Vorschlag:
Delphi-Quellcode:
uses WinSock;

...

function GetIpFromName(sHostName: String; out sIPAddr, sWSAError: String): Boolean;
var HEnt : pHostEnt;
    WSAData : TWSAData;
    iCnt : Integer;
begin
   Result := False;
   if WSAStartup($0101, WSAData) <> 0 then begin
      sWSAError := 'WSAStartup error';
      Exit;
   end;
   try
      sIPAddr := '';
      sWSAError := '';
      HEnt := GetHostByName(@sHostName[1]);
      if Assigned(HEnt) then begin
         Result := True;
         for iCnt := 0 to HEnt^.h_length - 1 do
             sIPAddr := sIPAddr + IntToStr(Ord(HEnt^.h_addr_list^[iCnt])) + '.';
         SetLength(sIPAddr, Length(sIPAddr) - 1);
      end else begin
         case WSAGetLastError of
            WSAEFAULT : sWSAError := 'WSAEFault';
            WSANOTINITIALISED: sWSAError := 'WSANotInitialised';
            WSAENETDOWN : sWSAError := 'WSAENetDown';
            WSAHOST_NOT_FOUND: sWSAError := 'WSAHostNotFound';
            WSATRY_AGAIN : sWSAError := 'WSATryAgain';
            WSANO_RECOVERY : sWSAError := 'WSANoRecovery';
            WSANO_DATA    : sWSAError := 'WSANoData';
            WSAEINPROGRESS : sWSAError := 'WSAEInProgress';
         end;
      end;
   finally
      WSACleanup;
   end;
end;

...

procedure TForm1.Button1Click(Sender: TObject);
var szStr, szError : String;
begin
   if GetIpFromName('www.delphipraxis.de', szStr, szError) then
      ShowMessage(szStr +#13#10+ szError)
   else
      ShowMessage(szError);
end;
Peter
-= Gruss Peter =-
-= alias x000x =-
  Mit Zitat antworten Zitat
Benutzerbild von Remote1
Remote1

Registriert seit: 22. Okt 2003
Ort: Dippoldiswalde
252 Beiträge
 
Delphi 6 Personal
 
#3

Re: IP Adresse der aktuell angezeigten Seite vom TWebBrowser

  Alt 3. Jul 2005, 11:21
so einen ähnlichen code hab ich schon mal ausprobiert, problem ist nur das es bis jetztz noch nicht funktioniert hat
ich erhalte immer nur "WSAHostNotFound"

kann es daran liegen, dass ich schreibe:
Delphi-Quellcode:
   if GetIpFromName(WebBrowser1.LocationUrl, szStr, szError)
     then ShowMessage(szStr +#13#10+ szError)
     else ShowMessage(szError);
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#4

Re: IP Adresse der aktuell angezeigten Seite vom TWebBrowser

  Alt 3. Jul 2005, 11:23
das liegt daran das du die ganze url übergibst. du darfst nicht
"http://host/path/documents" übergeben sondern darfst nur den host selbst übergeben.
also alles ab dem ersten "/" hinter "host" inclusive "/" musst du entfernen

wenn du zum beispiel "ping www.delphipraxis.net/irgendwas" ausführst wirst du auch keinen erfolg haben weil es kein gültiger hostname ist. auch da würde nur "ping www.delphipraxis.net" funktionieren
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:15 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf