|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Для начала, рассмотрим функции, необходимые для работы: Dial-UpInternetAutodialКак сказано на msdk, "Causes the modem to automatically dial the default Internet connection", у меня просто вызывал диалог подключения InternetAutodial( dwFlags:Cardinal; hwndParent:hWnd ):BOOLEAN;ПараметрыdwFlags Параметры операции. Принимает следующие значения:
InternetAutodialHangupОтсоединяет модем от линии. InternetAutodialHangup( dwReserved:Cardinal ):BOOLEAN;ПараметрыdwReserved Зарезервировано. Должно быть 0. Возвращает TRUE при успешном результате, FALSE в противном случае.InternetGetConnectedStateВозвращает состояние соединения InternetGetConnectedState( var lpdwFlags:Cardinal; dwReserved:Cardinal ):BOOLEAN;ПараметрыlpdwFlags Свойства соединения. Флаги:
Работа с интернетInternetOpenИнициализирует соединение с интернет. InternetOpen( lpszAgent:PChar; dwAccessType:Cardinal; lpszProxyName:PChar; lpszProxyBypass:PChar; dwFlags:Cardinal ):hInternet;ПараметрыlpszAgent строка символов, которая передается серверу и сообщает ему название программы, пославшей запрос dwAccessType Параметры доступа. Принимает следующие значения:
InternetCloseHandleЗакрывает описатель интернет соединения InternetCloseHandle( HINT:hInternet ):BOOLEAN;ПараметрыhInternet hInternet описатель, который следует закрыть Возвращает TRUE если описатель успешно закрыт и FALSE в противном случаеInternetConnectОткрывает FTP, Gopher, или HTTP сессию для данног файла сайта InternetConnect( HINT:hInternet; lpszServerName:PChar; nServerPort:INTERNET_PORT; lpszUserName:PChar; lpszPassword:PChar; dwService:Cardinal; dwFlags:Cardinal; dwContext:PCardinal ):hInternet;ПараметрыhInternet hInternet описатель, полученный от вызова InternetOpen lpszServerName Указатель на строку, содержащую имя host'а интернет сервера, или IP адрес сайта формата a.b.c.d(например, 255.0.0.0) nServerPort Номер TCP/IP порта, через который будет установлена связь с сервером. Вы можете использовать следующие константы
InternetOpenUrlЧтение файла с данным URL должно начаться с этой функции. InternetOpenUrl( HINT:hInternet; lpszUrl:PChar; lpszHeaders:PChar; dwHeadersLength:Cardinal; dwFlags:Cardinal; dwContext:PCardinal ):hInternet;ПараметрыhInternet HINT- описатель интернет сессии, полученный вызовом функции InternetOpen lpszUrl Указатель на строку, содержащую URL файла. Поддерживаются URL начинающиеся с ftp:, gopher:, http:, или https: lpszHeaders Указатель на строку, содержащую заголовок запроса HTTP. dwHeadersLength Длина строки заголовка. Если значение этого параметра -1, то длина вычисляется автоматически dwFlags Дополнительные параметры. Вы можете использовать следующие флаги:
InternetReadFileЧтение информации из описателя, полученного от функций InternetOpenUrl, FtpOpenFile, GopherOpenFile, или HttpOpenRequest. InternetReadFile( hFile:hInternet; lpBuffer:Pointer; dwNumberOfBytesToRead:Cardinal; lpdwNumberOfBytesRead:Cardinal ):BOOLEAN;ПараметрыhFile hFile- описатель файла, полученный от вызова InternetOpenUrl, FtpOpenFile, GopherOpenFile, или HttpOpenRequest lpBuffer Адрес буфера, в который записываются полученные данные dwNumberOfBytesToRead Количество байт, которые следует прочитать lpdwNumberOfBytesRead Количество реально прочитанных байт. Это значение будет установлено в 0 перед работой, или проверкой ошибок Возвращает TRUE при успешном завершении и FALSE в противном случае. Информация об ошибках передачи может быть получена от InternetGetLastResponseInfoЗамечанияЕсли значение функции TRUE и количество прочитанных байт 0, то передача файла успешно завершена(достигнут конец файла)InternetSetFilePointerУстанавливает точку чтения для InternetReadFile. Возможно, сервер не поддерживает возможность. InternetSetFilePointer( hFile:hInternet; lDistanceToMove:Integer; pReserved:Pointer; dwMoveMethod:Cardinal; dwContext:Cardinal ):Integer;ПараметрыhFile Описатель файла, полученный от вызова InternetOpenUrl (для HTTP,или HTTPS URL) или HttpOpenRequest (метод GET или HEAD). Описатель не должен быть создан со флагом INTERNET_FLAG_DONT_CACHE или INTERNET_FLAG_NO_CACHE_WRITE lDistanceToMove Значение, содержащее число байтов для передвижения файлового указателя. Положительное число означает передвижение вперед, отрицательное- назад. pReserved Зарезвировано. Установите в nil dwMoveMethod Параметр, указывающий способ перемещения. Возможно одно из следующих значений:
ЗамечанияФункция не может быть использована, если достигнут конец файла функцией InternetReadFile. Правильная работа функции не гарантирована, если размер файла не может быть определен. Для нас эта функция нужна, чтобы использовать возможность возобновления скачивания файлов.Для получения текста ошибки будем использовать следующую функцию: Function GetErrorText(const FromServer:BOOLEAN):String; Var Msg:Array[0..1023]of Char; ErCode,Len:Cardinal; begin Len:=1023; ZeroMemory(@Msg,SizeOf(Msg)); if FromServer then if InternetGetLastResponseInfo(ErCode,@Msg,Len) then Result:='На сервере произошла ошибка #'+IntToStr(ErCode)+#13''''+StrPas(@msg)+'''' else Result:='Не могу получить описание ошибки' else if FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil,GetLastError, GetKeyboardLayout(0), @Msg,1023,nil)<>0 then Result:=StrPas(@Msg) else Result:='Не могу получить описание ошибки'; end; Если параметр FromServer TRUE, то код ошибки и её текст берется с сервера, в противном случае берется текст локальной ошибки. А теперь простейший пример закачки файла с сервера По кнопке Button1 происходит закачка. В Edit1 содержится URL файла без префикса http:// procedure TForm1.Button1Click(Sender: TObject); Var Session,URL:hInternet; F:TFileStream; Q,Fail:BOOLEAN; Buf:Array[1..8192]of Byte; R:Cardinal; begin Fail:=FALSE; if SaveDialog1.Execute then begin F:=TFileStream.Create(SaveDialog1.FileName,fmCreate); Session:=InternetOpen('IExplorer',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0); if Session=nil then begin MessageDlg('Error, InternetOpen: Соединение не может быть установлено', mtError,[mbOK],0); exit; end; URL:=InternetOpenURL(Session,PChar('http://'+Edit1.Text),nil,0,0,0); if URL=nil then begin MessageDlg('Error, InternetOpenURL: Ссылка не может быть открыта!', mtError,[mbOK],0); InternetCloseHandle(Session); exit; end; R:=0; try Repeat Q:=InternetReadFile(URL,@Buf,8192,R); F.Write(Buf,R); until Q and(R=0) except MessageDlg('Error, не могу прочитать файл.'#13+GetErrorText(TRUE), mtError,[mbOK],0); InternetCloseHandle(Session); InternetCloseHandle(URL); Fail:=TRUE; end; if not Fail then ShowMessage('Файл успешно скачен.'); InternetCloseHandle(URL); InternetCloseHandle(Session); F.Free; end; end; Вот, собственно, и все. Желаю удачи! |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Веб-Мастеру
