Вверх ↑
Ответов: 5227
Рейтинг: 586
#1: 2009-03-17 16:33:41 ЛС | профиль | цитата
[b]DAdMAx[/b], попробуй так

Add(MainForm,37125,35,35)
{
Left=20
Top=105
Width=377
Height=195
Caption="Копирование файлов с помощью FileStream"
BorderStyle=3
Position=1
}
Add(FileStream,9126190,462,84)
{
Mode=1
Point(doCopyFromStream)
link(FileName,8018009:Text,[])
}
Add(StreamCopy,3497766,357,189)
{
Count=1000
link(Dest,9126190:Stream,[(363,168)(468,168)])
link(Source,6674453:Stream,[])
link(Count,7196084:Text,[(377,178)(188,178)])
link(onCopy,9126190:doCopyFromStream,[(425,195)(425,104)])
}
Add(Hub,10001394,301,189)
{
link(onEvent1,3497766:doCopy,[])
link(onEvent2,3334286:doWork1,[(347,202)])
}
Add(Thread,16606372,182,189)
{
Delay=0
FastStop=0
link(onExec,6285456:doFor,[])
}
Add(FileStream,6674453,364,98)
{
link(FileName,4997065:Text,[])
}
Add(Edit,4997065,364,35)
{
Left=10
Top=20
Width=315
Text="Имя файла"
link(onChange,2711294:doWork1,[])
}
Add(Button,13364289,119,35)
{
Left=330
Top=20
Width=30
Hint="Выберите файл"
Caption="..."
link(onClick,772520:doExecute,[])
}
Add(Edit,8018009,462,35)
{
Left=10
Top=60
Width=350
Text="Новое имя файла"
}
Add(ODialog,772520,182,35)
{
link(onExecute,981079:doEvent1,[])
}
Add(Hub,981079,245,35)
{
OutCount=4
link(onEvent1,4997065:doText,[])
link(onEvent2,6674453:doOpen,[(344,48)(344,104)])
link(onEvent3,7754654:In,[(294,55)(294,69)])
link(onEvent4,14267965:doEnabled,[(286,62)(286,76)(107,76)(107,90)])
}
Add(MultiElement,2711294,413,35)
{
@Hint=#32:Новое имя файла с префиксом New_|
link(onEvent1,8018009:doText,[])
}
BEGIN_SDK
Add(EditMulti,15985795,21,21)
{
EventCount=1
WorkCount=1
link(doWork1,3305867:doEvent1,[(35,27)(35,111)])
}
Add(StrCat,871027,175,56)
{
Str1="New_"
link(onStrCat,12080695:doValue,[])
}
Add(FilePart,4833415,105,49)
{
NameWOExt=1
link(onPath,7061556:doValue,[])
link(onName,871027:doStrCat,[])
}
Add(StrCat,2123902,224,112)
{
link(onStrCat,15985795:onEvent1,[(309,118)(309,27)])
link(Str1,7061556:Value,[])
link(Str2,12080695:Value,[(237,104)(272,104)])
}
Add(Memory,7061556,224,49)
{
}
Add(Memory,12080695,266,56)
{
}
Add(Hub,3305867,49,105)
{
link(onEvent1,4833415:doPart,[(93,111)(93,55)])
link(onEvent2,2123902:doStrCat,[])
}
END_SDK
Add(For,6285456,245,189)
{
Start=1
Step=1000
Point(doStep)
link(onEvent,10001394:doEvent1,[])
link(onStop,10551021:doEvent1,[(286,202)(286,111)])
link(End,8758688:Var1,[(258,156)])
}
Add(ProgressBar,14763115,357,252)
{
Left=10
Top=100
Width=350
Smooth=1
ProgressColor=8388608
Point(doMax)
}
Add(DoData,9748640,308,259)
{
link(onEventData,14763115:doMax,[])
link(Data,8758688:Var2,[])
}
Add(GetDataEx,8758688,301,147)
{
Angle=1
link(Data,6674453:Size,[(377,156)])
}
Add(Edit,7196084,182,133)
{
Left=10
Top=130
Text="1000"
DataType=2
link(onChange,6285456:doStep,[(226,139)(226,209)])
}
Add(Label,13011390,35,112)
{
Left=70
Top=135
Width=139
Height=17
Caption="Размер буфера в байтах"
}
Add(Button,14267965,119,84)
{
Left=230
Top=130
Width=130
Enabled=1
Caption="Копировать"
Point(doEnabled)
link(onClick,8200132:doEvent1,[])
}
Add(Message,4711303,511,119)
{
Message="Копирование завершено."
Caption="Сообщение"
Point(onOK)
link(onOK,2886157:In,[])
}
Add(Hub,8200132,182,84)
{
link(onEvent1,9126190:doOpen,[])
link(onEvent2,16606372:doStart,[(226,97)(226,124)(169,124)(169,195)])
}
Add(Hub,10551021,301,105)
{
OutCount=3
link(onEvent1,6674453:doClose,[])
link(onEvent2,9126190:doClose,[(415,118)(415,97)])
link(onEvent3,4711303:doMessage,[])
}
Add(LineBreak,3689887,243,259)
{
Caption="max"
link(Out,9748640:doData,[])
Primary=[7754654,65,-196]
}
Add(HubEx,3334286,343,231)
{
Angle=1
link(onEvent,14763115:doPosition,[(347,258)])
}
Add(LineBreak,15418567,239,238)
{
Caption="clear"
link(Out,3334286:doWork2,[])
Primary=[2886157,321,-112]
}


карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0