HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуПроверить наличие файла на ftp ← Ctrl1Ctrl →
Этот топик читают: Гость
Ответов: 180
Рейтинг: 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контекстная реклама от партнеров
Ответов: 698
Рейтинг: 143
#2: 2021-12-26 15:38:21 ЛС | профиль | цитата
Stalevar писал(а):
Подскажите пожалуйста как проверить наличие файла на ftp.

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

0
Ответов: 180
Рейтинг: 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
Ответов: 698
Рейтинг: 143
#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
карма: 15

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

0
Ответов: 180
Рейтинг: 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
Ответов: 698
Рейтинг: 143
#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="Ошибка отправки файла"
}
карма: 15

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

0
Ответов: 180
Рейтинг: 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
ФорумыПомощь по пакетуПроверить наличие файла на ftp ← Ctrl1Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2020
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика