Вверх ↑
Разработчик
Ответов: 26067
Рейтинг: 2121
#1: 2015-11-17 01:10:23 ЛС | профиль | цитата
Если нужно писать в бинарный файл, то никаких проблем я здесь не наблюдаю

Add(MainForm,2953706,217,119)
{
Width=307
Height=194
}
Add(EnCrypt,7694506,336,126)
{
HashMode=0
Key="1262GeqJewB1K"
link(onEnCrypt,5223505:doConvert,[])
link(Data,13489714:Text,[(342,114)(310,114)(310,163)(279,163)])
}
Add(Edit,13489714,273,119)
{
Left=10
Top=10
Width=270
Text=""
link(onEnter,7694506:doEnCrypt,[])
}
Add(DeCrypt,14261023,399,189)
{
HashMode=0
Key="1262GeqJewB1K"
link(onDeCrypt,9069609:doAdd,[])
}
Add(StreamConvertor,5223505,392,126)
{
Mode=7
link(onResult,5926469:doCopyFromStream,[])
}
Add(StreamConvertor,3703891,350,189)
{
Mode=6
link(onResult,14261023:doDeCrypt,[])
}
Add(Button,5287699,217,189)
{
Left=115
Top=125
Width=70
Caption="Decrypt"
link(onClick,14265961:doEvent1,[])
}
Add(Memo,9069609,448,189)
{
Left=10
Top=35
Width=270
Height=85
}
Add(FileStream,5926469,448,112)
{
FileName="encryption.bin"
Mode=1
AutoCopy=0
Point(doCopyFromStream)
}
Add(FileStream,15106730,301,189)
{
FileName="encryption.bin"
link(onLoad,3703891:doConvert,[])
}
Add(Hub,14265961,273,189)
{
link(onEvent1,15106730:doOpen,[])
link(onEvent2,15106730:doClose,[])
}

карма: 22

0