Вверх ↑
Ответов: 178
Рейтинг: 14
#1: 2022-07-13 08:20:56 ЛС | профиль | цитата
Gunta писал(а):
Как-то так
Add(MainForm,8185650,133,147)
{
Width=599
Height=144
Point(onClose)
link(onClose,4379778:doClose,[(182,174)(182,111)])
}
Add(FTP_Client,4379778,217,98)
{
@Color=11788021
Name="test1"
Host="10.7.23.222"
Port=22
link(onConnect,7129149:doDirAction,[])
}
Add(Button,12335799,133,98)
{
@Hint=#4:Open|
Left=40
Top=15
Width=315
Height=60
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Caption="Проверить наличие файла 07.txt на FTP"
link(onClick,4379778:doOpen,[])
}
Add(FTPC_FileSearch,15541029,336,98)
{
@Color=11788021
Mask="07.txt"
FTP_Client="test1"
Point(onNotFound)
link(onSearch,8821973:doOn,[])
link(onNotFound,8821973:doReset,[(382,118)(382,97)])
}
Add(FTPC_DirAction,7129149,280,98)
{
@Color=11788021
Directory="/aww/reh"
FTP_Client="test1"
link(onDirAction,15541029:doSearch,[])
}
Add(Switch,8821973,413,84)
{
DataOn=String(Файл найден)
DataOff=String(Файл не найден)
Point(doOn)
link(onSwitch,1417097:doText,[])
}
Add(Label,1417097,469,84)
{
Left=380
Top=20
Width=155
Height=50
Caption=""
AutoSize=1
}



Не работает. Не существующий файл находит.
Add(MainForm,8185650,91,126)
{
Width=599
Height=144
Point(onClose)
link(onClose,4379778:doClose,[(140,153)(140,90)])
}
Add(FTP_Client,4379778,175,77)
{
@Color=11788021
Name="test1"
Host="87.249.230.14"
Port=0
link(onConnect,7129149:doDirAction,[])
}
Add(Button,12335799,91,77)
{
@Hint=#4:Open|
Left=40
Top=15
Width=315
Height=60
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Caption="Проверить наличие файла 07.txt на FTP"
link(onClick,4379778:doOpen,[])
}
Add(FTPC_FileSearch,15541029,294,77)
{
@Color=11788021
Mask="cd333d.txt"
FTP_Client="test1"
Point(onNotFound)
link(onSearch,8821973:doOn,[])
link(onNotFound,8821973:doReset,[(340,97)(340,76)])
}
Add(FTPC_DirAction,7129149,238,77)
{
@Color=11788021
Directory="/pub/incoming/"
FTP_Client="test1"
link(onDirAction,15541029:doSearch,[])
}
Add(Switch,8821973,371,63)
{
DataOn=String(Файл найден)
DataOff=String(Файл не найден)
Point(doOn)
link(onSwitch,1417097:doText,[])
}
Add(Label,1417097,427,63)
{
Left=380
Top=20
Width=155
Height=50
Caption=""
AutoSize=1
}

Вот так работает:
Add(MainForm,8185650,91,126)
{
Width=599
Height=144
Point(onClose)
link(onClose,4379778:doClose,[(140,153)(140,90)])
}
Add(FTP_Client,4379778,175,77)
{
@Color=11788021
Name="test1"
Host="87.249.230.14"
Port=0
link(onConnect,7129149:doDirAction,[])
}
Add(Button,12335799,91,77)
{
@Hint=#4:Open|
Left=40
Top=15
Width=315
Height=60
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Caption="Проверить наличие файла 07.txt на FTP"
link(onClick,4379778:doOpen,[])
}
Add(FTPC_FileSearch,15541029,294,77)
{
@Color=11788021
Mask=""
FTP_Client="test1"
Point(onNotFound)
link(onSearch,15033417:doEvent,[])
link(Mask,15108538:Var1,[(300,65)])
link(onNotFound,10789772:doWork3,[(417,97)])
}
Add(FTPC_DirAction,7129149,238,77)
{
@Color=11788021
Directory="/pub/incoming/"
FTP_Client="test1"
link(onDirAction,15541029:doSearch,[])
}
Add(Label,1417097,581,77)
{
Left=380
Top=20
Width=155
Height=50
Caption="---"
AutoSize=1
}
Add(If_else,9351670,371,77)
{
Op2=String()
link(onTrue,4947320:doData,[])
link(onFalse,10789772:doWork2,[])
link(Op2,15108538:Var3,[(384,65)])
}
Add(Debug,15033417,343,77)
{
link(onEvent,9351670:doCompare,[])
}
Add(DoData,4947320,490,77)
{
Data=String(ДА)
link(onEventData,5664584:doWork2,[])
}
Add(DoData,11448921,434,84)
{
Data=String(НЕТ)
link(onEventData,5664584:doWork3,[(557,90)])
}
Add(HubEx,5664584,553,77)
{
link(onEvent,1417097:doText,[])
}
Add(Memory,7484602,315,21)
{
Default=String(cw7.rar)
}
Add(GetDataEx,15108538,315,60)
{
link(Data,7484602:Value,[])
}
Add(HubEx,10789772,413,84)
{
link(onEvent,11448921:doData,[])
}

карма: 0

0
Редактировалось 6 раз(а), последний 2022-07-13 08:41:17