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.