
05.03.2006, 23:47
|
|
Познающий
Регистрация: 02.05.2005
Сообщений: 42
С нами:
11065621
Репутация:
9
|
|
Т.е тебе всего-то надо указать тип сообщения ???
Клиент:
Код:
var
MsgType: UINT;
begin
MsgType := MB_ICONERROR;
ClientSocket1.Socket.SendBuf(MsgType, SizeOf(UINT));
end;
Сервер:
Код:
var
MsgType: UINT;
begin
Socket.RecvBuf(MsgType, SizeOf(UINT));
MessageBox(Handle, '', '', MsgType);
end;
|
|
|