Помогите решить проблему с которой сам справится не смог. Проблема в том что после закачки файла на ftp и закрытии сессии с ftp фаил получается 0-ой длины
Add(MainForm,10491569,49,399)
{
Left=20
Top=105
Width=610
Height=329
link(onCreate,11747333:doEvent1,[(103,440)(103,440)])
}
Add(Memory,8017603,392,483)
{
}
Add(Hub,11747333,126,434)
{
link(onEvent1,15256292:doOpen,[(198,440)(198,328)])
link(onEvent2,14805831:doRead,[(194,447)(194,467)])
}
Add(Button,5926802,42,343)
{
Left=480
Top=20
Width=105
Height=30
Caption="X"
link(onClick,15276962:doExecute,[])
}
Add(ODialog,15276962,84,343)
{
link(onExecute,1974694:doOpen,[(128,349)(86,349)])
}
Add(Registry,14805831,231,461)
{
HKey=1
Key="SoftwareInformupdate"
Value="zip"
link(onRead,5849786:doInsert,[(297,467)(297,478)])
}
Add(FileStream,1974694,133,343)
{
link(onLoad,15256292:doWriteFile,[(208,349)(208,349)])
}
Add(WinFTP,15256292,238,322)
{
Point(onConnect)
Point(onWrite)
link(onError,9530429:doOn,[(285,328)(285,279)])
link(RemoteName,8017603:Value,[(251,312)(331,312)(331,525)(398,525)])
link(onConnect,3886127:doOn,[])
link(onWrite,10494473:doOn,[(285,349)(285,398)])
}
Add(LED,3886127,315,329)
{
Left=185
Top=90
}
Add(LED,10494473,301,385)
{
Left=235
Top=90
}
Add(LED,9530429,301,266)
{
Left=575
Top=275
}
Add(Insert,5849786,331,472)
{
SubStr=".zip"
Position=9999
link(onInsert,8017603:doValue,[(377,478)(377,489)])
}