Вверх ↑
Ответов: 3851
Рейтинг: 159
#1: 2010-04-11 00:27:59 ЛС | профиль | цитата

EvgIg, начальство денег не даст


------------ Дoбавленo в 00.27:

немного побаловался -
Add(MainForm,2953706,189,161)
{
Caption="файло-перекачка"
link(onCreate,13400691:doStart,[])
}
Add(Sleep,11855346,406,266)
{
Delay=1
link(onSleep,15191456:doCopy,[])
}
Add(FileStream,659848,532,175)
{
FileName="t.tmp"
Mode=1
link(onLoad,11576833:doEvent1,[(580,181)(580,307)])
link(FileName,12911968:Value,[])
}
Add(StreamCopy,15191456,469,266)
{
Count=10
link(Dest,659848:Stream,[(475,235)(538,235)])
link(Source,10238569:Stream,[(482,224)(314,224)])
}
Add(FileStream,10238569,308,175)
{
FileName="hiasm.dll"
link(onLoad,659848:doOpen,[])
link(FileName,14590964:Value,[])
}
Add(Memory,12911968,532,119)
{
Default=String(t.tmp)
}
Add(For,4922520,308,273)
{
Step=10
IncludeEnd=1
link(onEvent,11855346:doSleep,[])
link(onStop,659848:doClose,[(376,286)(376,188)])
link(End,9989406:Var2,[])
}
Add(Timer,8209853,476,350)
{
Interval=60
link(onTimer,3702119:doData,[])
}
Add(DoData,3702119,539,350)
{
link(onEventData,8217571:doEvent1,[])
link(Data,659848:Size,[])
}
Add(Memory,14590964,308,119)
{
Default=String(HiAsm.exe)
}
Add(Thread,13400691,252,175)
{
Delay=100
FastStop=0
link(onExec,10238569:doOpen,[])
}
Add(Hub,8217571,595,350)
{
link(onEvent1,15944740:doPosition,[(703,356)(703,300)])
link(onEvent2,13928981:doText,[])
}
Add(Label,13928981,630,357)
{
Left=10
Top=107
Width=65
AutoSize=1
Alignment=1
}
Add(ProgressBar,15944740,728,294)
{
Left=85
Top=106
Width=270
Height=15
Color=-16777196
Max=0
Point(doMax)
}
Add(Hub,11576833,595,301)
{
link(onEvent1,11208978:doData,[])
link(onEvent2,4922520:doFor,[(627,314)(627,326)(296,326)(296,279)])
}
Add(DoData,11208978,651,301)
{
link(onEventData,15944740:doMax,[])
link(Data,9989406:Var3,[(657,257)])
}
Add(GetDataEx,9989406,315,252)
{
link(Data,10238569:Size,[])
}
в связи с чем появилось пару вопросов:
1. как запустить это под FPC ?
2. как копировать файлы более 2 ГБ ?

карма: 0
начавший
0