code_31255.txt
------------ Дoбавленo в 12.08:
Точнее так, с правильным полиномом.
Add(MainForm,355637,112,98)
{
Height=74
}
Add(Button,15052470,168,98)
{
Left=10
Top=15
Caption="Open"
link(onClick,3501286:doExecute,[])
}
Add(Edit,3549258,518,98)
{
Left=85
Top=15
Width=295
Text=""
DataType=3
}
Add(FileStream,14580625,287,98)
{
link(onLoad,8947795:doEvent1,[])
}
Add(ODialog,3501286,224,98)
{
FileName=""
link(onExecute,14580625:doOpen,[])
}
Add(Hub,8947795,336,98)
{
link(onEvent1,16705857:doConvert,[])
link(onEvent2,14580625:doClose,[(364,111)(364,138)(275,138)(275,111)])
}
Add(CRC16_32,2392675,469,98)
{
Type=1
Metod=4
Polynom="$EDB88320"
Init="$FFFFFFFF"
link(onResult,3549258:doText,[])
}
Add(StreamConvertor,16705857,420,98)
{
link(onResult,2392675:doCalcCRC,[])
}