Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Разное > Исходники и статьи
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.08.2011, 21:47
Аватар для Admin
Admin Admin вне форума
Администратор
 
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,560
Версия Delphi: Delphi 7
Репутация: выкл
По умолчанию Исходник - MSG

Программа расчитанная на посыл сообщений всем активным пользователям сети, замена net send, так как в сетях организаций, net send обычно запрещают.

Используемые компоненты: sSkinManager, sSkinProvider, IdIcmpClient, DBGridEh, ClientSocket, ServerSocket...

Смысл: на компьютере получателя, запускатся серверная часть, на которую отсылается сообщение, и у получателя выскакивает окно с сообщением.

Перед отправкой, все получатели пингуются.

Писал для своей организации, представляю как есть.

Кодинг кривенький, но можно улучшить.

Важно: необходимо перед началом работы зарегестрировать в системе midas.dll командой:

regsvr32.exe midas.dll

Скачать: msg.zip (1,1 Мб).

Автор: KristoferRoutsi
Ответить с цитированием
  #2  
Старый 28.08.2011, 21:59
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Как раз. На работе Net Send вообще отсутствует, а писать свое в лом
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #3  
Старый 06.09.2011, 13:36
KristoferRuotsi KristoferRuotsi вне форума
Прохожий
 
Регистрация: 14.05.2011
Сообщения: 36
Репутация: 10
По умолчанию

я буду ее переделывать, так как вчера выяснилось, что от
СуперМаг
УКМ
Гедемин

мы будем отказываться, значит нужно будет сделать:
1. самостоятельное создание групп
2. добавить возможность делить компы на отделы
(к примеру: товароведы, бухгалтера, итд)
3. отправлять:
- одному пользователю
- отделу (товароведы, бухгалтера, производство, итд)
- группе (к примеру, все пользователи 1С)

в общем я подумаю, накропаю, и тогда скину
но кодинг (опять) лучше пересмотреть опытным взглядом, я не профи
Ответить с цитированием
  #4  
Старый 08.09.2011, 12:51
KristoferRuotsi KristoferRuotsi вне форума
Прохожий
 
Регистрация: 14.05.2011
Сообщения: 36
Репутация: 10
По умолчанию

обновленная версия, (шкурки только пришлось удалить, чтобы пролезло по объему)

возможностей больше, но нет запроса пароля перед открытием проги
(для исключения злоупотребления третьими лицами)

для себя сделаю в будущем:
- сканирование сети для автоматического забивания базы именами компов (адреса получателей)
- запрос пароля перед запуском
Вложения
Тип файла: rar msg_v2.rar (199.4 Кбайт, 12 просмотров)
Ответить с цитированием
  #5  
Старый 08.09.2011, 15:13
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Не стоило в архив складывать dcu, ddp, dof файлы.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #6  
Старый 09.09.2011, 11:54
KristoferRuotsi KristoferRuotsi вне форума
Прохожий
 
Регистрация: 14.05.2011
Сообщения: 36
Репутация: 10
По умолчанию

мдя... согласен... я все в кучу свалил
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:03.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter