Дипломная работа: Разработка программы приема и передачи сообщений в локальной сети Microsoft

б) Workgroup. Сообщение можно послать на любую группу Win9x, в которую могут быть включены компьютеры.

2) Окно для написания получателя сообщений.

3) Окно сообщения.

4) Кнопка «Send» для отправления сообщения.

5) Кнопка «Cancel» для отмены отправления сообщения.

6) Кнопка «Select» для выбора адресата получателя.

Если размер отсылаемого или принятого сообщения больше размера формы для его написания, то на данной форме становится активным ScrollBar, с помощью которого можно прокручивать форму, тем самым просматривая сообщение.

При нажатии на кнопку «Select» вызывается окно поиска всех групп и компьютеров, находящихся в данной локальной сети.

Пользователю достаточно просто выбрать имя в ListBox’e и нажать кнопку «OK», после чего выбранное имя автоматически отобразиться в окне получателя сообщения.

Рис. 1.10. Выбор адресата получателя

Поиск компьютеров в локальной сети

Приведём пример кода программы, реализующую поиск компьютеров в локальной сети Microsoft.

procedure TForm4. Button1Click (Sender: TObject);

var Q, BufferSize: DWord;

R: THandle;

Buf: ^Buffer;

P: Pointer;

NR: ^NETRESOURCE;

begin

ListBox1. Clear;

if WNetOpenEnumA (RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, nil, R) = NO_ERROR then

begin

BufferSize:= 0;

Q:= $FFFFFFFF;

if WNetEnumResourceA (R, Q, Buf, BufferSize) <> NO_ERROR then

begin

Q:=1;