Quelltext hab' ich nicht parat, aber:
http:// bzw. https:// durch 'nen Laufwerksbuchstaben ersetzen.
Dann mit ExtractFilePath den Pfad entnehmen, ExtractFileName gibt den Dateinamen.
Ungefähr sowas:
Delphi-Quellcode:
url := AnsiReplaceText(
url,'
http://','
c:\');
url := AnsiReplaceText(
url,'
https://','
c:\');
// ggfls. / nach \ übersetzen.
url := AnsiReplaceText(
url,'
/','
\');
Pfad := ExtractFilePath(
url);
Datei := ExtractFileName(
url);