Entwickler-Ecke :: Thema anzeigen

jesus2k - Do 08.09.05 20:59
Titel: Downloader

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

WeBsPaCe - Fr 09.09.05 11:38
Titel: Re: Downloader

Von mir auch erstmal :welcome: im DF!! :D

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 - So 11.09.05 21:13

ich hab jetzz folgendes versucht:

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 - Di 22.08.06 19:58
Titel: Ziel

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:

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 - Di 22.08.06 23:48

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:

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

MfG

Nabbl

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!