Вверх ↑
Разработчик
Ответов: 26066
Рейтинг: 2120
#1: 2018-11-29 15:54:52 ЛС | профиль | цитата
Netspirit писал(а):
- разбор ссылки для получения пути сохранения (компоненты для работы со строками или путями файлов)
-- получить путь (убрать адрес сервера)
-- к полученному пути прибавить путь к родительскому каталогу, куда файлы будут сохранены

Для затравки:
Схема

Add(MainForm,2953706,91,84)
{
Width=715
Height=133
}
Add(Edit,15475207,238,84)
{
Left=10
Top=10
Width=685
Text="https://static-eu.insales.ru/images/products/1/2467/75237795/18_Вафли__Snack__в_шоколаде_с_орехами.jpg"
}
Add(Replace,3397290,238,140)
{
SubStr="//"
DestStr="/"
link(onReplace,11319896:doSplit,[])
link(Str,15475207:Text,[])
}
Add(Edit,9257177,455,147)
{
Left=10
Top=35
Width=685
Text=""
}
Add(MultiStrData,11319896,301,140)
{
Char="/"
link(onPart2,13088982:doReplace,[])
}
Add(Browse,9961737,140,140)
{
link(onBrowse,11761381:doValue,[])
}
Add(Memory,11761381,189,140)
{
link(onData,3397290:doReplace,[])
}
Add(Button,16523057,91,140)
{
Left=320
Top=65
TabOrder=-1
link(onClick,9961737:doBrowse,[])
}
Add(Replace,13088982,357,147)
{
SubStr="/"
DestStr="\"
link(onReplace,2737426:doStrCatDlm,[])
link(Str,11319896:RemaindStr,[(363,138)(349,138)(349,180)(307,180)])
}
Add(StrCatDelim,2737426,406,147)
{
Delimiter="\"
link(onStrCatDlm,9257177:doText,[])
link(Str1,11761381:Value,[(412,131)(293,131)(293,180)(195,180)])
}

карма: 22

0
Редактировалось 1 раз(а), последний 2018-11-29 15:55:35