скачка exe

[god5]

все никак не могу скачать exe с своего хостинга)
как можно произвести скачку exe с помощью idhttp

[bulldog5293]

можно так

procedure TfrmMain.GetFileClick(Sender: TObject);
var l_MemoryStream : TMemoryStream;
    l_Res : string;
begin
  l_MemoryStream := TMemoryStream.Create;;
  try
    idHttp.Request.Accept:='image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel,'+
 ' application/msword, application/xaml+xml, application/x-ms-xbap, application/x-ms-application, application/vnd.ms-xpsdocument, */*';
    idHttp.Request.AcceptEncoding :='gzip,deflate,sdch';
    with idHttp do begin
      idHttp.Get('http://host:3128/test.txt', l_MemoryStream);
    end;
    with TSaveDialog.Create(self) do begin
      if not Execute then Exit;
      l_MemoryStream.SaveToFile(FileName);
    end;
  finally
    l_MemoryStream.Free;
  end;
end;

[god5]

Сообщение от bulldog5293

можно так

procedure TfrmMain.GetFileClick(Sender: TObject);
var l_MemoryStream : TMemoryStream;
    l_Res : string;
begin
  l_MemoryStream := TMemoryStream.Create;;
  try
    idHttp.Request.Accept:='image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel,'+
 ' application/msword, application/xaml+xml, application/x-ms-xbap, application/x-ms-application, application/vnd.ms-xpsdocument, */*';
    idHttp.Request.AcceptEncoding :='gzip,deflate,sdch';
    with idHttp do begin
      idHttp.Get('http://host:3128/test.txt', l_MemoryStream);
    end;
    with TSaveDialog.Create(self) do begin
      if not Execute then Exit;
      l_MemoryStream.SaveToFile(FileName);
    end;
  finally
    l_MemoryStream.Free;
  end;
end;

я в indy вообще не шарю) а какие компоненты нужно кинуть для того чтоб работал idhttp и save dialog и еще что )?

[god5]

раньше пользовался вот этим кодом но exe файлы он не качал а нужно чтоб качал ) может есть другой примерчик) или исходничек буду благодарен )важно)
uses Wininet;

function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
Result:=False;
sAppName := ExtractFileName(Application.ExeName );
hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,
nil, nil, 0);
try
hURL := InternetOpenURL(hSession,
PChar(fileURL),nil,0,0,0);
try
AssignFile(f, FileName);
Rewrite(f,1);
repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen)
until BufferLen = 0;
CloseFile(f);
Result:=True;
finally
InternetCloseHandle(hURL)
end
finally
InternetCloseHandle(hSession)
end

[Lardes]

http://www.delphisources.ru/pages/so...load_plus.html

[Пепел Феникса]

а вы через браузер сразу берете ехе?
или там просят подтверждения(типа может быть вирус бла бла, уверены ли вы)?

[god5]

приведите плз простой пример не разберусь там просто функцию для скачки)я прогу сделал нужно в конце вот скачать кое что)) уже неделю мучаюсь)

[god5]

Сообщение от Пепел Феникса

а вы через браузер сразу берете ехе?
или там просят подтверждения(типа может быть вирус бла бла, уверены ли вы)?

да нет просто скачиваю через свой хостинг через ну типо мой сайт файлы закинул и хочу скачать)

[Пепел Феникса]

так вы можете скачать его через браузер?(получив сразу диалог на скачивание от браузера)

[god5]

Сообщение от Пепел Феникса

так вы можете скачать его через браузер?(получив сразу диалог на скачивание от браузера)

мне нужно при нажатии на кнопку скачать файл ! то есть нажал закачка! без появления диалогов и т.д! как можно сделать подскажите)