Download programm starten?????

[BornToBeBreit]

Hallo alle zusammen,
ich hab da ein problem, nämlich hab ich jetz ein download programm gemacht, das dateien herunterladen kann, jetz weiß ich aber nich wie ich das in meinen Browser einfüen kann, also ich hätte das gern so, man klickt auf einer seite auf download und dann läd mein programm die datei herunter nicht das standart ding von windows, wisst ihr wie ich das meine?

wär cool wenn ihr mir helfen könnten.

[mr47]

Wie ist den der Browser aufgebaut? Wenn du TWebBrowser verwendest, musst du bei OnFileDownload "Cancel" auf true setze. Und dann die Download-Url an dein Programm übergeben...

mfg

[BornToBeBreit]

:-D Hey danke, das is schon alles was ich wissen wollt, vielen Dank

[BornToBeBreit]

Hey warte. dess geht net so richtig, irgendwie inf ich "onFile Download" net, was mach ich jetz?

[mr47]

Zitat:

Zitat von BornToBeBreit

Hey warte. dess geht net so richtig, irgendwie inf ich "onFile Download" net, was mach ich jetz?

Was genau bedeutet "ich 'inf' OnFile nicht?"

mfg

[BornToBeBreit]

das soll heißen, "find"
also das is so gemeint ich schreib " webbrowser1. " und dann geht's net weiter.

[mr47]

Du musst den TWebBrowser anklicken (im Delphi) und dann im Objektinspektor auf Events/Ereignisse und da gibts ein Event das heißt OnFileDownload. Und das Doppelklicken und dann deinen Code reinhauen...


mfg

[BornToBeBreit]

ja genau da hab ich geschaut, und da find ichs net, und nochwas, was heißt denn das mfg?

[PierreB]

Welche Delphi Version hast du ?


mfg = Mit freundlichen Grüßen :zwinker:

[BornToBeBreit]

Ich habe Borland Delphi 7
die is doch normalerweise ganz in ordnung oder?

Danke, hab mich schon oft gefragt, was das heißt.

[Pseudemys Nelsoni]

schau dir mal OnDownloadBegin an (TWebBrowser)

[BornToBeBreit]

Ja ok das find ich, aber da gibt es folgendess problem, jetz startet er mein prog immer wenn ich was anklicke also immer wenn irgendwas heruntergeldaden wirt, das is zimmlich blöd, weil ich will ja nur, das das prog startet, wenn man dateien herunterläd.
wie mach ich das jetz?

[mr47]

Überprüf doch die Url. Wenns keine html,htm,txt oder jpg ist lädst du sie runter ansonsten cancel:=true;

mfg

[BornToBeBreit]

Url überprüfen?

wie mach ich das denn?

[mr47]

Als erstes musst du die angeklickte URL herausfinden. Dann musst du den String (also die URL) zerlegen um die Dateiendung herauszufinden. Das sind ja die Zeichen nach dem letzten Punkt. String zerlegen sollte dir Helfen.

HIER steht wie man die URL herausfindet.

mfg mr47 :hi:

[BornToBeBreit]

hey danke, das schau ich mir mal an hab jetz nur keine zeit mehr.

[arbu man]

alternativ zum string zerlegen extractfileext <- liefert die dateierweiterung mit . zurück

[mr47]

Zitat:

Zitat von arbu man

alternativ zum string zerlegen extractfileext <- liefert die dateierweiterung mit . zurück

Ja ist natürlich einfacher. Hätt ich aber auch drauf kommen können :wall:

mfg

[BornToBeBreit]

Also dess mit der URL herausfinden raff ich net so richtig.

ich hab mit delphi nonet soviel erfahrung müsst ihr wissen.

[mr47]

Gewöhn dir bitte an immer zu sagen WAS du nicht kapierst. zeig mal deinen bisherigen Quellcode...

mfg http://www.msigna.de.vu/1.jpg

[BornToBeBreit]

Das is das Problem, ich hab noch nix geschrieben, weil ich nicht weiß, was von den sachen die da stehen nehmen soll.

[BornToBeBreit]

Also jetz, hab jetz weng rumbrobirt und ich habs jetz, aber jetz hab ich folgendess problem.
hab das jetz eingebaut und hab geschrieben:

edit1.text := URL;

nur so zum test.

aber da wird keine URL angezeit, was mach ich jetz?

[gordon freeman]

Also meine Glaskugel is gerade in Reperatur. Zeig doch mal den Code, in dem die Variable URL gefüllt wird. Dann können wir dir auch sagen, warum bei dir im Edit nix angezeigt wird.

[BornToBeBreit]

Also gut aber ich glaub das das net wirklich viel bringt, hab ja nur das von dem anderen da abgeschrieben.

Code:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; 
  var ppDisp: IDispatch; var Cancel: WordBool); 
var 
  URL: WideString; 
begin 
  URL := ((TWebbrowser(Sender).document as IHTMLDocument2).activeElement as IHTMLElement).getAttribute('href', 0);
  Edit1.Text:=URL;
end;