Sova-Kmv писал(а):
Но чтото ничего не вставляется!Да работает там все
Add(MainForm,10033010,182,273)
{
link(onCreate,4615535:doData,[])
}
Add(WebBrowser,15563951,364,259)
{
Left=10
Top=30
Width=370
Height=240
URL=""
Point(PHandle)
Point(doFromText)
}
Add(InlineCode,5978023,378,378)
{
WorkPoints=#6:Parsel|
DataPoints=#2:ph|4:name|5:value|
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;|19: name:THI_Event;|20: value: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;|14: i:integer;|5:begin|36: pc := PControl(ToIntegerEvent(ph));|80: for i:=0 to PKOLWebBrowser(pc).OleObject.Document.all.tags('input').length-1 do|100: if PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).name = ToStringEvent(name) then|76:// PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).focus;|98: PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).value := ToStringEvent(value);|4:end;|0:|4:end.|
link(ph,15563951:PHandle,[])
link(name,15375584:Text,[(391,348)(398,348)])
link(value,12692327:Text,[(398,361)(442,361)])
}
Add(DoData,4615535,266,287)
{
link(onEventData,15563951:doFromText,[])
link(Data,12006318:Text,[])
}
Add(StrList,12006318,266,203)
{
Strings=#6:<html>|6:<head>|7:</head>|6:<body>|41:<input type="text" name="proba" value="">|49:<input type="button" name="knopka" value="11111">|0:|0:|0:|0:|0:|0:|0:|0:|0:|
}
Add(Edit,15375584,392,308)
{
Left=10
Top=5
Width=135
Text="proba"
}
Add(Edit,12692327,436,309)
{
Left=155
Top=5
Width=135
Text="privet"
}
Add(Button,3488175,266,378)
{
Left=295
Top=5
TabOrder=-1
Caption="Set"
link(onClick,5978023:Parsel,[])
}
Поиск
Друзья
Администрация