WinInet докачка файла через TFileStream

[Человек_Борща]

Привет всем!

Как правельпо сделать докачку файлов?

вот что я сделал:

function HTTPGetFile(const FileURL,FileSaveDest:string;ShowProgress:Boolean):Boolean;
const
  BufferSize=1024;  //size of buffer
var
  hSession,hURL:HInternet;
  Buffer: array[0..BufferSize] of Byte;
  BufferLen:LongWord;
  Files:TFileStream;
  Header,pAppName:string;
begin
  Result:=False;
  pAppName:='AppProgram';
  Header:='User-Agent: AppProgram';
  hSession:=InternetOpen(PChar(pAppName),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  try
  hURL:=InternetOpenUrl(hSession,PChar(FileURL),PChar(Header),Length(header),INTERNET_FLAG_PRAGMA_NOCACHE or INTERNET_FLAG_RELOAD,0);
  if (hURL<>nil) then
  begin
  try
  DeleteUrlCacheEntry(PChar(FileURL));
  Files:=TFileStream.Create(FileSaveDest,fmCreate);
  repeat
    InternetReadFile(hURL,@Buffer, SizeOf(Buffer),BufferLen);
    Files.WriteBuffer(Buffer,BufferLen);
    if (ShowProgress) then
    begin
    LT:=LT+BufferLen;
    SendMessage(MainForm.Handle,PROGRESS,0,LT+BufferLen);
    end;
    until
    BufferLen= 0;
    FreeAndNil(Files);
    Result:=True;
    finally
      InternetCloseHandle(hURL);
      end;
      end;
     finally
     InternetCloseHandle(hSession);
  end;
  LT:=0;
  SendMessage(MainForm.Handle,PROGRESS,0,0);
end;

почитал вот это http://www.excode.ru/art1778p2.html

там описано как работать с file но как быть с TFileStream?

[Stilet]

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

[PVD]

А нет чего то по лучше чем InternetSetFilePointer, потому что когда устанавливается позиция для чтения, скачивается файл до позиции и лишь потом я могу продолжить скачивание, какой смысл такого докачивания если при таком же раскладе идентичным будет запустить скачивание заново?

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

открыл сессию, и до чтения ставим указатель.
как с файлами.

[PVD]

У меня так и реализовано

...
          Url:=InternetOpenUrl(Father,
          Pchar(SUrl),
          Pchar('Accept: */*'),
          11,
          0,
          0);
    WaitForSingleObject(Mutex,INFINITE);
    Filename:=User+'%'+FileNameFromUrl(SUrl);
    ReleaseMutex(Mutex);
    assignfile(f,Filename);
    arg3ind:=0;
    arg3len:=20;

    HttpQueryInfo(URL,HTTP_QUERY_CONTENT_LENGTH,@arg3,arg3len,arg3ind);
    NeedSize:=StrToInt(StrPas(@arg3));;

    if fileexists(Filename) Then
      Begin
      reset(f,1);
      Seek(F, FileSize(F));
      DataRead:=0;
      InternetSetFilePointer(Url,filesize(f),nil,0,0);
      DataLeft:=NeedSize-FileSize(F);
      End
    else
      Begin
      ReWrite(F,1);
      DataRead:=0;
      InternetSetFilePointer(Url,0,nil,0,0);
      DataLeft:=NeedSize;
      End;
...

[PVD]

Или HttpQueryInfo(URL,HTTP_QUERY_CONTEN T_LENGTH,@arg3,arg3len,arg3ind); считается за чтение?

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

это запрос информации о данных(HEAD), так что поидее нет.

[PVD]

Да проверил действительно от этого не зависит, а в чем может быть еще проблема?

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

а сервер поддерживает частичный GET?(она и дает докачку или распараллеливание)

[PVD]

Сервер с которого пробую скачать ucoz, проверил в опере докачка нормально работает при скачивании от туда