Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #4  
Старый 02.03.2009, 15:49
Zeitgeist7 Zeitgeist7 вне форума
Прохожий
 
Регистрация: 27.02.2009
Сообщения: 5
Репутация: 10
По умолчанию

я разобрался. вот код для тех кто тоже озаботится:
Код:
Function  DownLoad(_LinkLoad, _SaveWay: string) : Boolean ;
  var F: File;
//    ResumePos : DWORD;
    BufferLen,SumSize: DWORD;
    hSession, hURL: HInternet;
    Buffer: array[1..1024] of Byte;
    err: boolean;
begin
  SumSize:=0;
//  ResumePos:=0;   //Инициализируемся
  AssignFile (F,_SaveWay);  //Свяжемся с файлом
  ReWrite(f,1);  // создадим
//Открыли сессию
  hSession:= InternetOpen('X-Kachalka',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
//И наш УРЛ
    hURL := InternetOpenURL(hSession,PChar(_LinkLoad),nil,0,INTERNET_FLAG_RELOAD,0);
//  InternetQueryDataAvailable(hURL, SumSize,0,0);
//  labe4.Caption := IntToStr(SumSize);
    try
      REPEAT //Качаем
        InternetReadFile(hURL, @Buffer,SizeOf(Buffer),BufferLen); //Читаем буфер
        BlockWrite(f, Buffer, BufferLen); //Пишем в файл
        Application. Processmessages; // 
      UNTIL BufferLen= 0;
    Result := true;
    except
     Result := false;
    end;
      InternetCloseHandle(hURL);
      Closefile(f);

  InternetCloseHandle(hSession);
    // закрываемся. иначе идёт утечка памяти
end;
каждый раз качает файл поновой. кэш отключён
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 21:32.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025