Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.12;
Скачать: CL | DM;

Вниз

Вопросы по сетям   Найти похожие ветки 

 
SergGG   (2005-11-15 15:27) [0]

Как можно послать сообщение на другой компьютер по локальной сети по принципу работы функции NetMessageBuferSend, но при условии что Служба Сообщений отключена


 
Sasha73 ©   (2005-11-16 18:41) [1]

Поидее это без службы будет работать:

Function NetSendMessage ( AHost, AFromSt, AToSt, AMessageSt : String ) : Bool;
var
 hSlot                                         : THandle;
 s, TempAFromSt, TempAToSt, TempAMessageSt     : String;
 cb                                            : DWORD;
begin
 Result:=False;
 hSlot := CreateFile(PChar("\\"+AHost+"\mailslot\messngr"),
    GENERIC_WRITE, FILE_SHARE_READ, nil,
    CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
 if hSlot <> INVALID_HANDLE_VALUE then begin
   // Подготов ка сообщения (формат "от кого#0кому#0сообщение#0"
   TempAFromSt:=copy(AFromSt,1,length(AFromSt));
   CharToOEM(PChar(TempAFromSt), PChar(TempAFromSt)); ;
   TempAToSt:=copy(AToSt,1,length(AToSt));
   CharToOEM(PChar(TempAToSt), PChar(TempAToSt)); ;
   TempAMessageSt:=copy(AMessageSt,1,length(AMessageSt));
   CharToOEM(PChar(TempAMessageSt), PChar(TempAMessageSt)); ;
   s := TempAFromSt + #0 + TempAToSt + #0 + TempAMessageSt + #0;
   cb := length(S);
   Result:=WriteFile(hSlot, s[1], cb, cb, nil);
   CloseHandle(hSlot);
 end;
end;


 
SergGG ©   (2005-11-24 17:16) [2]


> Sasha73 ©   (16.11.05 18:41)


Всё равно как только отключаешь службу сообщений передача сообщений не работает



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

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

Наверх




Память: 0.47 MB
Время: 0.067 c
1-1139157092
Ling
2006-02-05 19:31
2006.03.12
Работа со скролами


2-1140599091
ttt_111
2006-02-22 12:04
2006.03.12
Почему не запусается прграмма


2-1140412396
Bratskiy
2006-02-20 08:13
2006.03.12
Выравнивание по ширине строки


11-1111965539
Stals
2005-03-28 03:18
2006.03.12
Пример добавления строк с различным форматированием в RichEdit...


15-1139949571
ArtemESC
2006-02-14 23:39
2006.03.12
Форумы...