Add(MainForm,12656576,98,133)
{
 Width=290
 Height=236
 Caption="Пример использования WinFTP"
}
Add(WinFTP,7587478,238,189)
{
 Host="ftp_host"
 Username="user"
 Password="pass"
 Directory="."
 Point(onConnect)
 link(onRead,1990812:doClose,[(286,202)(286,178)(231,178)(231,146)])
 link(LocalName,1990812:Stream,[])
 link(RemoteName,981750:Var2,[(251,171)(279,171)])
 link(onConnect,14957085:doEvent1,[])
}
Add(FileStream,1990812,238,133)
{
 Mode=1
 link(onLoad,16230437:doMessage,[])
}
Add(Message,7884494,350,203)
{
 Message="Connect OK!"
}
Add(Hub,14957085,301,203)
{
 link(onEvent1,7884494:doMessage,[])
 link(onEvent2,11887797:doExecute,[(410,216)(410,107)(142,107)(142,139)])
}
Add(Message,16230437,350,133)
{
 Message="WRITE OK!"
}
Add(Button,11506159,98,189)
{
 Left=5
 Top=75
 link(onClick,7587478:doOpen,[])
}
Add(SDialog,11887797,154,133)
{
 FileName=""
 Point(FileName)
 link(onExecute,11194804:doEvent1,[])
 link(FileName,981750:Var1,[(160,117)])
}
Add(Edit,16312119,273,63)
{
 Left=70
 Top=75
 Width=200
 Text="file.txt"
}
Add(GetDataEx,981750,273,112)
{
 link(Data,16312119:Text,[])
}
Add(Hub,11194804,196,133)
{
 link(onEvent1,1990812:doOpen,[])
 link(onEvent2,7587478:doReadFile,[(222,146)(222,209)])
}