Вверх ↑
Ответов: 902
Рейтинг: 27
#1: 2015-02-18 20:14:12 ЛС | профиль | цитата
Здравствуйте. Помогите пожалуйста решить задачу со схемой.
Необходимо на странице браузера проверить есть ли указанный сайт в выдаче поисковика,
например: juk-soft.ru
и если есть, скопировать ссылку перехода в буфер обмена.
Возможно ли это сделать с помощью Хиасма?
code_35131.txt
------------ Дoбавленo в 20.14:
Вот примерная схема того, что мне нужно.
Но, ссылка перехода копируется не полная.
Должна быть именно такая, как при наведении на ссылку в браузере, и выборе в меню правой кнопкой мыши: "Копировать ярлык".

Add(MainForm,2953706,308,168)
{
Width=871
Height=356
}
Add(WebBrowser,10900816,392,175)
{
Left=10
Top=10
Width=840
Height=250
URL="http://yandex.ru/yandsearch?text=%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D1%8B%20%D0%B4%D0%BB%D1%8F%20%D1%81%D0%BE%D0%BA%D1%80%D1%8B%D1%82%D0%B8%D1%8F%20%D0%B8%D0%BD%D1%84%D0%BE%D1%80%D0%BC%D0%B0%D1%86%D0%B8%D0%B8& lr=43& suggest_reqid=132864170142410807206135501858023& csg=0%2C0%2C0%2C0%2C0%2C1%2C0"
Point(PHandle)
}
Add(Button,9682091,343,238)
{
Left=405
Top=280
link(onClick,4881792:doClick ,[])
}
Add(InlineCode,4881792,406,238)
{
WorkPoints=#8:doClick |
EventPoints=#7:onError|5:onURL|
DataPoints=#2:ph|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|18: ph: THI_Event;|21: value: THI_Event;|23: onError: THI_Event;|21: onUrl: THI_Event;|4: |51: procedure doClick(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|0:|4:type|31: TKOLWebBrowser = PWebBrowser;|31: PKOLWebBrowser = PWebBrowser;|0:|0:|0:|30:procedure THiAsmClass.doClick;|3:var|15: pc: PControl;|12: s: string;|13: n: integer;|5:begin|37: pc := PControl(ToIntegerEvent(ph));|33: if not Assigned(pc) then exit; |74: for n:= 0 to PKOLWebBrowser(pc).OleObject.Document.links.Length - 1 do |8: begin|73: s:= PKOLWebBrowser(pc).OleObject.Document.links.Item(n).InnerText; |42: if s = ReadString(_Data, value) then |97: _hi_onEvent(onUrl, String(PKOLWebBrowser(pc).OleObject.Document.links.Item(n).outerHTML));|7: end;|39: //PKOLWebBrowser(pc).Navigate(mylnk);|4:end;|0:|4:end.|
link(onURL,3198697:doSearch,[])
link(ph,10900816:PHandle,[])
link(value,10674332:Value,[(419,222)(447,222)])
}
Add(Message,7979610,567,245)
{
}
Add(BlockFind,3198697,462,245)
{
IncludeBlock=1
StartBlock="(this,
EndBlock=)"
link(onSearch,10248060:doStrCat,[])
}
Add(StrCat,10248060,518,245)
{
Str1="http:"
link(onStrCat,7979610:doMessage,[])
}
Add(Memory,10674332,441,175)
{
Default=String(juk-soft.ru)
}

карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
файлы: 1code_35131.txt [690B] [608]