URL Filtern : Hoster + Datei

[Real-TTX]

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)
                   );