Vandjer писал(а):
Браузер конвертирует без проблем. Как достать этот текст Еще одно решение
Add(MainForm,2953706,112,168)
{
link(onCreate,14883812:doEvent1,[])
}
Add(ComboBox,1264131,84,238)
{
Left=10
Top=5
Width=140
Height=21
Strings=#22:text nu text|21:CareFY|27:bigpond|
DataType=1
link(onClick,9359466:doEvent1,[])
}
Add(Hub,2104080,308,252)
{
link(onEvent1,20680:doSend,[])
link(onEvent2,20680:doCloseAll,[])
}
Add(Label,9117561,448,119)
{
Left=160
Top=150
Width=188
Height=99
Font=[MS Sans Serif,12,1,0,1]
}
Add(TCP_Server,20680,348,238)
{
Port=2604
Point(onServerConnect)
Point(onServerDisconnect)
Point(doCloseAll)
}
Add(WebBrowser,5570028,315,119)
{
Left=155
Top=5
Width=220
URL=""
Silent=0
Point(doFromText)
link(onNavigate,9874013:doSearch,[])
link(URL,338190:Value,[])
}
Add(FormatStr,13998627,259,252)
{
Mask="HTTP/1.1 200 OK\r\nX-UA-Compatible: IE=Edge\r\n\r\n%1"
link(onFString,2104080:doEvent1,[])
}
Add(BlockFind,9874013,392,119)
{
IncludeBlock=1
StartBlock="<BODY>"
EndBlock="</BODY>"
link(onSearch,9117561:doText,[])
link(Text,5570028:Page,[(398,109)(369,109)(369,169)(328,169)])
}
Add(Hub,9359466,133,245)
{
link(onEvent1,3162444:In,[(151,251)(151,237)])
link(onEvent2,13998627:doString,[])
}
Add(Memory,338190,315,63)
{
Default=String(http://localhost:2604/)
}
Add(Timer,11152878,252,119)
{
Interval=0
Enable=1
AutoStop=1
link(onTimer,5570028:doNavigate,[])
}
Add(Hub,14883812,161,182)
{
link(onEvent1,20680:doOpen,[(277,188)(277,244)])
link(onEvent2,15642676:doWork3,[(214,195)])
}
Add(HubEx,15642676,210,119)
{
link(onEvent,11152878:doTimer,[])
}
Add(LineBreak,3047511,154,119)
{
link(Out,15642676:doWork2,[])
Primary=[3162444,7,112]
}
Поиск
Друзья
Администрация