Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.015 c
14-86162
Алексей2002
2002-12-05 15:05
2002.12.26
Помогите преодолеть titan btrieve...


1-85881
Pasha_
2002-12-15 04:37
2002.12.26
TMetaClass


1-86021
Я
2002-12-16 14:53
2002.12.26
Вопросик


14-86113
Igorek
2002-11-28 19:38
2002.12.26
Нужен ModelMaker из Delphi7


1-85937
AVR
2002-12-16 22:30
2002.12.26
XPath, IDOMNode, IDOMElement