Add(MainForm,2953706,91,98)
{
 Width=272
 Height=153
 Caption="Пример использования WinFTP"
 link(onCreate,2894016:doExecute,[])
}
Add(WinFTP,7587478,203,168)
{
 Host="ftp_host"
 Username="user"
 Password="pass"
 Directory="."
 RemoteName="file.txt"
 Point(onWrite)
 Point(onConnect)
 link(onError,4175668:doMessage,[(257,174)(257,104)])
 link(LocalName,1990812:Stream,[])
 link(onWrite,6634264:doMessage,[(266,188)(266,146)])
 link(onConnect,7884494:doMessage,[])
}
Add(FileStream,1990812,203,112)
{
 link(onLoad,9434331:doEvent1,[(247,118)(247,153)(147,153)(147,174)])
}
Add(ODialog,2894016,147,112)
{
 link(onExecute,1990812:doOpen,[])
}
Add(Hub,9434331,161,168)
{
 link(onEvent1,7587478:doOpen,[])
 link(onEvent2,7587478:doWriteFile,[(189,181)(189,195)])
}
Add(Message,4175668,280,98)
{
}
Add(Message,6634264,280,140)
{
 Message="Write OK!"
 link(onMessage,2953706:doClose,[(328,146)(328,88)(72,88)(72,125)])
}
Add(Message,7884494,280,189)
{
 Message="Connect OK!"
}

Add(MainForm,12656576,105,126)
{
 Width=290
 Height=236
 Caption="Пример использования WinFTP"
}
Add(WinFTP,7587478,245,182)
{
 Host="ftp_host"
 Username="user"
 Password="pass"
 Directory="."
 Point(onConnect)
 link(onRead,1990812:doClose,[(293,195)(293,171)(238,171)(238,139)])
 link(LocalName,1990812:Stream,[])
 link(RemoteName,981750:Var2,[(258,164)(286,164)])
 link(onConnect,14957085:doEvent1,[])
}
Add(FileStream,1990812,245,126)
{
 Mode=1
 link(onLoad,16230437:doMessage,[])
}
Add(Message,7884494,357,196)
{
 Message="Connect OK!"
}
Add(Hub,14957085,308,196)
{
 link(onEvent1,7884494:doMessage,[])
 link(onEvent2,11887797:doExecute,[(417,209)(417,100)(149,100)(149,132)])
}
Add(Message,16230437,357,126)
{
 Message="WRITE OK!"
}
Add(Button,11506159,105,182)
{
 Left=5
 Top=75
 link(onClick,7587478:doOpen,[])
}
Add(SDialog,11887797,161,126)
{
 FileName=""
 Point(FileName)
 link(onExecute,11194804:doEvent1,[])
 link(FileName,981750:Var1,[(167,110)(167,110)])
}
Add(Edit,16312119,280,56)
{
 Left=70
 Top=75
 Width=200
 Text="file.txt"
}
Add(GetDataEx,981750,280,105)
{
 link(Data,16312119:Text,[])
}
Add(Hub,11194804,203,126)
{
 link(onEvent1,1990812:doOpen,[])
 link(onEvent2,7587478:doReadFile,[(229,139)(229,202)])
}