Datei aus url parsen! [gelöst]

[Synonym]

Hi,


habe schon einiges mit pos versucht, leider nie geklappt..

wie kann ich die datei, z.B. aus der URL: http://www.domain.de/benutzer/datei.exe filtern

das nur noch datei.exe übrig bleibt?

Synonym

[sakura]

*wuppdi*

Delphi-Quellcode:

function UrlFile(Url: String): String;
var
  P: Integer;
begin
  Result := Url;
  for P := Length(Url) downto 1 do
    if Url[P] = '/' then
    begin
      Result := Copy(Url, Succ(P), MaxInt);
      Break;
    end;
end;

......

[Jens Schumann]

Hallo,
schau mal in der OH unter StrRScan nach.

[sakura]

Und mit dem Ansatz von Jens

Delphi-Quellcode:

function UrlFile(Url: String): String;
begin
  Result := Copy(StrRScan(@Url[1], '/'), 2, MaxInt);
  if Result = '' then
    Result := Url;
end;

......

[F.W.]

Kann man da nicht ExtractFileName(URL) benutzen? Geht's hier um was anderes?

[sakura]

Zitat von F.W.:

Kann man da nicht ExtractFileName(URL) benutzen? Geht's hier um was anderes?

Nein, da ExtractFileName nur mit dem BackSlash zurecht kommt. Ergebnis mit obiger Datei wäre //www.domain.de/benutzer/datei.exe

......

[F.W.]

Achso, hatte ich garnicht beachtet!

[Christian Seehase]

Moin Zusammen,

man könnte sich auch ein passendes "ExtractFileName" unter zuhilfenahme von LastDelimiter selber erstellen.

[Luckie]

Hm, wen ich in die Sourcen von der SysUtils reinkucke (sei mal dahingerstellt wie ich das mache. ), dann sehe ich das:

Delphi-Quellcode:

const
  PathDelim  = {$IFDEF MSWINDOWS} '\'; {$ELSE} '/'; {$ENDIF}
  DriveDelim = {$IFDEF MSWINDOWS} ':'; {$ELSE} '';  {$ENDIF}
  PathSep    = {$IFDEF MSWINDOWS} ';'; {$ELSE} ':'; {$ENDIF}

Delphi-Quellcode:

function ExtractFileName(const FileName: string): string;
var
  I: Integer;
begin
  I := LastDelimiter(PathDelim + DriveDelim, FileName);
  Result := Copy(FileName, I + 1, MaxInt);
end;

Wenn es jetzt noch eine Compiler-Konstante für Linux gibt, könnte man sowas machen:

Delphi-Quellcode:

{DEFINE LINUX}
ExtractFilename(...
{DERINE MSWINDOWS}

Ob das jetzt besser, schöner oder sonst was ist, sei mal dahingestellt.

[MathiasSimmack]

Hilft InternetCrackUrl (s. MSDN/PSDK) irgendwie weiter? Ich habe damit bspw. in einem Programm das Protokoll ausgelesen, also etwa "http" um zu schauen ob es im System registriert und bekannt ist. Ist Teil eines kleinen Tools, das Fehler im Startmenü findet, u.a. eben auch Internetverknüpfungen mit unbekannten bzw. nicht registrierten Protokollen.