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]
leider Sagt er mir nicht die Endung an was mache ich Falsh?
PS: Sorry für das Deutsch aber bin Norweger