Не получается заполнить форму

[Andrey85]

Помогите!!!Очень надо уже писал.Есть сайт http://www.sta.gov.ua/control/uk/vat/search. Не получается отправить запрос Iндивiдуальний податковий номер (12 знаків) / номер ДРФО (10 знаків):.Чтобы получить его ЄДРПОУ. Пожалуйста помогите!Форма остается пустой. Вообще задача из Delphi по ЄДРПОУ получать ИНН и наоборот. Все перерыл.Научился и на кнопки нажимать,а тут не пойму как сделать.Рабочий ИНН 025496805644. Мой код

var
form:olevariant;
i, f:integer;
PostData:TStringList;
html:WideString;

begin
try
PostData:=TStringList.Create();
PostData.Clear;
PostData.Add('individualNumber=025496805644');

html:=IdHTTP1.Post('http://sta.gov.ua/control/uk/vat/search',PostData);
//Memo1.Lines.Add(IdHTTP1.Response.ResponseText);
PostData.Free;
for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do
       begin
        form:=WebBrowser1.OleObject.Document.forms.Item(f).elements;
        for i:=0 to form.Length-1 do
         if (form.item(i).type='submit') then
           begin
             if(form.item(i).value='Пошук') then
              begin
                form.item(i).click;
             //  ShowMessage(form.item(i).name);
              end;

            end;
       end;
except
on e:Exception do
PostData.Free;
end;

Как получить ЄДРПОУ. Как проверить что получает сервер по запросу? Кто нибудь,очень нужно.

[Voody]

Что это за код. Сначала идет IdHTTP1, потом WebBrowser1. Они вообще никак не связаны. Уберите всё, что связано с WebBrowser1


Все-таки старайтесь копировать все параметры, которые должны передаваться при запросе, даже если они пустые.

isJuridical=0
individualNumber=025496805644
individualCode=
licenseNumber=
name=
SearchAndorOr=0

Отправили Post-запрос и выведите ответ хотя бы в Memo:

Memo1.Text:=html

[Andrey85]

Выдает каракули.Как мне по ИНН получить ЄДРПОУ. Какой запрос надо сделать? В каракулях я не нахожу ответа.

[Пепел Феникса]

как переконвертировать UTF8 в читабельный вид, уже тысячи раз написано.

[Andrey85]

Дело не в каракулях,я там не нахожу ответа на запрос.Поидее я должен получить ЄДРПОУ,а его нет.Если можно подскажите,что не так.Надо нажимать программно на кнопку Пошук или ответ должен содержаться в poste.Уже все перепробовал,ничего не получается.Не напишу до понедельника не возьмут на работу. И это не шутка,помогите разобраться!

[Andrey85]

Все получилось.Единственный вопрос когда уже начинаю парсить страницу в названии организации присутствуют символы,как их убрать.
<td align="right">ДОНЕЦЬКИЙ ДЕРЖАВНИЙ ПАЛАЦ МОЛОДІ "ЮНІСТЬ"</td>.

[Voody]

функции pos и copy

[Andrey85]

Спасибо,буду парсить.