Вверх ↑
Ответов: 9906
Рейтинг: 351
#1: 2005-10-28 20:36:50 ЛС | профиль | цитата
Вот так, к примеру
Add(MainForm,4490709,28,224)
{
Left=20
Top=105
}
Add(Label,4429287,28,168)
{
Left=25
Width=340
Height=30
Caption="перетащи сюда файл и сохрани его в другом месте"
AutoSize=1
Alignment=2
}
Add(DataToFile,15674270,427,182)
{
link(Stream,3484989:Stream,[(433,167)(202,167)])
}
Add(DropFile,18756,28,42)
{
link(onDropFile,66235:doOpen,[])
}
Add(Edit,67751,371,21)
{
Left=25
Top=60
Width=340
Height=21
Font=[Times New Roman,9,0,0,1]
Text="c: est.txt"
}
Add(FileStream,66235,84,42)
{
link(onLoad,5210381:doEvent1,[])
}
Add(FileStream,54924,371,70)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,67751:Text,[])
}
Add(Math,11985150,427,231)
{
OpType=6
ResultType=0
link(onResult,86012:doPut,[])
link(Op1,15674270:Data,[])
}
Add(For,9494795,196,231)
{
IncludeEnd=1
link(onEvent,11138163:doRandom,[])
link(onStop,16183104:doStop,[(242,244)(242,195)])
link(End,3484989:Size,[(209,132)(209,132)])
}
Add(DataToFile,86012,476,231)
{
link(Stream,14238277:Var3,[(482,156)])
}
Add(Hub,9419287,119,238)
{
OutCount=4
link(onEvent1,12701105:doClear,[(166,244)(166,125)])
link(onEvent2,983694:doData,[])
link(onEvent3,9494795:doFor,[(180,258)(180,237)])
link(onEvent4,9052587:doWork3,[(305,265)])
}
Add(Edit,7458677,322,196)
{
Left=25
Top=100
Width=150
Text="123"
DataType=2
}
Add(Random,11138163,378,231)
{
Max=255
Point(doRandSeed)
link(onRandom,11985150:doOperation,[])
}
Add(DoData,983694,322,245)
{
link(onEventData,11138163:doRandSeed,[])
link(Data,7458677:Text,[])
}
Add(Thread,9208520,252,77)
{
Delay=0
FastStop=0
link(onExec,9419287:doEvent1,[(300,83)(300,177)(111,177)(111,244)])
link(onSyncExec,12887657:doData,[])
}
Add(Label,16118894,378,182)
{
Left=205
Top=100
Width=155
Height=20
Color=65280
Caption=""
AutoSize=1
link(Text,12701105:Size,[])
}
Add(Timer,16183104,259,182)
{
Interval=100
Enable=1
link(onTimer,9052587:doWork2,[])
}
Add(HubEx,9052587,301,175)
{
link(onEvent,16118894:doText,[])
}
Add(Hub,5210381,133,42)
{
OutCount=6
link(onEvent1,3484989:doClear,[(185,48)(185,62)])
link(onEvent2,3484989:doCopy,[])
link(onEvent3,66235:doClose,[(175,62)(175,32)(74,32)(74,55)])
link(onEvent4,3484989:doPosition,[])
link(onEvent5,16183104:doTimer,[(176,76)(176,188)])
link(onEvent6,9208520:doStart,[])
}
Add(MemoryStream,3484989,196,49)
{
Point(doPosition)
}
Add(MemoryStream,12701105,371,112)
{
}
Add(DoData,12887657,315,84)
{
link(onEventData,54924:doCopyFromStream,[])
link(Data,14238277:Var1,[(321,68)(359,68)(359,156)])
}
Add(GetDataEx,14238277,364,147)
{
link(Data,12701105:Stream,[])
}


Только пароль шифровки не забывай.
А то я не очень представляю, как его расшифровать, если позабыть....
карма: 9

0