[Jekaokay]

Код:

unit Unit1;

interface

uses
  Winapi.Windows, ShellAPI, idHTTP, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, Vcl.StdCtrls, sButton;

type
  TForm1 = class(TForm)
    sButton1: TsButton;
    IdHTTP1: TIdHTTP;
    procedure sButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.sButton1Click(Sender: TObject);
var
  idHTTP1: TIdHTTP;
  Stream:TMemoryStream;
begin

try
idHTTP1 := TIdHTTP.Create(nil);
Stream:=TMemoryStream.Create;
IdHTTP1.Get('http://site.ru/file.exe',Stream); // получаем файл из интернета
Stream.SaveToFile('C:\file.exe'); // сохраняем его
Stream.Free; // память - это святое
ShellExecute(0,'open','C:\Windows\Temp\file.exe',nil,nil,SW_NORMAL); // запускаем
except // если ошибки или нет доступа в интернет то завершаем работу нашей программы
// Halt;
Application.Terminate;
end;

end;

end.

Проблема при скачке файла (ломается файл)

[Alegun]

Уберите из IdHTTP.Get кусок текста с "http://"

[Jekaokay]

Благодарю, но не помогло. если убрать "Http://", то вообще не происходит закачки фаила

[Alegun]

Дело было так

Сообщение от Drkb 03587

...Так вот, чтобы написать эту прогу, мне пришлось основательно помучаться: я не знал, ни как закачать файлы по фтп, ни как закачать его по хттп. Но если с фтп, перерыв борландовский хелп и примеры, я разобрался, то хттп постоянно глючил, выдавал битый файл. Я написал в десяток ньюсгрупп - как русских, так и забугорных, задавал вопросы на бордах крутых дельфовских сайтов, я писал программерам... И что ты думаешь, кто-нибудь посоветовал что-нибудь путевое? Фиг!

Я дошел сам. А дело было в мелочи: я делал все правильно, но писал

nmhttp.get('http://www.host.com/file.zip') ;

А нужно было

nmhttp.get('www.host.com/file.zip') ;...

от-туда же 03577, возможно тоже не рабочий

Код:

function DownloadFile(const Url: string): string;
var
NetHandle, UrlHandle: HINTERNET;
Buffer: array[0..1024] of char;
BytesRead: cardinal;
begin
Result := '';
NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

if Assigned(NetHandle) then
   begin
     UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);

     if Assigned(UrlHandle) then

{ UrlHandle правильный? Начинаем загрузку }
       begin
         FillChar(Buffer, SizeOf(Buffer), 0);

         repeat

           Result := Result + Buffer;
           FillChar(Buffer, SizeOf(Buffer), 0);
           InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
         until BytesRead = 0;
         InternetCloseHandle(UrlHandle);
       end
     else
       begin

{ UrlHandle неправильный. Генерируем исключительную ситуацию. }
         raise Exception.CreateFmt('Cannot open URL %s', [url]);
       end;

     InternetCloseHandle(NetHandle);
   end
else
{ NetHandle недопустимый. Генерируем исключительную ситуацию }
   raise Exception.Create('Unable to initialize Wininet');
end;

[NumLock]

Код:

var
  AStream: TFileStream;
begin
  AStream:=TFileStream.Create('lol.gif', fmCreate);
  IdHTTP1.Get('http://j2me.webservis.ru/images/lol.gif', AStream);
  AStream.Free;
  ShellExecute(0, 'open', 'lol.gif', nil, nil, SW_SHOWNORMAL);
end;

у меня .gif ассоциирован с ACDSee, поэтому в нем и открывает загруженый gif.

[PhoeniX]

Код:

Stream.SaveToFile('C:\file.exe'); // сохраняем его
ShellExecute(0,'open','C:\Windows\Temp\file.exe',nil,nil,SW_NORMAL); // запускаем

Я один заметил разницу в путях?