Скачка файлов с http

[AquaKlaster]

ЗдАРов всем...
Скачиваю файлы такой функцией

PHP код:

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
end; 


и вызываю скачку
так:

PHP код:

var FileOnNet, LocalFileName: string
begin
   FileOnNet:='ссыль';
   LocalFileName:='путь для сохранения и назв. файла'; 

   if GetInetFile(FileOnNet,LocalFileName)=True then
      ShowMessage('Download successful')
   else
      ShowMessage('Error in file download') 

end; 


Всё скачивает отлично но беспокоит две вещи
1) как зделать что бы при скачке файла программа не подвисала
2) как зделать ProgressBar скачки файла, что бы в процентах типо
Плиз помогите нужно срочно!

[uberchel]

Ну вот чуть изменил :

function GetInetFile(const fileURL, FileName: String; Progress: TProgressBar): 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
      Progress.Max:= SizeOf(Buffer);
      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);
      Progress.Position:= SizeOf(Buffer);
      end
   finally
   InternetCloseHandle(hSession);
   end
end;

Пример:

if GetInetFile('http://delphi-city.narod.ru/Project1.exe', 'Inet.exe', ProgressBar1)
   then ShowMessage('Скачка завершина');

[BARNEY]

А если через прокси?


попробовал данный код... получается зацикливание

repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen)

и файл растёт растёт и растёт ..т.е. заново и заново пишется.

[AquaKlaster]

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

[BARNEY]

в поток закачку сделай... отдельно

[AquaKlaster]

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

в поток закачку сделай... отдельно

пример плиз если можно!

[BARNEY]

Дай работающию функцию сделаю, в поток и выложу весь проект.

[uberchel]

А в верху , что не работающая ???

[BARNEY]

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

А если через прокси?


попробовал данный код... получается зацикливание

repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen)

и файл растёт растёт и растёт ..т.е. заново и заново пишется.

ещё раз....

[uberchel]

А кто говорил о прокси, AquaKlaster -попросил сделать поток, ему и под http нормально, короче не кому не надо через прокси, ну а если и надо то переделать чуть всегда мона )