Downloader

jesus2k · Hält's aus hier Beiträge: 5

kann mir jemand kelfen??
ich kenn mich nicht so wirklich gur mit delphi aus ...
ich müchte ein downloadr pogramieren mit dem man eine datei downloaden kann dessen link ich schon peim pogramieren vorgebe.
dass soll den so funktionieren das ein user der dieste tool beckommt eine datei aus dem internet lädt one dass er den link weis...
ich bitte um antwort
Jesus2k

raziel · Verfasst: Fr 09.09.05 11:27

Hallo und

such doch einfach mal nach Suche in: Delphi-Forum, Delphi-Library

URLDOWNLOADTOFILE, das dürfts eigentlich ziemlich genau treffen

raziel

_________________
JSXGraph

WeBsPaCe · Verfasst: Fr 09.09.05 11:38

Von mir auch erstmal :welcome:

im DF!!

jesus2k hat folgendes geschrieben:

dass soll den so funktionieren das ein user der dieste tool beckommt eine datei aus dem internet lädt one dass er den link weis...

Den Link bekommt man aber trotzdem raus. Entweder über einen Hex-Editor oder über eine Packet-Überwachung.

slt, WeBBy

jesus2k · Hält's aus hier Beiträge: 5

danke erstmal für den tipp

und an : WeBsPaCe
da kommte eh keiner drauf das teil so genau zu überprüffen ... und wenn doch ... ist das auch nicht sooo schlimm.... und auch danke für die warnung..

jesus2k · Hält's aus hier Beiträge: 5

ich hab jetzz folgendes versucht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, URLMon;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var Datei,Ziel:PChar;
begin
try
Label1.Caption := 'Download gestartet';
Datei := 'http://mitglied.lycos.de/jesus2ks01/Madagascar-ILikeToMoveIt(DeutschGerman).mp3';
Ziel := 'C:\HALLO\';
UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
Label1.Caption := 'Download beendet';
except
showmessage('Download abgebrochen');
end;
end;

end.

abe wenn ich jetzt auf den downloadbutten klicke steht da nach einiger zeit: download beendet ... aber die datei ist nicht auf den rechner... kann mir da noch jemand helfen???

Moderiert von Gausi: Delphi-Tags hinzugefügt.

Darnus · Beiträge: 34

Ziel := 'C:\HALLO\'; <-- Da musste eine datei angeben ,hast ja nur den ordner angeben, nich als was oder welcher datei es gespeichert werden soll.

zb: Ziel := 'C:\HALLO\test.txt';

Meiner meihnung nach muss es so gehn.

Mein TEST:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,URLmon;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Datei,Ziel:Pchar;
begin
Datei := 'http://come2own.de/psdsoft/logo.wmv';
Ziel := 'C:\HALLO\logo.wmv'; 

URLDownloadToFile(nil,Datei,Ziel, 0, nil);
end;

end.

Ahja, der ordner muss auch vorher dasein bei diesem code.
Das heisst wenn unter c:\ kein ordner HALLO ist dann downloadet er sie auch net bzw lagert sie dort ab.

Moderiert von Gausi: Code- durch Delphi-Tags ersetzt

nabbl · Beiträge: 51 Win XP Home Delphi 7 PE

wirf mal ein Blick auf die Indy-Komponenten.
IdHTTP hat mir (glaube ich) damals sehr viel weiter geholfen.
Dazu noch die Anti-Freeze Komponente und alles ist super

Ansonsten kann ich Dir das hier nahe legen:

www.dsdt.info/tipps/?id=173

MfG

Nabbl

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme