Hilfe mit Delphi [idhttp.get error]

[RooT314]

Zitat von Perlsau:

Himitsu meinte, daß du für das Abspeichern des des TFileStreams eine Datei und nicht nur ein Verzeichnis benötigst:

Nicht C:\MeinOrdner\
sondern
C:\MeinOrdner\Datei.html

Ahhh ! Habs verstanden und auch direkt behoben ! Und siehe da es funktioniert !

hier der neue code falls ihn vllt irgendwer mal braucht

Code:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP;

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    IdHTTP1: TIdHTTP;
    SpeicherEd: TEdit;
    SaveDialog1: TSaveDialog;
    AuswahlB: TButton;
    NameEd: TEdit;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure NameEdEnter(Sender: TObject);
    procedure AuswahlBClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Speicherort, Form3: TForm3;

implementation

uses
  unit2, unit1, Filectrl;
{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var ResponseStream: TFileStream;
begin
  ResponseStream := TFileStream.Create(SpeicherEd.Text, fmCreate);
  try
    idHTTP1.Get(url, ResponseStream);
  finally
    ResponseStream.Free;
    end;
    ShowMessage('Download abgeschlossen');
  end;

procedure TForm3.AuswahlBClick(Sender: TObject);
var dir : String;
begin
  dir := ExtractFilePath(Application.ExeName);
  if SelectDirectory ('Bitte ein Verzeichnis auswählen','',Dir)
    then
    SpeicherEd.Text := (dir+'\'+NameEd.text+'.html');

end;

procedure TForm3.NameEdEnter(Sender: TObject);
begin
 NameEd.Text := '';
end;

end.

Nurnoch eine letzte frage : Bei der gedownloadeten HTML Datei werden Bilder nicht angezeigt Gründe dafür und kann man das beheben ?

Gruß