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.

Delphi-Quellcode:

[code:1:12df2d4bd3][/delphi]
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;
[delphi][/code:1:12df2d4bd3]

:wall: :wall: :wall: :wall:
leider Sagt er mir nicht die Endung an was mache ich Falsh? :gruebel:

PS: Sorry für das Deutsch aber bin Norweger

[xZise]

Delphi-Quellcode:

Pos('')

liefert nicht den rest des Strings.

PS: Das Deutsch ist aber nicht schlecht!

[edit]Pos('') gibt "0" zurück ;)[/edit]

[Matze]

Das hast du doch hier schon gefragt. Was soll das also hier nochmals ... :roll:

[r_kerber]

Doppelpost. Hier geht's weiter.