download in turbo-d. ohne url

[Haukez]

Hi liebe D-Praktiker,

da ich neu in der internetsparte von delphi bin, weiß ich leider nicht wie ich dateien runterlade.
Mein Problem:

•Der download wird über einen button geöffnet
•Ich möchte einen Download starten nach dem ein submit button einer seite abgeschickt wurde
•Der download sollte nach möglichkeit nur temporär gespeichert werden
•Evtl. auch ein tutorial zu cookiemanagern in turbo-d.

ich würde mich über codeschnipsel oder detailierte links freuen :)

LG haukezzzzz

[jaenicke]

Du kannst z.B. TIdHttp benutzen. Das unterstützt auch einen CookieManager, der auch so heißt. Ggf. solltest du (wenn es ein größerer Download ist), diesen in einem Thread laufen lassen.

Funktionieren tut das z.B. über Get, dort kannst du auch einen Stream als Ziel angeben.

[Haukez]

jo denke ich auch das mit idhttp,

wie gesagt ich habe keine ahnung wie ich das machen soll,
das heißt wie ich da ansetzen soll,
und wie gesagt der download startet nach einem button-klick
ich bräuchte echt codeschnipsel

lg hauk

[Luckie]

Du musst nur die URL rausfinden. Diese kannst du dann bei IdHTTP.Get angeben.

aber eventuell erklärst du mal genauer was du vorhast und um welche Webseite es geht. Dein erstes Posting habe ich nämlich so gut wie nicht verstanden.

[jaenicke]

Die gibts ja auch nur hundertfach zu diesem Thema, wenn man danach sucht...

Delphi-Quellcode:

var
  MyIdHttp: TIdHttp;
begin
  MyIdHttp := TIdHttp.Create;
  try
    MyIdHttp.Get('Adresse', MyStream);
  finally
    MyIdHttp.Free;
  end;

[Haukez]

hey danke jaenicke aber ich bekomme leider einen fehler zurück :(
hab quelltexte durchforstet und nun doch den dl-link gefunden ^^

Zugriffsverletzung bei Adresse 00404C5A4 im Modul 'Projekt1 .exe'. Lesen von Adresse FFFFFFD.

ich weiß leider nich was falsch ist :(
kann da jemand helfen ????

lg haukezzz

[jaenicke]

Ohne Quelltext?

Moment...
:glaskugel:

Hmm, das kann dauern... willst du nicht lieber doch den Quelltext zeigen? :zwinker:

[Cyberbob]

Ja, Code wäre Hilfreich. Wann genau kommt der Fehler? Vielleicht bei MyStream?

[Haukez]

So,

das ist mein bisheriges projekt, um es zu erklären ich will dateien bei uploaded.to herunterladen ,
da kumpels mir ihre dateien manchmal über den wege übermitteln und ich eh gerade am experemtieren mit den internetkomponenten bin.
achja der fehler kommt bei drücken des button2click

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, idhttp;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.navigate(edit1.text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var MyIdHttp: TIdHttp;
MyStream : TFilestream;

begin
  MyIdHttp := TIdHttp.Create;
  try
    MyIdHttp.Get('http://s37b1-cb.uploaded.to/dl?id=74db62b0f2ca24a28cacdbcfadb7a74d', MyStream);
  finally
    MyIdHttp.Free;
  end;
end;
end.

[jaenicke]

Du musst den Stream natürlich auch erzeugen...
Du kannst ja nicht einfach ein unitialisiertes Objekt verwenden.

An der Stelle empfehle ich einmal diesen Crashkurs:
http://crashkurs.christian-stelzmann.de
und die neue Version speziell ab Turbo Delphi:
http://www.christian-stelzmann.de/in..._reloaded.html