Парсер данных с веб сервиса в программу

Форумы Помощь по пакетуПарсер данных с веб сервиса в программу ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 6

Рейтинг: 1

#1: 2014-03-17 21:35:29 ЛС | профиль | цитата

И снова здравствуйте!
Нужна помощь, ребят помогите кто разбирается. Суть идеи в следующем. Есть база РСА по которому можно искать действительный ли полис или нет. Дак вот я хочу форму для поиска перенеси в программу, и данные по результату тоже. Соответственно работать он будет через веб сервис: http://polis.autoins.ru/

code_33242.txt
------------ Дoбавленo в 21.35:
Дело сдвинулось немного, нужна помощь...


Add(MainForm,2953706,301,154)
{
 Width=758
 Height=565
 link(onActivate,6855673:doNavigate,[(341,160)(341,258)])
}
Add(WebBrowser,6855673,350,252)
{
 Left=10
 Top=220
 Width=365
 Height=295
 URL="http://polis.autoins.ru/"
 link(onNavigate,3162625:doWork1,[(398,258)])
}
Add(Edit,1836676,511,238)
{
 Left=80
 Top=50
 Width=180
}
Add(Button,12835764,259,231)
{
 Left=275
 Top=45
 link(onClick,10860465:doSearch,[(359,237)(359,440)])
}
Add(Position,10860465,427,434)
{
 Target="<script language="javascript">"
 link(onSearch,13432864:doReplace,[(471,440)(471,498)(401,498)(401,517)])
 link(Str,587773:Text,[(433,414)(419,414)])
}
Add(Memo,587773,413,350)
{
 Left=380
 Top=220
 Width=355
 Height=300
 link(Str,6855673:Page,[(419,317)(363,317)])
}
Add(Replace,13432864,476,511)
{
 SubStr="<script language="javascript">"
 DestStr="тест"
 link(onReplace,3162625:doWork3,[(520,517)(520,438)(398,438)])
 link(Str,10860465:Position,[(482,489)(433,489)])
}
Add(HubEx,3162625,394,350)
{
 link(onEvent,587773:doAdd,[])
}