Текущий архив: 2002.12.26;
Скачать: CL | DM;

Вниз

как послать сообщение используя mailslot   Найти похожие ветки 

← →
SONY   (2002-12-15 12:45) [0]

конкретному пользователю. Ниже приведенная функция позволяет отправить сообщение по имени компьютера, а надо посылать используя имя пользоватля

function Send(str: string):boolean;
var
strMess: string[250];
UserName: array[0..99] of char;
h: THandle;
i: integer;
begin
// открытие канала : MyServer - имя сервера
// (\\.\\mailslot\xxx - монитор работает на этом же ПК)
// xxx - имя канала
if FServerName = "" then FServerName := ".\";
h:=CreateFile( PChar("\\" + FServerName + "\mailslot\" + FMailSlotName), GENERIC_WRITE,
FILE_SHARE_READ,nil,OPEN_EXISTING, 0, 0);
if h <> INVALID_HANDLE_VALUE then
begin
strMess := str;
// передача текста ошибки (запись в канал и закрытие канала)
WriteFile(h,strMess,Length(strMess)+1,DWORD(i),nil);
CloseHandle(h);
end;
Result := h <> INVALID_HANDLE_VALUE;
end;

---

← →
SONY   (2002-12-15 12:58) [1]

???

---

Страницы: 1 вся ветка

Текущий архив: 2002.12.26;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.028 c