Сообщение от ViNT
А если добавить ContentType = multipart/form-data ?
Во всяком случае, этот параметр требуется при отсылке форм через idHTTP в Delphi.
|
Не совсем так. Применительно к мобильным телефонам нужно добавлять:
Content-Type = application/x-www-form-urlencoded
Приведенная ниже программа работает. Проверено.
Для получения нормального читаемого результата нужно полученный текст обрезать начиная с искомого ICQ номера (включительно) до символов < br >.
Ну и перекодировать строку из Win-1251 в UTF-8.
Program icq_checker;
Uses web;
Var s: string;
i: integer;
Begin
i:=web.open('http://uinsell.net/checker.php');
web.set_method('POST');
web.set_property('Content-Type', 'application/x-www-form-urlencoded');
i:=web.set_body('uin=123123123');
i:=web.send;
s:=web.get_response;
ShowForm;
i:=FormAddString(s);
Repaint; Delay(-1);
End.