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

Вниз

TCP/IP   Найти похожие ветки 

← →
Николай   (2003-08-25 16:22) [0]

С помощью каких компонентов отправить сообщение пользователю по протоколу TCP/IP. Как это делает команда net send.

---

← →
Reindeer Moss Eater ©   (2003-08-25 16:24) [1]

А она это делает по этому протоколу?

---

← →
_Narayan_   (2003-08-25 18:07) [2]

компоненты не знаю
на вот процедурку


procedure mSendPopup(RealHost,mTo,mFrom,MsgText: String);
var MailSlotHandle: THandle;
ResLen: DWORD;
FinalString, RealHostName: String;
begin
MailSlotHandle:=CreateFile(pchar("\\"+RealHostName+"\mailslot\messngr" ),GENERIC_WRITE,FILE_SHARE_READ,NIL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMA L,0);
If ( MailSlotHandle<>INVALID_HANDLE_VALUE ) Then
Begin
CharToOEM(PChar(mTo),PChar(mTo));
CharToOEM(PChar(mFrom),PChar(mFrom));
CharToOEM(Pchar(MsgText),Pchar(MsgText));
FinalString:=mTo+#0+mFrom+#0+MsgText;
If ( MailSlotHandle<>INVALID_HANDLE_VALUE ) Then WriteFile(MailSlotHandle,Pointer(PChar(FinalString))^,Length(FinalStri ng),ResLen,nil);
CloseHandle(MailSlotHandle);
end;
end;


---

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

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

Наверх

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