------------ Дoбавленo в 18.08:
[b]nesco[/b], чтоб переключатся на разные направленя нужно использовать тэг селект, сам посмотри! а ссылок на эти направления там нет! [b]nesco[/b], а что неполучится сделать универсальный компонент? чтоб мог работать внутри скриптов! И ещо надо-бы добавить вот такую штуковину, для парсинга, она парсит даже то, что зашито в скриптах! (Чтоб можно было делать какието выводы и выбор)
Add(MainForm,10961413,63,119)
{
Width=1308
Height=531
link(onCreate,4615535:doData,[])
}
Add(WebBrowser,15563951,245,105)
{
Left=55
Width=1235
Height=115
URL="http://www.igra3k.ru/"
Point(PHandle)
Point(doFromText)
}
Add(InlineCode,5978023,259,189)
{
WorkPoints=#6:Parsel|
EventPoints=#7:CurText|
DataPoints=#2:ph|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses kol,Share,Debug,ActiveX,KOLSHDocVw;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|17: ph:THI_Event;|22: CurText:THI_Event;|0:|47: procedure Parsel(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|4:type|31: TKOLWebBrowser = PWebBrowser;|31: PKOLWebBrowser = PWebBrowser;|0:|29:procedure THiAsmClass.Parsel;|16:var pc:PControl;|15: txt:string;|5:begin|36: pc := PControl(ToIntegerEvent(ph));|81: txt := PKOLWebBrowser(pc).OleObject.Document.all.tags('body').Item(0).innerHTML;|26: _hi_OnEvent(CurText,txt);|4:end;|0:|4:end.|
link(CurText,4789572:doText,[])
link(ph,15563951:PHandle,[])
}
Add(DoData,4615535,147,133)
{
link(onEventData,15563951:doFromText,[])
link(Data,12006318:Text,[])
}
Add(StrList,12006318,147,49)
{
Strings=#6:<html>|6:<head>|7:</head>|6:<body>|8:<script>|24: document.write("РїСЂРѕР|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|
}
Add(Button,3637319,147,189)
{
link(onClick,5978023:Parsel,[])
}
Add(Memo,4789572,350,168)
{
Left=10
Top=130
Width=1280
Height=360
ScrollBars=2
}
Поиск
Друзья
Администрация