VPF::Отловить ошибку при закачке с помощью WinInet

Desperate

Дата 9.1.2007, 22:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 11.10.2006

Репутация: -1
Всего: -1

Помогите! Я использую для закачки файла такую функцию

Код


function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 2048;
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;

Часто случается что соединение разрывается, как мне это отловить и например вывести сообщение?

Matematik

Дата 9.1.2007, 23:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Надо обрабатывать значения которые возвращают ф-и InternetOpenURL() и InternetReadFile()

Это сообщение отредактировал(а) Matematik - 9.1.2007, 23:13

Desperate

Дата 9.1.2007, 23:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 11.10.2006

Репутация: -1
Всего: -1

Как? И какие они значения возвращают?

Snowy

Дата 9.1.2007, 23:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Примерно так:

Код


  if not InternetReadFile(hURL, @Buffer,SizeOf(Buffer), BufferLen) then 
  begin
    SetLength(sAppName, MAX_PATH);
    InternetReadFile(hURL, pointer(sAppName), MAX_PATH, BufferLength);
    MessageBox(0, PChar(sAppName), 'Error', MB_ICONERROR);
    Break;
  end;

Код не проверял.

Добавлено @ 23:19

Цитата(Desperate @ 9.1.2007, 23:13

)

И какие они значения возвращают?

true или false, в зависимости от того, получилось выполнить или нет smile

Matematik

Дата 9.1.2007, 23:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Цитата(Desperate @ 9.1.2007, 23:13

)

Как? И какие они значения возвращают?

MSDN и еще раз MSDN

Цитата

InternetReadFile
Return Values
Returns TRUE if successful, or FALSE otherwise. To get extended error information, call GetLastError. An application can also use InternetGetLastResponseInfo when necessary.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »