[Jekaokay]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

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, возможно тоже не рабочий

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

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]

Код:

1 2 3 4 5 6 7 8

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]

Код:

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

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