получить адрес хоста после редиректа wininet delphi

            if dwBytesRead = 0 then break;

            InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead);

            dwBytesRead := 1024;

          begin

          while True do

        try

        if Assigned(hService) then

      hService := InternetOpenUrl(hSession, PChar(aUrl), nil, 0, 0, 0);

    if Assigned(hSession) then

//  hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PROXY,PChar('208.117.131.116:3127'), nil, 0);

  hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  // hSession := InternetOpen( 'MyApp', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);

  lpBuffer: array[0..1024 + 1] of Char;

 function DownloadURL(const aUrl: string): Boolean;

Вот функция для сохранения HTML кода. Код Delphi1

Сообщений: 55 Репутация: 2 (2) WinInet и редирект.

  Регистрация: 20.07.2009 Адрес: Украина, Ружин.

# sloosar Форумчанин

E-mail Запомнить? Пароль

WinInet и редирект. - Delphi и сети - CyberForum.ru   > > >