Welcher Dateiname versteckt sich hinter der URL

[jonny]

hallo wie kann ich rausfinden welcher Dteiname sich hinter dieser URl verstekt

http://www.winload.de/download.php?s...gramm_id=25853

in diesen Fall ist es "nemo_ss_win.zip" aber wie kann ich es von meinem Programm aus amchen.

[SirThornberry]

gar nicht weil die inormation erst im header steht der zurückgeliefert wird wenn die url aufgerufen wird. Das heißt du könntest höchstes den download starten und schauen was im header steht

[fkerber]

Hi!

Das geht bestimmt mit den Indys. Die bieten für alles was Internet angeht eigentlich was an.

Schau dir diese Komponenten doch mal an (inbesondere in Richtung Header, da steht bestimmt das dann drin)


Ciao fkerber


[Edit] Falschen Namen verwendet :wall: [/Edit]

[jonny]

Kann man so eine mit den IdHTTP.Header herausfinden?

[fkerber]

Hi!

Kann den Link leider nicht testen ("Seite wurde nicht gefunden"), aber wenn im Header ein Redirect auf die Datei steht, dann kann man den bestimmt auch auslesen.

Ciao fkerber

[sakura]

Genau, gib mal einen Link der geht und ich gebe Dir die Lösung ;-)

...:cat:...

[jonny]

hm... bei mir geht er.

auf diese seite gehen dort irgendwo auf download klicken und dann bei der folgenden seite auf hier klicken. der link oben ist ein Link den ich von dort habe.

http://www.winload.de/programme/Graf...ner/index.html

[fkerber]

Hi!

Auch dieser Link geht bei mir leider nicht.

Ciao fkerber

[jonny]

Wie der geht nicht? kommisch.

na dann so www.winload.de dort irgend wo auf einenen Download-Button drücken die benutzen überall das gleiche Linksystem.

[r_kerber]

[BTW]Bei mir funktionieren alle drei Links![/BTW]

[sakura]

Einen Button und eine IdHttp Komponente aufs Form und folgender Code ins Button-OnClick Ereignis. Den Rest siehst Du selbst ;)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdHTTP1.ConnectTimeout := 5000;
  IdHTTP1.ReadTimeout := 5000;
  IdHTTP1.RedirectMaximum := 15;
  IdHTTP1.HandleRedirects := True; 
  IdHTTP1.Head('http://www.winload.de/download.php?subid=d054771242f86e0eb8a489b16abc3e0f&programm_id=28745');
  ShowMessage(IdHTTP1.Request.URL);
  ShowMessage(IdHTTP1.Response.RawHeaders.Text);
end;

...:cat:...

[fkerber]

Hi!

Jetzt gehen sie, komisch ...

Oder einfach im Ereignis OnRedirect den Wert Dest (String) ausgeben lassen.


Ciao fkerber

[jonny]

JA soweit tuts! Nur ich kann bei mir irgendwie kein ConnectTimeOut einstellen.

IdHTTP1.Request.URL
was bekomme ich dort? ich weiss es ist ein pfad aber von wo aus gesehen

dort steht "/ein name.zip" oder auch "/ordner/ordner/dateiname.zip" aber was kommt vor dem String damit der downloadLink komplet ist?

[sakura]

Zitat:

Zitat von jonny

aber was kommt vor dem String damit der downloadLink komplet ist?

Delphi-Quellcode:

  ShowMessage('http://' + IdHTTP1.Request.Host + IdHTTP1.Request.URL);

...:cat:...

[fkerber]

Hi!

Also bei meinem Lösungsvorschlag bekommst du das komplette "Ding" zurück, also

Code:

[url]http://www.usw.usf[/url]

Ciao fkerber

[jonny]

Danke an alle! Das klappt ja super!

Danke nochmals!

[jonny]

[Edit]
hat sich schon erledigt!