Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 378

/ вопрос открыт /

Доброго времени суток, уважаемые эсперты! Как можно получить страницу с сервера с SSL, интересует реализация с помощью WinInet API. Возможно ли это? Пытался, переделать пример с одного сайта, см. приложение, не получилось, возвращает пустую страницу.
P.S.
Сервер https://server.ru/pups/main?a_login=LOGIN&a_password=PASSWORD
Помогите пожалуйста, лучше примером, но и за хороший совет большое спасибо.
Заранее благодарен всем откликнулся.

Приложение:
  1. HInt:=InternetOpen('RIPT', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  2. HCon:=InternetConnect(HInt, 'www.server.ru', INTERNET_DEFAULT_HTTP_PORT, PChar(User.Text), PChar(Password.Text), INTERNET_SERVICE_HTTP, 0, 0);
  3. HReq:=HttpOpenRequest(HCon, 'POST', PChar(URL.Text), nil, nil, nil, {INTERNET_FLAG_KEEP_CONNECTION or }INTERNET_FLAG_RELOAD, 0);
  4. bSend:=HttpSendRequest(HReq, '', 0, nil, 0);
  5. AssignFile(f, 'test.htm');
  6. Rewrite(f,1);
  7. repeat
  8. bRead:=InternetReadFile(HReq, @Buffer, SizeOf(Buffer), BufferLen);
  9. BlockWrite(f, Buffer, BufferLen);
  10. until BufferLen = 0;
  11. closefile(f);
  12.  
  13. InternetCloseHandle(hReq);
  14. InternetCloseHandle(hCon);
  15. InternetCloseHandle(hInt);


Spawn Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Spawn (статус: 1-ый класс)
Вопрос отправлен: 5 марта 2007, 13:58
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 12:01
Выполнено за 0.02 сек.