Вверх ↑
Этот топик читают: Гость
Ответов: 178
Рейтинг: 14
#1: 2021-12-26 14:30:29 ЛС | профиль | цитата
Здравствуйте.
Подскажите пожалуйста как проверить наличие файла на ftp.

Add(FileTools,5359044,126,35)
{
link(onEnd,11448907:doCompare,[])
}
Add(DoData,8691967,70,35)
{
Data=String(ftp://10.7.23.222/aww/reh/07.txt)
link(onEventData,5359044:doFileExists,[(114,41)(114,62)])
}
Add(If_else,11448907,168,35)
{
Op2=Integer(1)
}

Так можно?
Или нужно через WinFTP ?
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 652
Рейтинг: 138
#2: 2021-12-26 15:38:21 ЛС | профиль | цитата
Stalevar писал(а):
Подскажите пожалуйста как проверить наличие файла на ftp.

Так есть же специальный компонент для этого - FTPC_FileSearch
Который имеет два события: onSearch и onNotFound. Думаю, это то что тебе нужно.
карма: 14

0
Ответов: 178
Рейтинг: 14
#3: 2021-12-26 17:06:44 ЛС | профиль | цитата
Gunta писал(а):
Stalevar писал(а):
Подскажите пожалуйста как проверить наличие файла на ftp.

Так есть же специальный компонент для этого - FTPC_FileSearch
Который имеет два события: onSearch и onNotFound. Думаю, это то что тебе нужно.

FTP_Client тоже нужен?

--- Добавлено в 2021-12-26 17:32:17

Gunta
Можно по подробнее пожалуйста.

Редактировалось 1 раз(а), последний 2021-12-26 17:32:17
карма: 0

0
Ответов: 652
Рейтинг: 138
#4: 2021-12-26 17:45:32 ЛС | профиль | цитата
Stalevar писал(а):
Можно по подробнее

Как-то так
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
}


Редактировалось 1 раз(а), последний 2021-12-26 17:47:49
карма: 14

1
Голосовали:Stalevar
Ответов: 178
Рейтинг: 14
#5: 2021-12-26 17:53:34 ЛС | профиль | цитата
Gunta, Огромное СПАСИБО
карма: 0

0
Ответов: 178
Рейтинг: 14
#6: 2022-07-10 15:00:54 ЛС | профиль | цитата
А создать файл можно на ftp?
Add(MainForm,8185650,126,168)
{
Width=522
Height=220
Point(onClose)
link(onClose,4379778:doClose,[(175,195)(175,132)])
}
Add(FTP_Client,4379778,210,119)
{
@Color=11788021
Name="test1"
Host="ftp.rasla.ru"
Port=0
link(onConnect,7129149:doDirAction,[])
}
Add(Button,12335799,126,119)
{
@Hint=#4:Open|
Left=40
Top=15
Width=315
Height=60
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Caption="Проверить наличие файла на FTP"
link(onClick,4379778:doOpen,[])
}
Add(FTPC_FileSearch,15541029,329,119)
{
@Color=11788021
Mask="WarHammer40000.rar"
FTP_Client="test1"
Point(onNotFound)
link(onSearch,4947320:doData,[])
link(onNotFound,11448921:doData,[(419,139)(419,132)])
}
Add(FTPC_DirAction,7129149,266,119)
{
@Color=11788021
Directory="/Books"
FTP_Client="test1"
link(onDirAction,15541029:doSearch,[])
}
Add(Label,5963048,595,189)
{
Left=388
Top=30
Width=64
Height=30
Font=[MS Sans Serif,18,1,0,1]
Name="нз 13"
Caption="---"
AutoSize=1
Alignment=2
Point(doFont)
link(Text,1036234:Value,[])
}
Add(Memory,1036234,595,119)
{
Default=String(НЕТ)
link(onData,5963048:doText,[(639,125)(639,160)(583,160)(583,195)])
}
Add(DoData,4947320,406,119)
{
Data=String(ДА)
link(onEventData,1036234:doValue,[])
}
Add(DoData,11448921,476,126)
{
Data=String(НЕТ)
link(onEventData,1036234:doClear,[])
}
Add(StrList,14190204,210,189)
{
Strings=#6:qwqwqw|5:qwqwq|7:wfdsdfs|4:sffs|5:53535|
Point(doSave)
}
Add(FTPC_ReadWrite,2972772,210,252)
{
@Color=11788021
Mode=1
RemoteName="123.txt"
FTP_Client="test1"
Point(onError)
link(onFileOperation,13987831:doWork2,[])
link(LocalName,14190204:Text,[])
link(onError,13987831:doWork3,[(263,265)])
}
Add(Button,15374699,126,252)
{
@Hint=#4:Open|
Left=40
Top=100
Width=315
Height=60
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Caption="Создать"
link(onClick,2972772:doFileOperation,[])
}
Add(Label,2025956,336,252)
{
Left=388
Top=115
Width=64
Height=30
Font=[MS Sans Serif,18,1,0,1]
Name="нз 13"
Caption="---"
AutoSize=1
Alignment=2
Point(doFont)
}
Add(HubEx,13987831,259,252)
{
link(onEvent,688590:doData,[])
}
Add(DoData,688590,287,252)
{
Data=String(ОК)
link(onEventData,2025956:doText,[])
}


Редактировалось 2 раз(а), последний 2022-07-10 15:20:42
карма: 0

0
Ответов: 652
Рейтинг: 138
#7: 2022-07-10 16:00:42 ЛС | профиль | цитата
Stalevar писал(а):
А создать файл можно на ftp?

Сначала надо создать файл у себя, а потом его отправлять на FTP


Add(MainForm,8185650,448,189)
{
Width=522
Height=220
Point(onClose)
link(onClose,2262953:doEvent1,[])
}
Add(FTP_Client,4379778,532,140)
{
@Color=11788021
Name="test1"
Host="ftp.rasla.ru"
Port=0
link(onConnect,7129149:doDirAction,[])
}
Add(Button,12335799,448,140)
{
@Hint=#4:Open|
Left=40
Top=15
Width=315
Height=60
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Caption="Проверить наличие файла на FTP"
link(onClick,4379778:doOpen,[])
}
Add(FTPC_FileSearch,15541029,651,140)
{
@Color=11788021
Mask="WarHammer40000.rar"
FTP_Client="test1"
Point(onNotFound)
link(onSearch,4947320:doData,[])
link(onNotFound,11448921:doData,[])
}
Add(FTPC_DirAction,7129149,588,140)
{
@Color=11788021
Directory="/Books"
FTP_Client="test1"
link(onDirAction,15541029:doSearch,[])
}
Add(Label,5963048,840,154)
{
Left=388
Top=30
Width=64
Height=30
Font=[MS Sans Serif,18,1,0,1]
Name="нз 13"
Caption="---"
AutoSize=1
Alignment=2
Point(doFont)
}
Add(DoData,4947320,707,140)
{
Data=String(ДА)
link(onEventData,7331054:doWork1,[(816,146)])
}
Add(DoData,11448921,756,154)
{
Data=String(НЕТ)
link(onEventData,7331054:doWork2,[])
}
Add(StrList,14190204,560,189)
{
FileName="321txt"
Strings=#6:qwqwqw|5:qwqwq|7:wfdsdfs|4:sffs|5:53535|
Point(doSave)
}
Add(FTPC_ReadWrite,2972772,532,287)
{
@Color=11788021
Mode=1
RemoteName="123.txt"
FTP_Client="test1"
Point(onError)
link(onFileOperation,688590:doData,[])
link(LocalName,13661955:Text,[])
link(onError,1724186:doMessage,[(599,300)(599,335)])
}
Add(Button,15374699,448,287)
{
@Hint=#4:Open|
Left=40
Top=100
Width=315
Height=60
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Caption="Создать"
link(onClick,2972772:doFileOperation,[])
}
Add(Label,2025956,658,287)
{
Left=388
Top=115
Width=64
Height=30
Font=[MS Sans Serif,18,1,0,1]
Name="нз 13"
Caption="---"
AutoSize=1
Alignment=2
Point(doFont)
}
Add(DoData,688590,609,287)
{
Data=String(ОК)
link(onEventData,2025956:doText,[])
}
Add(HubEx,7331054,812,154)
{
link(onEvent,5963048:doText,[])
}
Add(Hub,2262953,497,210)
{
link(onEvent1,4379778:doClose,[(522,216)(522,153)])
link(onEvent2,14190204:doSave,[])
}
Add(VisualStrings,13661955,532,252)
{
Lines=#6:321txt|
Width=46
}
Add(Message,1724186,609,329)
{
Message="Внимание"
Caption="Ошибка отправки файла"
}

карма: 14

1
Голосовали:Stalevar
Ответов: 178
Рейтинг: 14
#8: 2022-07-10 17:03:10 ЛС | профиль | цитата
Gunta, Спасибо друг.
карма: 0

0
Ответов: 178
Рейтинг: 14
#9: 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,[])
}


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

0
9
Сообщение
...
Прикрепленные файлы
(файлы не залиты)