Бесконечно выскакивает уведомление.

Форумы Помощь по пакетуБесконечно выскакивает уведомление. ← Ctrl1Ctrl →

Этот топик читают: Гость

Этот топик был перемещен из раздела "Помощь по среде"

Ответов: 2

Рейтинг: 0

#1: 2020-08-21 16:01:50 ЛС | профиль | цитата

Всем хай! Столкнулся с проблемой. Создал программу для мониторинга работы файлового сервера, в случае разрыва соединения с ним, выскакивает уведомление, пытаюсь его закрыть, но так как соединения с сервером нет, оно выпрыгивает снова и снова, и так до бесконечности, пока не восстановиться соединение. Вопрос: как сделать так, что бы при нажатии на кнопку "ОК", окно с уведомлением пропадало?


Add(MainForm,2953706,21,105)
{
 Width=345
 Height=232
 Icon=[ZIPBE10000078DAAD575B6C5B55163D151144CA0705041A221E55BE06297F20C8E019188D22220112828F91105F3C0402544181793003343594021250221E2AAF6A860F40A128AA445BD54DD3344DD2A4CEA34D9BA489E338761E7672ED5C5FBF623BE966AD639FE03CA11227DAB17DAF7DD6DA6B3FCEBE4A6DC1DFB66D8AFFD5775B95BA4129F547182EA9BFAAC275BDB6AACB5AA74F9F565D5D5DFAB5B7B75785422175FCF8F18A8E8E8E2A5CAB81D5767676D6B6B7B7D79C3C79B2EAC8912315A3A3A3EAD4A953AAB9B9599D3871421D3B764C5DEEEAEEEE5667CE9CD1D8E7CE9D53ADADADE55EAFD7D5DFDFEFC667CFC0C0800F66C11C7C76CE9E3D6B819F0FDFF18093BBADADCD75F8F0E172F0541E8F4773F9AD3CB0873A7FFEBCEAEBEB53478F1E2DC36B1D3E370D0D0DD9232323E2F3F9646C6C6C85C167B978F1A20C0E0E0AF808B8D8E0DE041E75070E1C28A30ED04873D96CF5F4F42811D1F8785F79E1C28506603A7EBF5F028180048341999C9C5C618889BECEFBFC1EF981ABE6813D1C68D000FF2BC145EFBD1107FACBFBC3C3C30A7A56C39F16EEC7BDA7A6A6646666668D4D4F4F6BE37DC365626242C6C7C7B526E02FD857109316AC6A6AB01E07E029F8A9C05B21A6D5F8AD97FB70DF70382C914844DBECECECB2996BBC4F231FC3C3E8C1D8500BE40D3978C9813A303F4B3900536B0ECD2AA15F0B7FCFFDB8FFDCDCDCB25996B5C2CC75C3873C8C1E460B7280A686430B63011ECBF9486CFA8FFA2983DF0DFC1DF729C58B46A3DA62B1D81AE375C3C5F0305A9472A00E8C05F3A1B1B1B10CB9AD392067156B16F1AE83DF0E7FCBBD4A31E7E7E7B5D9B6BDC6CC3D7ECFF058CD81B1605E321F505F0E7CAD632EA097985C2F47CE3495621B5C8D138F4B3CEE68739CB516C77DC385BF9DB3A8458183C907E624EB175A330E4D870E1D2AA7FFF41DD75DF89E4DFD0CB66D03D349483C1A113B32214E342CC9645292A974E1B5C4128944814BA2C02312B4656A645E66262C0947C061AA1007D6137B0434B0A1818BB908EE0ADCDCE44AFDB4CFF0331A1A16FFC1776460EF437276CF3D72E1C30724F0E31B6207FA259DC9483A9D5EB6542A25A97452C6BB1272707B42F6DD99968F6FCBCAFE3FE7E4D87F17C4DF6B690E8C83D10079E046CC997B15889187BE6BBF811D19EA909E3D7F93CEED3748F78B7F10EF4B9545BB510676FF49ACFE9F249BCDC9C2C242C1B219E96B74E4DD6D51795DA5A45EE565975AD2E65697E4CBDB9764D0332FC15021171173418FF7A04757804F15F2C4A77D8776B169BF78DFB94F3A9EBF4E7A5EB9597AFF71CB0A230F72480407249F5F94FC624E267A92F2F6B6B0C67E13786FA1CB94DA2E5CDB7FF792F80722321EF0EB5A40CEF9D097ABC0A706DA5B8C7BDC49CA98679FB43E7B9D785FBE690DF632871D374AB069A72C2E2EC2F272E08588FC4B59EB62170CD7B75C92B6BD09094E06F459815AB410FF1AC4BE16F5EE507BE671DF678FCBA9E7AED910DB6830B8F741C967E292B2F3F2FE5D13F29A4A6E806D345892C64733A88590CE01F4230735588BBCAC45EC1DE65DDC8E49F7FB0F4BFBF3D7FE2AFEB93DF74A2E3127763827BB6FF343FBF4A6F8F56A51BEB93F2DC1C0A43E1B90773C9B6A917B35A81F4BD710ACF7F3A7A5F599AB37C5674E9EFFE821C9651C49C573F2C15F7CF2AAB237C5DFA9B2F2C3E38EEE47457C8B730BF4AF02B62F97CB4936979789B66FC5F3D456E9DE51B92E3673B273FBF512F8E93DE45E21FF0ED68764870A20D7F3EB62BBE17BFD958E74EE8F4A682A68F4F721FE5538732AD0333CD96C56E77326312FDD1FFE5D9A9FAC58C38139A9EB02B59988F835DF5C2E2B33A30979FB8E2179454D23CEB95571CFCB7FA0CDFF1EB6243816D67DA8987F38023D153C8F517B6ED63135A04FCECC98E6401D180BE60373B2F5D96B756D4647BB50F385FACFA017B1FE473AA2F29E6B58766C19937FAA398DF96F159357AF9C91AF1F09CB58FFAC4C4D4FEA3E5CAC3F37B828D49E42FDBBD0C36CE26B0E5A879804DBBF97FE2F9E91331F3C22FDFB9E9040F317E2CC8524B3905DD3FFD2999484037169FE6452BE7ACC2F9F3E302EDF3C11928EFF47642A302B33E1691D7BF61F9C4336FA8F8B33263EF3DC2F47FE37310686432E9F87164BFA7D76212D39DECB2F41F35FFCCE14FB30F1F539904C4822E5E833206AE12C8AE16C8EF13C2CCC053C878AB9D784B3AF9C67207AB2C299471DEAB08F53CA61F57B63CB7DB7C8630507D410FB48E14C2ECC063C8F89CFFE8F59C481F675C83FC5F918E7B236CCF165E8810DDCAF1083FCA6D8C6FFCDF163CBF83C87A93DE69D069CBD65C4A6FF5CC809FD6C017E95D0AEC5E4E26AECD5F8A5F12F3D870DBE9E05304F18DF91772D887B25E76C3ED398C51C600CC0933CAAC1C16B38ACD67BC3D8976033FEC677CE72CC3BD4BC173557CDE7191AF45E31039343B1163507F06FE1FEBF86BD5A77330795EA8E9C6B41BCAB39EB1183CF55EB2DC3019C19934A68D2009F1C6295E26EA47B2976D16F87332DFCE6B38CDE9BCF769B2D72601C502BCCCF32F4863AC4B109BED9C45AED73A9DFD4BC186F1BF1E6335B1D66BC32EACD5987CF76BF65B11E30ABE9D9905CD81FE08B0BEFDDF0CD033E3E60593007EF1D605AF0D707AE1EE072AE7241E372FE9EB9C65AE3F3F3E52EC383AFD85BEBC7790D9FAB109F1A60D5727EE00C83BAAE827F15C811CD9BCF149CAD89BDD9BAA4D4CE05A56EB595BA3AA0D4552794BAA25EA92D34F53B2DB31FF72606B18849EC9F01E598B954]
 Point(onHide)
 link(onHide,2791734:doHide,[])
}
Add(Ping,7999831,399,231)
{
 Name="41.219.76.21"
 link(onFind,7744946:doEvent1,[(447,237)(447,230)])
 link(onFailed,3161885:doEvent1,[(447,244)(447,251)])
}
Add(MMTimer,16466427,350,231)
{
 link(onTimer,7999831:doPing,[])
}
Add(LED,10982055,546,217)
{
 Left=150
 Top=70
}
Add(Hub,7744946,462,224)
{
 link(onEvent2,10982055:doOn,[])
}
Add(Hub,3161885,462,245)
{
 link(onEvent1,10982055:doOff,[(511,251)(511,230)])
 link(onEvent2,10994748:doMessage,[(497,258)(497,293)])
}
Add(TrayIcon,2791734,91,119)
{
 Hint="File Server Monitoring"
 link(onDblClick,2791734:doShow,[(131,132)(131,111)(79,111)(79,125)])
}
Add(Message,10994748,518,287)
{
 Message="Соединение с File Server разорвано. \r\nIP адресс: 41.219.76.21 не отвечает!\r\nПроверьте наличие електропитания в серверной или стабильность интернет соединения."
 Caption="Разрыв соединения!"
 Icon=3
 DefButton=1
}

карма: 0

Ответов: 2

Рейтинг: 0

#2: 2020-08-21 17:11:30 ЛС | профиль | цитата

Проблему решил. Завернул кнопку "ОК" на отключение таймера и добавил кнопку повторной проверки соединения.

карма: 0

Ответов: 8921

Рейтинг: 823

#3: 2020-08-21 17:54:36 ЛС | профиль | цитата

Kapranov, молодец!

Без кнопки


Add(MainForm,2223431,238,140)
{
 Width=345
 Height=232
 Icon=[ZIPBE10000078DAAD575B6C5B55163D151144CA0705041A221E55BE06297F20C8E019188D22220112828F91105F3C0402544181793003343594021250221E2AAF6A860F40A128AA445BD54DD3344DD2A4CEA34D9BA489E338761E7672ED5C5FBF623BE966AD639FE03CA11227DAB17DAF7DD6DA6B3FCEBE4A6DC1DFB66D8AFFD5775B95BA4129F547182EA9BFAAC275BDB6AACB5AA74F9F565D5D5DFAB5B7B75785422175FCF8F18A8E8E8E2A5CAB81D5767676D6B6B7B7D79C3C79B2EAC8912315A3A3A3EAD4A953AAB9B9599D3871421D3B764C5DEEEAEEEE5667CE9CD1D8E7CE9D53ADADADE55EAFD7D5DFDFEFC667CFC0C0800F66C11C7C76CE9E3D6B819F0FDFF18093BBADADCD75F8F0E172F0541E8F4773F9AD3CB0873A7FFEBCEAEBEB53478F1E2DC36B1D3E370D0D0DD9232323E2F3F9646C6C6C85C167B978F1A20C0E0E0AF808B8D8E0DE041E75070E1C28A30ED04873D96CF5F4F42811D1F8785F79E1C28506603A7EBF5F028180048341999C9C5C618889BECEFBFC1EF981ABE6813D1C68D000FF2BC145EFBD1107FACBFBC3C3C30A7A56C39F16EEC7BDA7A6A6646666668D4D4F4F6BE37DC365626242C6C7C7B526E02FD857109316AC6A6AB01E07E029F8A9C05B21A6D5F8AD97FB70DF70382C914844DBECECECB2996BBC4F231FC3C3E8C1D8500BE40D3978C9813A303F4B3900536B0ECD2AA15F0B7FCFFDB8FFDCDCDCB25996B5C2CC75C3873C8C1E460B7280A686430B63011ECBF9486CFA8FFA2983DF0DFC1DF729C58B46A3DA62B1D81AE375C3C5F0305A9472A00E8C05F3A1B1B1B10CB9AD392067156B16F1AE83DF0E7FCBBD4A31E7E7E7B5D9B6BDC6CC3D7ECFF058CD81B1605E321F505F0E7CAD632EA097985C2F47CE3495621B5C8D138F4B3CEE68739CB516C77DC385BF9DB3A8458183C907E624EB175A330E4D870E1D2AA7FFF41DD75DF89E4DFD0CB66D03D349483C1A113B32214E342CC9645292A974E1B5C4128944814BA2C02312B4656A645E66262C0947C061AA1007D6137B0434B0A1818BB908EE0ADCDCE44AFDB4CFF0331A1A16FFC1776460EF437276CF3D72E1C30724F0E31B6207FA259DC9483A9D5EB6542A25A97452C6BB1272707B42F6DD99968F6FCBCAFE3FE7E4D87F17C4DF6B690E8C83D10079E046CC997B15889187BE6BBF811D19EA909E3D7F93CEED3748F78B7F10EF4B9545BB510676FF49ACFE9F249BCDC9C2C242C1B219E96B74E4DD6D51795DA5A45EE565975AD2E65697E4CBDB9764D0332FC15021171173418FF7A04757804F15F2C4A77D8776B169BF78DFB94F3A9EBF4E7A5EB9597AFF71CB0A230F72480407249F5F94FC624E267A92F2F6B6B0C67E13786FA1CB94DA2E5CDB7FF792F80722321EF0EB5A40CEF9D097ABC0A706DA5B8C7BDC49CA98679FB43E7B9D785FBE690DF632871D374AB069A72C2E2EC2F272E08588FC4B59EB62170CD7B75C92B6BD09094E06F459815AB410FF1AC4BE16F5EE507BE671DF678FCBA9E7AED910DB6830B8F741C967E292B2F3F2FE5D13F29A4A6E806D345892C64733A88590CE01F4230735588BBCAC45EC1DE65DDC8E49F7FB0F4BFBF3D7FE2AFEB93DF74A2E3127763827BB6FF343FBF4A6F8F56A51BEB93F2DC1C0A43E1B90773C9B6A917B35A81F4BD710ACF7F3A7A5F599AB37C5674E9EFFE821C9651C49C573F2C15F7CF2AAB237C5DFA9B2F2C3E38EEE47457C8B730BF4AF02B62F97CB4936979789B66FC5F3D456E9DE51B92E3673B273FBF512F8E93DE45E21FF0ED68764870A20D7F3EB62BBE17BFD958E74EE8F4A682A68F4F721FE5538732AD0333CD96C56E77326312FDD1FFE5D9A9FAC58C38139A9EB02B59988F835DF5C2E2B33A30979FB8E2179454D23CEB95571CFCB7FA0CDFF1EB6243816D67DA8987F38023D153C8F517B6ED63135A04FCECC98E6401D180BE60373B2F5D96B756D4647BB50F385FACFA017B1FE473AA2F29E6B58766C19937FAA398DF96F159357AF9C91AF1F09CB58FFAC4C4D4FEA3E5CAC3F37B828D49E42FDBBD0C36CE26B0E5A879804DBBF97FE2F9E91331F3C22FDFB9E9040F317E2CC8524B3905DD3FFD2999484037169FE6452BE7ACC2F9F3E302EDF3C11928EFF47642A302B33E1691D7BF61F9C4336FA8F8B33263EF3DC2F47FE37310686432E9F87164BFA7D76212D39DECB2F41F35FFCCE14FB30F1F539904C4822E5E833206AE12C8AE16C8EF13C2CCC053C878AB9D784B3AF9C67207AB2C299471DEAB08F53CA61F57B63CB7DB7C8630507D410FB48E14C2ECC063C8F89CFFE8F59C481F675C83FC5F918E7B236CCF165E8810DDCAF1083FCA6D8C6FFCDF163CBF83C87A93DE69D069CBD65C4A6FF5CC809FD6C017E95D0AEC5E4E26AECD5F8A5F12F3D870DBE9E05304F18DF91772D887B25E76C3ED398C51C600CC0933CAAC1C16B38ACD67BC3D8976033FEC677CE72CC3BD4BC173557CDE7191AF45E31039343B1163507F06FE1FEBF86BD5A77330795EA8E9C6B41BCAB39EB1183CF55EB2DC3019C19934A68D2009F1C6295E26EA47B2976D16F87332DFCE6B38CDE9BCF769B2D72601C502BCCCF32F4863AC4B109BED9C45AED73A9DFD4BC186F1BF1E6335B1D66BC32EACD5987CF76BF65B11E30ABE9D9905CD81FE08B0BEFDDF0CD033E3E60593007EF1D605AF0D707AE1EE072AE7241E372FE9EB9C65AE3F3F3E52EC383AFD85BEBC7790D9FAB109F1A60D5727EE00C83BAAE827F15C811CD9BCF149CAD89BDD9BAA4D4CE05A56EB595BA3AA0D4552794BAA25EA92D34F53B2DB31FF72606B18849EC9F01E598B954]
 Point(onHide)
 link(onHide,2791734:doHide,[])
}
Add(Ping,7999831,287,210)
{
 Name="41.219.76.21"
 link(onFind,7744946:doEvent1,[(335,216)(335,209)])
 link(onFailed,3161885:doEvent1,[(335,223)(335,230)])
}
Add(MMTimer,16466427,238,210)
{
 link(onTimer,7999831:doPing,[])
}
Add(LED,10982055,434,196)
{
 Left=150
 Top=70
}
Add(Hub,7744946,350,203)
{
 link(onEvent1,16680711:doReset,[(375,209)(375,279)])
 link(onEvent2,10982055:doOn,[])
}
Add(Hub,3161885,350,224)
{
 link(onEvent1,10982055:doOff,[(399,230)(399,209)])
 link(onEvent2,16680711:doNext,[(385,237)(385,265)])
}
Add(TrayIcon,2791734,308,154)
{
 Hint="File Server Monitoring"
 link(onDblClick,2791734:doShow,[(348,167)(348,146)(296,146)(296,160)])
}
Add(Message,10994748,504,259)
{
 Message="Соединение с File Server разорвано. \r\nIP адресс: 41.219.76.21 не отвечает!\r\nПроверьте наличие електропитания в серверной или стабильность интернет соединения."
 Caption="Разрыв соединения!"
 Icon=3
 DefButton=1
}
Add(Counter,16680711,406,259)
{
 Max=9999999
 link(onNext,12436187:doCompare,[])
}
Add(If_else,12436187,455,259)
{
 Op2=Integer(1)
 link(onTrue,10994748:doMessage,[])
}

карма: 19

Форумы Помощь по пакетуБесконечно выскакивает уведомление. ← Ctrl1Ctrl →


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