Wie kann ich die Datei endung aus einer URL laden?

[marabu]

Hallo Maik,

zum Zerlegen eines URL in seine Teile kannst du auch die WinInet API Funktion InternetCrackUrl() verwenden. Die Wandlung zwischen Url und Filename kannst du mit der Funktion SlashToBackSlash() aus der Indy FTP Server Demo erledigen:

Delphi-Quellcode:

function SlashToBackSlash( const str: string ) : string;
var
  a: dword;
begin
  result := str;
  for a := 1 to length( result ) do
    if result[a] = '/' then
      result[a] := '\';
end;

Ich hänge meine Funktion CrackUrl() mal unauffällig hier rein - wer nach InternetCrackUrl sucht, der wird sie schon finden. Benutzen kann man sie so:

Delphi-Quellcode:

uses
  WinInet;

function GetExtension(url: String): String;
var
  s: TStrings;
begin
  s := TStringList.Create;
  if CrackUrl(url, s) 
    then Result := ExtractFileExt(SlashToBackslash(s.Values['urlpath']))
    else Result := '';
  s.Free;
end;

Grüße vom marabu