Gemme www destination i bestemt mappe

http://www.swissdelphicenter.com/en/showcode.php?id=412

eller brug INDY

Stoney

Det her virker fint:

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  // URL Location
  SourceFile = 'http://www.google.com/intl/de/images/home_title.gif';
  // Where to save the file
  DestFile = 'c:\google-image.gif';
begin
  if DownloadFile(SourceFile, DestFile) then
  begin
    ShowMessage('Download succesful!');
    // Show downloaded image in your browser
    ShellExecute(Application.Handle, PChar('open'), PChar(DestFile),
      PChar(''), nil, SW_NORMAL)
  end
  else
    ShowMessage('Error while downloading ' + SourceFile)
end;

Men er det ikke muligt at indføre en Gauge så man kan se hvor langt den er nået?

http://delphi.about.com/cs/adptips2003/a/bltip0903_2.htm

Stoney

:) Stoney bruger du en bestemt metode til at søge på nettet, for jeg synes da du finder alt det rigtige?

Koden på about linket kan jeg ikke helt få til at virke... funktionen og en del flere ting viser fejl..

Stoney kommer du ikke med et svar?