Выкачивание файлов из Интернет
Выкачивание файлов из Интернет
Выкачивание файлов из Интернет Для начала нам потребуется модуль Winlnet. Как раз в нем прописаны все необходимые функции для работы с Интренет. 1) function lnternetOpen(lpszAgent: PChar; dwAccessType: DWORD; IpszProxyName, IpszProxyBypass: PChar; dwRags: DWORD): HINTERNET; stdcall; Она открывает интернет-сессию для приложения. Вот какие у нее аргументы: IpszAgent - имя программы. Серьезные люди пишут application.exename, а старики - ParamStr(O). На самом деле это не так важно, программа все равно будет работать. dwAccessType - способ соединения. Вот его типы: PRE_CONFIGJNTERNET_ACCESS - как в реестре. INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY - не юзать internet setup file. GATEWAY INTERNET ACCESS - через шлюз. CERN_PROXYJNTERNET_ACCESS - через прокси. IpszProxyName - имя прокси. IpszProxyBypass - кому не надо использовать проксю. dwFlags - режим работы. Если ставить INTERNET_FLAG_ASYNC, то будет асинхронный. В данном случае это только дополнительный напряг, поэтому ставь 0. 2) function lnternetOpenUrl(hlnet: HINTERNET; IpszUrl: PChar; IpszHeaders: PChar; dwHeadersLength: DWORD; dwFlags: DWORD; dwContext: DWORD): HINTERNET; stdcall; Это функция открывает заданный УРЛ! Ее описание: hinet - переменная типа HINTERNET. Ее значение возвращает функция InternetOpen. IpszUrl - собственно сам УРЛ. IpszHeaders - дополнительные строки в HTTP запросе. Нам они не нужны. dwHeadersLength - их длина. dwFlags - их тут больше 10 значений. Вот самое нужное: INTERNET_FLAG_EXISTING_CONNECT - не создавать для объекта нового соединения. dwContext - пиши 0. 3) function lnternetReadFile(hFile: HINTERNET; IpBuffer: Pointer; dwNumberOfBytesToRead: DWORD; var IpdwNumberOfBytesRead: DWORD): BOOL; stdcall; InternetReadFile читает удаленный файл. Если ты знаком со старой доброй ReadFile (или JRead), то поймешь сам, а это для тех, кто не знает: hFile - сюда ты подставляешь значение из предыдущей функции (можно и FtpOpenFile, если тебе это ближе). IpBuffer - буфер, через него мы будем читать файл. Как ты должен помнить, буфер- это массив. Таким образом, файл читается кусками, равными размеру этого массива, а у нас он объемом 1024 байта, т.е. один килобайт. dwNumberOfBytesToRead - какое количество байт необходимо прочесть. Он должен быть равен размеру нашего массива, т.е. 1024. IpdwNumberOfBytesRead - сколько же действительно байт прочитано. Если все отлично, то функция возвращает true, иначе - false. 4) function InternetSetRlePointerfhFile: HINTERNET; IDistanceToMove: Longint; pReserved: Pointer; dwMoveMethod, dwContext: DWORD): DWORD; stdcall; Для незнакомых с SetFilePointer поясню. Эта функция сдвигает позицию чтения файла на заданное число байт. Т.е. если тебе надо прочитать файл не с начала, а с отметки 1000 байт, то пользуйся InternetSetFilePointer. Вот ее параметры: hFile - этот параметр уже рассматривался. IDistanceToMove - на какое количество байт смещать указатель. pReserved - оставлено до лучших времен, а само значение должно быть равно нулю. dwMoveMethod - откуда делать смещение: FILE_BEGIN - с начала. FILE_END - с конца :). FILECURRENT - с текущей позиции. dwContext - должно быть нулем. Как ты уже догадался, эта функция и будет обеспечищгь нам докачку. Если конда прервется на отметке 1.2 Мб, то мы сможем вернуться на нужную нам позицию. При успешном возврате функция вернет значение в 1.2 Мб. Но учти, если сервак не поддерживает докачки, то файл придется читать с самого начала. 5) function InternetQueryDataAvailable(hFile: IpdwNumberOfBytesAvailable: DWORD; dwFlags, dwContext: DWORD): BOOL; stdcall; HINTERNET; Она выясняет объем доступных данных, т.е. размер запрашиваемого файла. Пояснения: hFile - переменная типа HINTERNET. Уже рассматривалась выше. IpdwNumberOfBytesAvailable - доступные байты. dwFlags - ставь в 0. dwContext - здесь также установи 0. 6) function InternetCloseHandle(hlnet: HINTERNET): BOOL; stdcall; В InternetCloseHandle нет ничего сложного. Эта функция просто закрывает интернет-сессию. Интерфейс Кидай на форму два TEdit, четыре TLabel, SaveDialog и 4 Кнопки. Первые три кнопки обзови (параметр "caption"): "Загрузить", "Отмена" и "Выход", а на четвертой поставь 3 точки. Label'ы будут называться так: Label1: "Откуда качать?" Label2: "А куда сохранять?" Label3: "Размер файла:" Label4: "О" Кодинг Для начала добавь в раздел public объявление переменной NADO: boolean; (она нужна для прерывания загрузки), создай событие OnClick для 4-й кнопки и впиши туда такой код: IF SaveDialogl.Execute then Edit2.Text := SaveDialogl.FileName; Этот код добавлен, чтобы не вводить путь вручную. Теперь посмотри на код ниже. Попытайся понять содержимое этого листинга. Понял? Не понял? В общем, набей его в свой проект. Логика работы программы такая. Сначала мы проверяем наличие заданного файла. Если его нет, то качаем с нуля, если же он существует, то за начальную позицию для докачки берем размер локального файла и подставляем это значение в InternetSetFilePointer. Что мы и делаем. Затем циклически читаем по 1024 байта от интернет-файла, пока не скачаем его целиком. Это и будет конец загрузки. Хотя, на случай ручного прерывания, впиши в OnClick для 2-й кнопки такой код: NADO := FALSE Все остальное ясно и по комментариям, поэтому я протестирую эту программу и перейду к заключению. Вот что нужно вписать в OnClick для кнопок: procedure TForml .BitBtn1Click(Sender: TObject); var F: File; ResumePos, BufferLen, SumSize: DWORD; hSession, hURL: Hlnternet; Buffer: array[1..1024] of Byte; err: boolean; begin SumSize := 0; ResumePos := 0; //Инициализируемся AssignFile(F, Edit2.Text); //Свяжемся с файлом IF FileExists(Edit2.Text) then //Есть ли на диске этот файл begin Reset(f,1); //Ax, есть? Откроем! ResumePos := FileSize(F); //Откуда докачать Seek(F, FileSize(F)); //А писать будем в конец end else ReWrite(f,1); //А раз нет, так создадим NADO := TRUE; //Надо качать... //Открыли сессию hSession := lnternetOpen('X-Kachalka', PRE_CONFIG INTERNET_ACCESS, nil, nil, 0); //И наш УРЛ hURL := lnternetOpenURL(hSession,PChar(Edit1.Text),nil, O, 0, O); //Сколько там наш файл весит? lnternetQueryDataAvailable(hURL, SumSize, 0, 0); labe4.Caption := IntToStr(SumSize); //Сообщим об этом if ResumePos>0 then //Если докачиваем, begin lnternetSetFilePointer(hURL,ResumePos,nil,0,0); //То сместимся end; REPEAT //Качаем err:= lnternetReadFile(hURL, @Buffer,SizeOf(Buffer),BufferLen); //Читаем буфер IF err= false then //Ошибка чтения begin ShowMessage ('Произошел облом :('); //Сообщим и выходим exit; end; BlockWrite(f, Buffer, BufferLen); //Пишем в файл Application. Processmessages; UNTIL (BufferLen- 0) Or (NADO= FALSE); //Качаем, пока не все или надо ShowMessage ('Успешно загружено!'); end;
