VPF::Проблема с wininet - Форум программистов

Dmi3

Дата 28.7.2006, 17:32 (ссылка)

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

Загрузка ...

Новичок

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

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

Пытаюсь закачать файл из инета, используя async режим. Вызываю InternetOpen, устанавливаю Callback-процедуру, вызываю InternetOpenUrl и тут наступакт 5ая точка smile

InternetOpenUrl возвращает nil smile

help plz!
ЗЫ InternetGetLastResponseInfo возвращает 0й код ошибки и пустую строку smile

Код



// Callback процедура

procedure  InetCallback(hInternet: HINTERNET; dwContext: DWORD; dwInternetStatus: DWORD; lpvStatusInformation: pointer;  dwStatusInformationLength: DWORD); stdcall;
begin
...
end;

// Кусок кода, где происходит попытка закачать файл

var
  hURL, hSession: HInternet;
  info: array [1..1024] of char;
  url: string;
  index, error, sizelen : cardinal;
begin
  url := 'http://www.rbc.ru';
  hSession := InternetOpen('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, INTERNET_FLAG_ASYNC);
  InternetSetStatusCallback(hSession, @InetCallback);
   try
     hURL := InternetOpenURL(hSession, PChar(Url), nil,0,0,DWORD(10));
     if hURL = nil then
     begin
       sizelen := 1024;
       ZeroMemory(@info,SizeOf(info));
       if InternetGetLastResponseInfo(Error, @info, sizelen) then
         Memo1.Lines.Add(info)
       else
         Memo1.Lines.Add(inttostr(GetLastError()));
       InternetCloseHandle(hSession);
       Exit;
     end;
...

Помогите решить проблему плз.

Это сообщение отредактировал(а) Dmi3 - 28.7.2006, 23:26

MetalFan

Дата 12.11.2007, 23:36 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128

ну тык асинхронные ж операции то

--------------------

There are always someone smarter than you...

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