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

Вниз

Отсылка сообщения на комп в локальной сети   Найти похожие ветки 

← →
olevacho_ ©   (2005-06-09 20:12) [0]

Как из проги на дельфи отослать сообщение другому компу находящемуся в локальной сети?

---

← →
Ученик   (2005-06-09 23:11) [1]


function NetSendMessage(const aServerName, aMsgName, aFromName, aMessage: string;
                       const aSlotName: string = "messngr"): Boolean;
var
 hFile: THandle;
 sMessage: string;
 WrittenBytes: DWORD;
begin
 Result := False;
 hFile := CreateFile(PChar("\\" + aServerName + "\mailslot\" + aSlotName), GENERIC_WRITE,
                     FILE_SHARE_READ, nil, OPEN_EXISTING,
                     FILE_ATTRIBUTE_NORMAL{ or FILE_FLAG_NO_BUFFERING}, 0);
 if hFile <> INVALID_HANDLE_VALUE then try
   sMessage := aFromName + #0 + aMsgName + #0 + aMessage;
   CharToOemBuff(PChar(sMessage), PChar(sMessage), Length(sMessage));
   Result := WriteFile(hFile, sMessage[1], Length(sMessage), WrittenBytes, nil)
 finally
   CloseHandle(hFile)
 end
end;



---

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

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

Наверх

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