Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi URL Filtern : Hoster + Datei (https://www.delphipraxis.net/133181-url-filtern-hoster-datei.html)

Real-TTX 27. Apr 2009 13:46


URL Filtern : Hoster + Datei
 
Gibt es eine schnelle(Rechenzeit) Methode ein Hoster und die aufgerufene Datei aus einer URL zu filtern?

Ich glaube mal so eine Funktion hier im Forum gesehen zu haben, finde sie aber über die SUFU leider nicht :(

Gruß, Real-TTX

Real-TTX 27. Apr 2009 18:41

Re: URL Filtern : Hoster + Datei
 
Habe eine Lösung gefunden, mit Copy und Pos... Nur bei einer HTTP URL...

Delphi-Quellcode:

strHostFromHTTPURL := copy(copy(aURL, 8, length(aURL)),0,Pos('/', copy(aURL, 8 , length(aURL)))-1);
nun fehlt mir nur noch die Datei :)

Gruß, Real-TTX

Real-TTX 28. Apr 2009 18:23

Re: URL Filtern : Hoster + Datei
 
Ich habe nun folgende Lösung bei einer URL mit HTTP als Protokoll den Host und die aufrufende Datei zu filtern :

Delphi-Quellcode:
HTTPURLHost := copy(
                     copy(aURL, 8, length(aURL)),
                     0,
                     Pos(
                         '/',
                          copy(
                               aURL,
                               8,
                               length(aURL)
                               )
                         )-1
                      );

HTTPURLFile := copy(
                    aURL,
                    length(aURL) - (
                                    Pos(
                                        '/',
                                        AnsiReverseString(aURL)
                                       )-1
                                   ) + 1,
                    length(aURL)
                   );

shmia 29. Apr 2009 17:47

Re: URL Filtern : Hoster + Datei
 
http://www.delphipraxis.net/internal...ct.php?t=31191


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:57 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz