Wie kann ich die Datei endung aus einer URL laden?

[maik1481]

Hei,

Möchte ein tool Bauen wie FlashGet zum Downloaden alerdings bekomme ich das nicht hin mit dem Aufsplitten der URL
Habe es mal so Versucht.

Code:

var
  Form6: TForm6;
  tmpURL, Prot, User, Pass, Host, Dir,Port, File1, FileExt: String;
implementation

{$R *.dfm}


Function GetAndDelete(Delim: String): string;
begin
    Result := Copy(tmpURL, 1, Pos(Delim, tmpURL) - 1);
    Delete(tmpURL, 1, Pos(Delim, tmpURL) + Length(Delim) - 1);
    form6.Memo1.lines.Add(Result);
end;



procedure TForm6.Button1Click(Sender: TObject);
begin
  tmpURL := 'http://www.online.no/Download/Datei.txt';
  Prot := GetAndDelete('://');
  Host:= GetAndDelete(':');
  Port:= GetAndDelete('/');
  Dir:= GetAndDelete('/');
  File1:= GetAndDelete('.');
  FileExt:= GetAndDelete('');
end;

leider Sagt er mir nicht die Endung an was mache ich Falsch?

PS: Sorry für das Deutsch aber bin Norweger

[mkinzler]

Warum suchst du nicht einfach nach dem letzten . ?

[maik1481]

ja wie macht man denn das?

[mkinzler]

In einer Schleife PosEx aufrufen ( mit Offset gefundene Position + 1)

[Balu der Bär]

Warum denn so umständlich?

test := ExtractFileExt('http://www.google.de/index.php')

[maik1481]

ah Danke Probiere ich gleich mal aus.

Mvh
Maik

[maik1481]

habe es so gemacht und es geht jetzt

Delphi-Quellcode:

procedure TForm6.Button1Click(Sender: TObject);
var ed : string;
begin
   ed:='ftp://127.0.0.1:21/C:\Download\Datei.txt';
   memo1.Lines.Add(ExtractFileName(ed));
end;

Mvh
Maik

[Balu der Bär]

Ich denke du möchtest du Dateiendung bekommen? Warum dann ExtractFileName?

[maik1481]

ja dann kann ich denn rest weg lassen.

Delphi-Quellcode:

var
  Form6: TForm6;
  tmpURL, Prot, User, Pass, Host, Dir,Port, File1, FileExt: String;
implementation

{$R *.dfm}


Function GetAndDelete(Delim: String): string;
var ed, url,url1,url2,url3,url4 : string;
begin
    ed:='ftp://127.0.0.1:21/C:\Download\Datei.txt';
    Result := Copy(tmpURL, 1, Pos(Delim, tmpURL) - 1);
    Delete(tmpURL, 1, Pos(Delim, tmpURL) + Length(Delim) - 1);
end;

[maik1481]

Delphi-Quellcode:

var
  Form6: TForm6;
  tmpURL, Prot, User, Pass, Host, Dir,Port, File1, FileExt: String;
implementation

{$R *.dfm}


Function GetAndDelete(Delim: String): string;
begin
    Result := Copy(tmpURL, 1, Pos(Delim, tmpURL) - 1);
    Delete(tmpURL, 1, Pos(Delim, tmpURL) + Length(Delim) - 1);
    form6.Memo1.lines.Add(Result);
end;



procedure TForm6.Button1Click(Sender: TObject);
begin
  tmpURL := 'http://www.online.no/Download/Datei.txt';
  Prot := GetAndDelete('://');
  Host:= GetAndDelete(':');
  Port:= GetAndDelete('/');
  Dir:= GetAndDelete('/');
  File1:= GetAndDelete('.');
  FileExt:= GetAndDelete('');
end;