host-109-235-189-9.bisv.r писал(а): Windows 2008R2 x64 Это вроде сервер  Может, в этом проблема Я в дельфях компилирую ------------ Дoбавленo в 18.48:Вот, попробуй с внешним потоком и Wait=True Add(Button,11739294,175,231)
{
Left=100
Top=395
Width=165
Height=40
Data=String()
link(onClick,10526727:doFor,[])
}
Add(ChildPanelEx,5811607,350,224)
{
Mode=1
}
BEGIN_SDK
Add(EditMultiEx,15435750,21,21)
{
WorkCount=#5:##add|8:##select|
Width=566
Height=333
VOffset=7
Point(##add)
Point(##select)
link(##add,3250669:doValue,[])
link(##select,9458643:doStart,[(32,41)(32,83)])
}
Add(Panel,11326120,231,28)
{
Left=5
Top=5
Width=373
Height=122
Layout="parent.vv"
}
Add(HTTP_Get,2944567,182,91)
{
Wait=0
link(onStatus,14707583:doPosition,[(249,97)(249,125)])
link(onDownload,8399227:doCopy,[(221,104)(221,76)])
link(onURLSize,1228704:doEvent1,[(242,111)(242,160)])
link(onStop,11487333:doEvent1,[(221,118)(221,265)])
link(URL,3250669:Value,[])
}
Add(MemoryStream,8399227,420,70)
{
Point(doPosition)
}
Add(If_else,3419385,287,161)
{
Type=3
Op2=Integer(0)
link(onTrue,2945122:doData,[])
link(onFalse,2560188:doData,[(340,174)(340,209)])
}
Add(Label,7768796,476,161)
{
Left=10
Top=10
Width=165
Height=17
Caption=""
AutoSize=1
}
Add(DoData,2560188,350,203)
{
Data=String(что-то есть)
link(onEventData,5541131:doEvent1,[])
}
Add(DoData,2945122,350,161)
{
Data=String(пусто)
link(onEventData,13712841:doEvent1,[])
}
Add(Hub,8025464,133,77)
{
link(onEvent1,8399227:doClear,[])
link(onEvent2,2944567:GetURLSize,[(165,90)(165,111)])
}
Add(ProgressBar,14707583,287,119)
{
Left=185
Top=10
Width=180
Point(doMax)
}
Add(Memory,3250669,182,28)
{
}
Add(Image,5234130,532,308)
{
Left=15
Top=40
Width=110
Height=75
link(Bitmap,2679206:Bitmap,[])
}
Add(HubEx,14090237,441,161)
{
link(onEvent,7768796:doText,[])
}
Add(Hub,1228704,252,154)
{
link(onEvent1,14707583:doMax,[(277,160)(277,132)])
link(onEvent2,3419385:doCompare,[])
}
Add(Jpeg,7507809,420,252)
{
Point(Stream)
Point(doLoadFromStream)
Point(doBitmap)
link(onBitmap,2679206:doLoad,[])
link(Stream,8399227:Stream,[])
}
Add(Hub,11487333,245,259)
{
OutCount=3
link(onEvent1,8399227:doPosition,[(326,265)(326,90)])
link(onEvent2,7507809:doLoadFromStream,[])
link(onEvent3,7507809:doBitmap,[])
}
Add(Hub,13712841,399,161)
{
link(onEvent1,14090237:doWork2,[])
link(onEvent2,11392568:doReset,[(466,174)(466,209)])
}
Add(Hub,5541131,399,203)
{
OutCount=3
link(onEvent1,14090237:doWork3,[(445,209)])
link(onEvent2,11392568:doOn,[])
link(onEvent3,2944567:doDownload,[(431,223)(431,237)(172,237)(172,97)])
}
Add(Thread,9458643,63,77)
{
Delay=0
FastStop=0
link(onExec,8025464:doEvent1,[])
link(onSyncExec,6027582:doEvent,[(114,90)(114,307)])
}
Add(IndexToChanel,6027582,476,301)
{
Point(Index)
link(onEvent1,9458643:doStop,[(515,307)(515,342)(53,342)(53,90)])
link(onEvent2,5234130:doLoad,[])
link(Index,11392568:State,[])
}
Add(Switch,11392568,476,196)
{
DataOn=Integer(1)
DataOff=Integer(0)
Point(State)
Point(doOn)
}
Add(Bitmap,2679206,532,252)
{
}
END_SDK
Add(MainForm,16294721,175,168)
{
Height=494
Position=1
link(onCreate,16598175:doFor,[])
}
Add(VBoxLayout,10021512,175,126)
{
Name="vv"
}
Add(For,16598175,231,182)
{
IncludeEnd=1
link(onEvent,9202441:doGetString,[])
link(End,14751944:Var3,[(244,173)(272,173)])
}
Add(For,10526727,259,231)
{
link(onEvent,5811607:##select,[])
link(End,14751944:Var2,[])
}
Add(StrList,9202441,287,140)
{
Strings=#47:http://imageshack.us/a/img826/2092/10003761.jpg|13:asbasdbasd.ru|47:http://imageshack.us/a/img836/2720/10003651.jpg|
Point(doGetString)
Point(onGetString)
link(onGetString,5811607:##add,[(340,153)(340,230)])
}
Add(GetDataEx,14751944,266,203)
{
Angle=1
link(Data,9202441:Count,[(300,208)])
}
Схему в полном виде использовать не желательно, тк асинхроннный вывод идет на интерфейсные элементы. Схема чисто для проверки ------------ Дoбавленo в 19.06:Для исключения влияния потока на интерфейсные элементы надо делать как-то так Add(Button,11739294,175,231)
{
Left=100
Top=395
Width=165
Height=40
Data=String()
link(onClick,10526727:doFor,[])
}
Add(ChildPanelEx,5811607,350,224)
{
Mode=1
}
BEGIN_SDK
Add(EditMultiEx,15435750,21,21)
{
WorkCount=#5:##add|8:##select|
Width=846
Height=417
VOffset=7
Point(##add)
Point(##select)
link(##add,3250669:doValue,[])
link(##select,10200424:doEvent1,[(32,41)(32,83)])
}
Add(Panel,11326120,252,28)
{
Left=5
Top=5
Width=373
Height=122
Layout="parent.vv"
}
Add(HTTP_Get,2944567,203,91)
{
Wait=0
link(onStatus,7038518:doValue,[])
link(onDownload,8399227:doCopy,[(242,104)(242,76)])
link(onURLSize,1228704:doEvent1,[(263,111)(263,160)])
link(onStop,11487333:doEvent1,[(242,118)(242,265)])
link(URL,3250669:Value,[])
}
Add(MemoryStream,8399227,441,70)
{
Point(doPosition)
}
Add(If_else,3419385,308,161)
{
Type=3
Op2=Integer(0)
link(onTrue,2945122:doData,[])
link(onFalse,2560188:doData,[(361,174)(361,209)])
}
Add(Label,7768796,819,399)
{
Left=10
Top=10
Width=165
Height=17
Caption=""
AutoSize=1
link(Text,13374651:Value,[])
}
Add(DoData,2560188,371,203)
{
Data=String(что-то есть)
link(onEventData,5541131:doEvent1,[])
}
Add(DoData,2945122,371,161)
{
Data=String(пусто)
link(onEventData,13712841:doEvent1,[])
}
Add(Hub,8025464,154,77)
{
link(onEvent1,8399227:doClear,[])
link(onEvent2,2944567:GetURLSize,[(186,90)(186,111)])
}
Add(ProgressBar,14707583,784,350)
{
Left=185
Top=10
Width=180
Point(doMax)
}
Add(Memory,3250669,203,28)
{
}
Add(Image,5234130,602,308)
{
Left=15
Top=40
Width=110
Height=75
link(Bitmap,2679206:Bitmap,[])
}
Add(HubEx,14090237,462,161)
{
link(onEvent,13374651:doValue,[])
}
Add(Hub,1228704,273,154)
{
link(onEvent1,9230220:doValue,[(298,160)(298,132)])
link(onEvent2,3419385:doCompare,[])
}
Add(Jpeg,7507809,441,252)
{
Point(Stream)
Point(doLoadFromStream)
Point(doBitmap)
link(onBitmap,2679206:doLoad,[])
link(Stream,8399227:Stream,[])
}
Add(Hub,11487333,266,259)
{
OutCount=3
link(onEvent1,8399227:doPosition,[(347,265)(347,90)])
link(onEvent2,7507809:doLoadFromStream,[])
link(onEvent3,7507809:doBitmap,[])
}
Add(Hub,13712841,420,161)
{
link(onEvent1,14090237:doWork2,[])
link(onEvent2,11392568:doReset,[(487,174)(487,209)])
}
Add(Hub,5541131,420,203)
{
OutCount=3
link(onEvent1,14090237:doWork3,[(466,209)])
link(onEvent2,11392568:doOn,[])
link(onEvent3,2944567:doDownload,[(452,223)(452,237)(193,237)(193,97)])
}
Add(Thread,9458643,84,77)
{
Delay=0
FastStop=0
link(onExec,8025464:doEvent1,[])
link(onSyncExec,6027582:doEvent,[(135,90)(135,307)])
}
Add(IndexToChanel,6027582,497,301)
{
Point(Index)
link(onEvent1,10085420:doEvent1,[(536,307)(536,286)])
link(onEvent2,5234130:doLoad,[])
link(Index,11392568:State,[])
}
Add(Switch,11392568,497,196)
{
DataOn=Integer(1)
DataOff=Integer(0)
Point(State)
Point(doOn)
}
Add(Bitmap,2679206,602,252)
{
}
Add(Memory,13374651,819,161)
{
Default=String()
}
Add(Timer,14864024,602,357)
{
Interval=50
Enable=1
Point(onStop)
link(onTimer,12164974:doEvent1,[])
link(onStop,12164974:doEvent2,[])
}
Add(Hub,10085420,546,280)
{
link(onEvent1,9458643:doStop,[(578,286)(578,342)(74,342)(74,90)])
link(onEvent2,14864024:doStop,[(571,293)(571,370)])
}
Add(Hub,10200424,42,77)
{
link(onEvent1,9458643:doStart,[])
link(onEvent2,14864024:doTimer,[(68,90)(68,363)])
}
Add(Memory,7038518,735,91)
{
Default=Integer(0)
}
Add(Hub,12164974,651,357)
{
InCount=2
OutCount=3
link(onEvent1,11764277:doData,[])
link(onEvent2,8913385:doData,[])
link(onEvent3,7768796:doText,[(683,377)(683,405)])
}
Add(Memory,9230220,693,126)
{
Default=Integer(0)
}
Add(DoData,11764277,693,357)
{
link(onEventData,14707583:doMax,[])
link(Data,9230220:Value,[])
}
Add(DoData,8913385,735,364)
{
link(onEventData,14707583:doPosition,[(774,370)(774,356)])
link(Data,7038518:Value,[])
}
END_SDK
Add(MainForm,16294721,175,168)
{
Height=494
Position=1
link(onCreate,16598175:doFor,[])
}
Add(VBoxLayout,10021512,175,126)
{
Name="vv"
}
Add(For,16598175,231,182)
{
IncludeEnd=1
link(onEvent,9202441:doGetString,[])
link(End,14751944:Var3,[(244,173)(272,173)])
}
Add(For,10526727,259,231)
{
link(onEvent,5811607:##select,[])
link(End,14751944:Var2,[])
}
Add(StrList,9202441,287,140)
{
Strings=#47:http://imageshack.us/a/img826/2092/10003761.jpg|13:asbasdbasd.ru|47:http://imageshack.us/a/img836/2720/10003651.jpg|
Point(doGetString)
Point(onGetString)
link(onGetString,5811607:##add,[(340,153)(340,230)])
}
Add(GetDataEx,14751944,266,203)
{
Angle=1
link(Data,9202441:Count,[(300,208)])
}
|
http_get_multi_)001.png
Поиск
Друзья
Администрация