Вверх ↑
Ответов: 9
Рейтинг: 0
#1: 2023-04-13 12:32:23 ЛС | профиль | цитата
georgmann писал(а):
Gunta писал(а): georgmann, Вот схема, проверяй.
Не сочтите за наглость, но хочу попросить вас прикрутить еще несколько необходимых функций.

Так, кнопку Очистить и Остановить я смог сам добавить! Вроде работает! Также сделал, чтобы кнопки всегда были активными - меня так больше устраивает. Проверьте пожалуйста:
Add(MainForm,7670060,700,588)
{
Left=100
Top=100
Width=1000
Height=1000
Caption="Shortener"
Point(doHeight)
Point(doWidth)
}
Add(MST_ArrayRows,5429603,1155,637)
{
MSTControl="asd"
}
Add(MTStrTbl,6542947,763,588)
{
Width=459
Height=255
Align=5
Name="asd"
Columns=#8:long_url|12:shortenedUrl|
ColumnWidth=400
}
Add(MST_Load,11685183,868,679)
{
ColNameHeader=1
MSTControl="asd"
}
Add(IndexToChanel,8532413,756,679)
{
Count=5
link(onEvent1,13303500:doExecute,[])
link(onEvent2,2686662:doData,[(809,692)(809,727)])
link(onEvent3,3379452:doExecute,[(802,699)(802,769)])
link(onEvent4,1497313:doEvent2,[(795,706)(795,832)])
link(onEvent5,12325246:doStop,[(788,890)(1070,888)(1343,888)(1343,734)])
}
Add(ODialog,13303500,819,679)
{
Filter="All Files|*.*"
Title="Открыть"
FileName=""
link(onExecute,11685183:doLoad,[])
}
Add(SDialog,3379452,819,763)
{
Filter="csv|*.csv"
Title="Сохранить"
FileName="out_links.csv"
link(onExecute,184413:doSave,[])
}
Add(MST_Save,184413,868,763)
{
SaveColumn=1
SaveColProp=1
MSTControl="asd"
link(onSave,1497313:doEvent1,[(902,769)(902,825)])
}
Add(MST_ColAction,5297033,1617,728)
{
Action=9
Index=-2
MSTControl="asd"
}
Add(CounterEx,8899381,1617,798)
{
Max=1000
Point(doReset)
link(onNext,3786934:doWork3,[(1656,804)(1656,790)(998,790)])
}
Add(If_else,5514474,1050,721)
{
Type=4
link(onTrue,1025522:doValue,[])
link(Op1,5429603:EndIdx,[(1056,712)(1175,712)])
}
Add(DoData,2686662,819,721)
{
Data=Integer(0)
link(onEventData,3786934:doWork2,[])
}
Add(MT_MTArrayRW,7985455,1155,721)
{
link(onRead,9040420:doSeparateMT,[])
link(Array,5429603:Strings,[])
}
Add(MenuEx,8319746,679,672)
{
Menu=#7:Открыть|9:Сократить|9:Сохранить|8:Очистить|10:Остановить|
Bitmaps=[]
Point(doEnablIdx)
link(MenuItemIdx,2470131:doEvent1,[])
}
Add(Hub,2470131,721,672)
{
link(onEvent1,1901754:doWork1,[(746,678)(746,664)(669,664)])
link(onEvent2,8532413:doEvent,[])
}
Add(Hub,2549451,994,805)
{
OutCount=5
link(onEvent1,8899381:doReset,[])
link(onEvent3,14204392:doWork1,[])
link(onEvent4,14204392:doWork2,[])
link(onEvent5,14204392:doWork3,[])
}
Add(HubEx,1901754,665,672)
{
}
Add(ChanelToIndex,14204392,1029,819)
{
Count=3
link(onIndex,1901754:doWork3,[(1074,825)(1074,863)(669,863)])
}
Add(MST_Clear,9772385,917,763)
{
MSTControl="asd"
link(onChange,2549451:doEvent1,[(984,769)(984,811)])
}
Add(MST_RowAction,791201,1526,728)
{
Action=2
MSTControl="asd"
link(onChange,1696207:doEvent1,[])
}
Add(MT_MultiData,9040420,1204,721)
{
Count=1
link(onData1,4522093:doValue,[])
}
Add(HTTP_Get,12325246,1351,721)
{
link(onDownload,16204259:doConvert,[])
}
Add(StreamConvertor,16204259,1393,728)
{
Mode=6
link(onResult,6483062:doAdd,[])
}
Add(FormatStr,10659343,1302,721)
{
DataCount=1
Mask="https://linksly.co/api?api=ebe9fdbf04176bcb0a7d727e9c8857f8da8b5deb&url=%1&format=text"
link(onFString,12325246:doDownload,[])
}
Add(Memory,1025522,1106,721)
{
link(onData,7985455:doRead,[])
}
Add(MT_AddData,6483062,1470,728)
{
Count=3
InputMT=3
link(onAdd,791201:doRowAction,[])
link(Data1,1025522:Value,[(1476,719)(1462,719)(1462,775)(1112,775)])
link(Data2,4522093:Value,[(1483,712)(1452,712)(1452,766)(1259,766)])
}
Add(Memory,4522093,1253,721)
{
link(onData,10659343:doString,[])
}
Add(Hub,1696207,1575,728)
{
link(onEvent1,5297033:doColAction,[])
link(onEvent2,8899381:doNext,[(1607,741)(1607,804)])
}
Add(HubEx,3786934,994,721)
{
link(onEvent,5514474:doCompare,[])
}
Add(Hub,1497313,903,819)
{
InCount=2
OutCount=1
link(onEvent1,9772385:doClear,[(929,825)(929,797)(905,797)(905,769)])
}
Потихоньку начинаю разбираться.
Но все же пока не могу сделать счетчик количества всех и обработанных ссылок. Здесь вообще не соображаю, как такое делается.
А также не знаю как сделать задержку, а это очень важно! Если поможете, буду благодарен!
карма: 0

0
Редактировалось 7 раз(а), последний 2023-04-13 13:03:01