Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.032 c
6-1118145687
Flame
2005-06-07 16:01
2005.10.02
idhttp непоолный url


4-1123257781
Андрей Молчанов
2005-08-05 20:03
2005.10.02
Освобождение всяких IShellFolder, PItemIDList и т.д.


14-1126695475
Суслик
2005-09-14 14:57
2005.10.02
Список банков


14-1126392787
TStas
2005-09-11 02:53
2005.10.02
КАк устроен еврейский текстовый редактор?


14-1125990160
КаПиБаРа
2005-09-06 11:02
2005.10.02
Какую реакцию вызвал у вас ураган, набедокуривший в США?