Wie kann ich die Datei endung aus einer URL laden?

[maik1481]

es scheint aber nicht mit Langen Url Daten zu gehen.

Wie zB: http://www.online.no/download/datei.txt

er giebt mir als Ergebnis

//www.online.no/download/

Mvh
Maik

[maik1481]

habe denn Fehler gefunden

Code:

 
ed:='ftp://www.online.no/Download/Datei.txt';
memo1.Lines.Add(ExtractFileName(ed));

der Fehler ist so / aber der muß um zugehen \ so sein wie geht das?

[Balu der Bär]

Mittels StringReplace zum Beispiel.

Und Maik, du kannst deine Beiträge auch editieren um Sachen hinzuzufügen, Doppelposts sind nicht so gerne gesehen.

[mkinzler]

Zitat:

Und Maik, du kannst deine Beiträge auch editieren um Sachen hinzuzufügen, Doppelposts sind nicht so gerne gesehen. Wink

Backseat-Moderation aber auch nicht

[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

[3_of_8]

copy(s, LastDelimiter('.', s)+1, length(s)); Das wäre auch noch eine Möglichkeit, die Dateiendung zu bekommen.

Will man den Namen der Datei, ginge sowas:
copy(s, LastDelimiter('/', s)+1, LastDelimiter('.', s)-LastDelimiter('/', s)-1); (ungetestet)

[maik1481]

Danke ich Versuch das mal.

Mvh
Maik