Отсылка сообщения на комп в локальной сети [D4, D6, WinXP]
olevacho_ © (2005-06-09 20:12:00)
Как из проги на дельфи отослать сообщение другому компу
находящемуся в локальной сети?
Ученик (2005-06-09 23:11:00) [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;
Наверх 
ЧАТ |
Орешник |
|
