Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ОТправка сообщений на компы [D5]


Arbin ©   (2002-10-03 09:22:00) 

Подскажите простой код (Делфи) для отправки сообщений на любой комп в сети (НТ, 2000). По имени компа.
Спасибо


совсем Новенький   (2002-10-04 11:30:00) [1]

Если можна скинь на мыло romych@ukr.net

Большпе спасибо.


Arbin   (2002-10-04 09:04:00) [2]

Еще раз: как из под 98 послать на НТ?


Arbin   (2002-10-04 08:16:00) [3]

to RV
Да, пожалуйста на arbin@mail.ru


совсем Новенький   (2002-10-03 23:41:00) [4]

Если можна скинь на мыло romych@ukr.net

Большпе спасибо.


RV   (2002-10-03 14:19:00) [5]

MSopen:=CreateFile(pchar("\\"+Жертва+"\mailslot\messngr"),
GENERIC_WRITE,FILE_SHARE_READ,NIL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
if MSopen<>INVALID_HANDLE_VALUE then
begin
WriteFile(MSopen,Pointer(PChar(Data))^,Len,Len,nil);
end;
closeHandle(MSopen);

winpopup ловит это дело
надо - пиши, вышлю проект(сам где-то скачал)


Arbin   (2002-10-03 14:13:00) [6]

А конкретный пример использования? Сообщение "Hello, world" с компа qwert на комп asdfg. Первый под 2000, второй под НТ. Как в случае, если первый под 98?


совсем Новенький   (2002-10-03 12:58:00) [7]

Но мне было бы интересно использовать NetMessageBufferSend()
кроме того в 98 я не вижу команды командной строки NET с параметром SEND.


NickBat   (2002-10-03 12:42:00) [8]

Посмотри справку по NET SEND


совсем Новенький   (2002-10-03 11:55:00) [9]

У меня два вопроса, как задать имя компа если он из другой рабочей группы? Как послать сообщение всем, в справке смотрел, если NetMessageBufferSend() опущено имя передается себе :(.


Song   (2002-10-03 10:30:00) [10]

NetMessageBufferSend()


NickBat   (2002-10-03 10:20:00) [11]

ShellExecute(Application.Handle,nil,
"net send comp1 "Тра-ля-ля"","","",sw_hide)


Наверх

Титульная страница Поиск, карта сайта Написать письмо