Вверх ↑
Ответов: 3349
Рейтинг: 233
#1: 2010-11-18 06:12:57 ЛС | профиль | цитата
Add(MainForm,2953706,182,175)
{
}
Add(WebBrowser,9144488,308,91)
{
Left=150
Top=30
URL="yandex.ru"
Point(PHandle)
}
Add(InlineCode,14989892,322,140)
{
VarPoints=#7:cookies|
DataPoints=#7:PHandle|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses KOLSHDocVw,kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|15: wb:PControl;|9: public|21: PHandle:THI_Event;|44: procedure cookies(var dt:TData;idx:word);|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.cookies;|5:begin|38:wb:=PControl(ReadInteger(dt,PHandle));|56:dtString(dt,PWebBrowser(wb).OleObject.Document.cookie );|4:end;|0:|4:end.|
link(PHandle,9144488:PHandle,[])
}
Add(Message,2898879,322,189)
{
link(Message,14989892:cookies,[])
}
Add(Button,11813715,259,189)
{
Left=235
Top=215
link(onClick,2898879:doMessage,[])
}


------------ Дoбавленo в 06.43:
Прямое получение, без вывода окна сообщений.
карма: 1

1
файлы: 1code_21536.txt [884B] [116]
Голосовали:geniy3dmax