Помогите...

[Arenyan]

Хочу сделать прогу для проверки 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;

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

[odd]

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

[Arenyan]

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

[Arenyan]

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

[ViNT]

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

[odd]

Сообщение от 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. 


[Arenyan]

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