Вверх ↑
Ответов: 678
Рейтинг: 142
#1: 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