Главная страница
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.035 c
5-1126918562
rosl
2005-09-17 04:56
2006.03.12
иконка


2-1140671561
dreamse
2006-02-23 08:12
2006.03.12
Непонятки с консолью


2-1140462150
laxmatiy
2006-02-20 22:02
2006.03.12
Dial-Up (компонент ras.dcu)


15-1140023986
Ученик чародея
2006-02-15 20:19
2006.03.12
Америка требует отменить торговые льготы, предоставляемые России.


2-1140631898
tort_S:)
2006-02-22 21:11
2006.03.12
Окно во весь экран