VPF::Работа с ICS - Форум программистов

Madnes

Дата 23.6.2015, 17:29 (ссылка)

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

Загрузка ...

Новичок

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

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

Добрый день.
Может кто-то работал с компонентами ICS, в частности интересует работа THttpCli. Есть маленькая програмка. С помощью нее получал данные и обрабатывал. Работала замечательно с HTTP, пока сервис не перешел на HTTPS.

Код


  const
    // Сервер для запроса данных о статусе
    GETSTATUSWWW = 'http://www.timezero.ru/cgi-bin/info.pl?online=Lexa53';
    
        // Клиент для получения данных
    FHttpLoader : THttpCli;
    
procedure TAlarmSearcher.GetUserStatus(const ANick: String);
begin
    // Создаём объект для передачи данных
    FHttpLoader.RcvdStream := TStringStream.Create;
    // Составляем запрос на получение статуса
    FHttpLoader.URL := GETSTATUSWWW;
    // Отправляем асинхронный запрос
    FHttpLoader.GetASync;
  end;
end;

Может кто знает как решить проблему ?

Это сообщение отредактировал(а) Madnes - 23.6.2015, 18:11

CynicRus

Дата 23.6.2015, 23:07 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


{$DEFINE USE_SSL}

Должно помочь.

Madnes

Дата 24.6.2015, 05:01 (ссылка)

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

Загрузка ...

Новичок

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

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

Если правильно Вас понял в OverbyteIcsDefs.inc

Цитата

{ Uncomment next line to always include SSL code into the binary. }
{ In most cases leave it commented and define USE_SSL in the project options }
{ if required. }
{.$DEFINE USE_SSL}

Поменял на {$DEFINE USE_SSL}

Не помогло.

CynicRus

Дата 24.6.2015, 10:58 (ссылка)

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

Загрузка ...

Бывалый

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

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

В таком случае, могу только порекоммендовать спросить на официальном форуме overbyte. Там эту проблему помогут решить в разы быстрее.

ЗЫ:
Вы говорите про переход на https, а у Вас:

Код


GETSTATUSWWW = 'http://www.timezero.ru/cgi-bin/info.pl?online=Lexa53';

Это сообщение отредактировал(а) CynicRus - 24.6.2015, 10:59

Madnes

Дата 24.6.2015, 11:06 (ссылка)

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

Загрузка ...

Новичок

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

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

Опечатка:

Цитата

https://www.timezero.ru/cgi-bin/info.pl?online=Lexa53

Добавлено через 11 минут и 24 секунды
overbyte.be

Цитата

THttpCli HTTP client protocol support. Used to access any WEB server for getting or posting data. Base component to build a web browser. Includes Proxy support. Option: HTTPS support (Secure SSL communication).

Но как включить эту поддержку не слова smile

kami

Дата 25.6.2015, 21:07 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Madnes @ 24.6.2015, 05:01

)

Поменял на {$DEFINE USE_SSL}

Поменял где?
В сорцах ICS? А перекомпиляцию пакета компонентов сделал? Или, если в Library и / или опциях проекта указан путь к папке с *.pas ICS - то билд приложения делал?

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