URL herausfinden

**Die Muhkuh**

Hi,

ich hab hier eine kleine Function geschrieben um eine URL herauszufinden. Kleines Beispiel:

Man gibt als URL:

http://www.delphipraxis.net/internal...bc21bc1cdbb6c7

an und raus kommt:

http://www.delphipraxis.net/

So hier ist die Function:

Delphi-Quellcode:

			function GetURL(URL: String): String;

const

  URLType: Array[0..13] of String = ('.de', '.com', '.org', '.net', '.at',

                                     '.info', '.biz', '.us', '.co.uk', '.dk',

                                     '.it', '.ws', '.be', '.name'); 

var

  I: Integer;

begin

  for I := Low(URLType) to High(URLType) do

    if Pos(URLType[I], URL) <> 0 then

      Result := Copy(URL, Pos('http://', URL), Pos(URLType[I], URL) +

                     Length(URLType[I]));

end;

Aufrufbar wäre das ganze:

markieren

Delphi-Quellcode:

			Edit2.Text := GetURL(Edit1.Text);

//oder

Edit1.Text := GetURL(Edit1.Text);

Wem noch ein paar URLEndungen fehlen, der schreibt sie anfach nach .name hin und erhöht die Zahl bei Array[0..13] dementsprechend.

*MFG*

Spider

**Matze**

Dieser Code funktioniert nicht immer, da du nicht alle Domain-Endungen drin hast.

Russische Domains enden auf .ru
Nur so als Beispiel.

**Die Muhkuh**

Hi Matze,

hab grad meinen Beitrag editiert.

Zitat:

Wem noch ein paar URLEndungen fehlen, der schreibt sie anfach nach .name hin und erhöht die Zahl bei Array[0..13] dementsprechend.

Wenn du willst bau ich es gleich mit ein. Falls du noch ein paar endungen hast, dann schreib sie und ich beu es schnell ein.

**Matze**

Es ist ja echt nett, nur kommen öfters neue Endungen dazu, was dazu führt, dass diese dann nicht erkannt werden.

Vielleicht lässt sich da was mit den Indys realisieren.

**CalganX**

Hi,
ich hab' jetzt mal gerade einen Source zusammengehackt:

zusammenfalten · markieren

Delphi-Quellcode:

			function GetDomain(sURL: string): string;

var

  iLastSlashPos: integer;

  sTemp: string;

begin

  if Pos('http://', sURL) = 1 then begin

    sTemp := Copy(sURL, 8, length(sURL)-8);

    iLastSlashPos := Pos('/', sTemp) + 8;

    Result := Copy(sURL, 0, iLastSlashPos-1);

  end else begin

    iLastSlashPos := Pos('/', sURL);

    Result := Copy(sURL, 0, iLastSlashPos);

  end;

end;

Funktioniert sowohl mit

www.domain.de/bla/bli/blubb als auch mit

http://www.domain.de/bla/bli/blubb

Ist zwar nicht der schönste Source, den ich geschrieben habe, aber er funktioniert. *g*

Chris

Habt ihr was gegen [msdn]"InternetCrackUrl"[/msdn] (WinInet-Unit, wenn ich das noch richtig im Kopf habe). Damit habe ich Verknüpfungen in meinem Startmenu Cleaner auf Gültigkeit überprüft. Man kann einen URL komplett zerlegen und sich bspw. nur die Angabe des Servers zurückgeben lassen. Das Protokoll (http, ftp, ...) kann ebenfalls ermittelt werden.

Mal ein Beispielauszug:

zusammenfalten · markieren

Delphi-Quellcode:

			              // Protokollschema und Host mit Hilfe von "InternetCrackUrl"

              // ermitteln

              ZeroMemory(@url,sizeof(url));

              url.dwStructSize      := sizeof(url);

              url.lpszHostName      := buf;

              url.dwHostNameLength  := sizeof(buf);

              url.lpszScheme        := scheme;

              url.dwSchemeLength    := sizeof(scheme);

              if(InternetCrackUrl(pchar(lnk),

                length(lnk),0,url)) then

              begin

                { ... }

              end;

"buf" wäre der Name des Servers (etwa "delphipraxis.net"), "scheme" würde das Protokoll (http) enthalten. Auf die Weise habe ich bspw. geprüft, ob das benutzte Protokoll auf dem Rechner bekannt ist (sprich: ob es einen passenden Registryeintrag gibt), und dann habe ich mir die IP des Servers geholt und wusste, ob der URL gültig ist.

**XHelp**

Hier sind

alle (viele) TopLevel Domains
Sind einbischen mehr als 13 ^_^

Spider hat ja auch nicht bloß 13 Domains, sondern 14.

Aber mit einer anständigen Lösung ist die Liste der Domains uninteressant.

**CalganX**

Hi,
da shmia dass ganze

hier zusammengefasst hat, verschiebe ich das ganze Mal einfach in den normalen DP-Bereich zurück.

Chris

URL herausfinden

URL herausfinden

Re: URL herausfinden

Re: URL herausfinden

Re: URL herausfinden

Re: URL herausfinden

Re: URL herausfinden

Re: URL herausfinden

Re: URL herausfinden

Re: URL herausfinden

Forumregeln

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#2 Re: URL herausfinden 3. Aug 2004, 09:36 Dieser Code funktioniert nicht immer, da du nicht alle Domain-Endungen drin hast. Russische Domains enden auf .ru Nur so als Beispiel.
	Zitat

Die Muhkuh Registriert seit: 21. Aug 2003 7.332 Beiträge Delphi 2009 Professional	#3 Re: URL herausfinden 3. Aug 2004, 09:39 Hi Matze, hab grad meinen Beitrag editiert. Zitat: Wem noch ein paar URLEndungen fehlen, der schreibt sie anfach nach .name hin und erhöht die Zahl bei Array[0..13] dementsprechend. Wenn du willst bau ich es gleich mit ein. Falls du noch ein paar endungen hast, dann schreib sie und ich beu es schnell ein. Manuel Blog reactivated
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#4 Re: URL herausfinden 3. Aug 2004, 09:42 Es ist ja echt nett, nur kommen öfters neue Endungen dazu, was dazu führt, dass diese dann nicht erkannt werden. Vielleicht lässt sich da was mit den Indys realisieren.
	Zitat

XHelp Registriert seit: 12. Jul 2004 Ort: Duisburg 172 Beiträge Delphi 6 Enterprise	#7 Re: URL herausfinden 3. Aug 2004, 11:42 Hier sind alle (viele) TopLevel Domains Sind einbischen mehr als 13 ^_^ Alex Von allen Dingen die mir verloren gegangen, hab ich am meisten an meinem Verstand gehangen
	Zitat

MathiasSimmack (Gast) n/a Beiträge	#8 Re: URL herausfinden 3. Aug 2004, 15:06 Spider hat ja auch nicht bloß 13 Domains, sondern 14. Aber mit einer anständigen Lösung ist die Liste der Domains uninteressant.
	Zitat

CalganX Registriert seit: 21. Jul 2002 Ort: Bonn 5.403 Beiträge Turbo Delphi für Win32	#9 Re: URL herausfinden 16. Aug 2004, 18:55 Hi, da shmia dass ganze hier zusammengefasst hat, verschiebe ich das ganze Mal einfach in den normalen DP-Bereich zurück. Chris
	Zitat