forum.boolean.name - Помогите...

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - Помогите... (http://forum.boolean.name/showthread.php?t=12087)

Помогите...

Хочу сделать прогу для проверки uin на inviz с помощью сервиса http://uinsell.net/checker.php подскажите в чём ошибка:

if OpenHttp(h, 'http://uinsell.net/checker.php') then begin
SetHttpMethod(h, 'post');
AddHttpBody(h, '374982961');
i:=SendHttpMessage(h);
s:=GetHttpResponse(h);
end;

выдаёт просто страницу, без проверки...

Ответ: Помогите...

Возможно ошибка в имени передаваемой переменной. Нужно поставить AddHttpBody(h, 'uin=374982961');
Советую для таких дел установить плагин для FireFox под названием Tamper Data. Он отлично перехватывает как GET так и POST запросы и их можно даже редактировать. Пример перехвата для твоего сайта показан ниже.

Ответ: Помогите...

Не, так тоже не получается. (

Ответ: Помогите...

Покажите какой-нибудь пример работы с формами на веб страницах.

Ответ: Помогите...

А если добавить ContentType = multipart/form-data ?
Во всяком случае, этот параметр требуется при отсылке форм через idHTTP в Delphi.

Ответ: Помогите...

Цитата:

Сообщение от ViNT (Сообщение 140327)

Не совсем так. Применительно к мобильным телефонам нужно добавлять:
Content-Type = application/x-www-form-urlencoded

Приведенная ниже программа работает. Проверено.
Для получения нормального читаемого результата нужно полученный текст обрезать начиная с искомого ICQ номера (включительно) до символов < br >.
Ну и перекодировать строку из Win-1251 в UTF-8.

PHP код:


		
			
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.

Ответ: Помогите...

Большое спасибо. Всё работает. )))