Class TFormMain (unit Main) |
Inherits from
TForm
procedure BtnCloseClick(Sender: TObject);
This PostMessage posts asincronously to APP1 a message containing the string S
procedure BtnConnectClick(Sender: TObject);
This is to check message origin
procedure BtnPostClick(Sender: TObject);
This SendMessage sends sincronously to APP1 a message containing the string S
procedure BtnSendClick(Sender: TObject);
BroadcastIdentity signals to MessageSock in APP1
procedure MessageSocketSentMessage(Sender: TObject; const MessageID: Word;
const SourceHandle: Integer; const DataPtr: Pointer;
const DataSize: Word);
Message Socket Property Values
HighMessageID = 110
LowMessageID = 100
Two TMessageSocket component ignore each other if their LowMessageIDs are different.
BtnClose : TButton;
BtnConnect : TButton;
BtnPost : TButton;
BtnSend : TButton;
MessageSocket : TMessageSocket;
DestHandle : Hwnd;
I : Longint;
procedure BtnCloseClick(Sender: TObject);
This PostMessage posts asincronously to APP1 a message containing the string S
procedure BtnConnectClick(Sender: TObject);
This is to check message origin
procedure BtnPostClick(Sender: TObject);
This SendMessage sends sincronously to APP1 a message containing the string S
procedure BtnSendClick(Sender: TObject);
BroadcastIdentity signals to MessageSock in APP1
procedure MessageSocketSentMessage(Sender: TObject; const MessageID: Word;
const SourceHandle: Integer; const DataPtr: Pointer;
const DataSize: Word);
Message Socket Property Values
HighMessageID = 110
LowMessageID = 100
Two TMessageSocket component ignore each other if their LowMessageIDs are different.
Moreover, only MessageID between LowMessageID + 1 and HighMessageID can be used.
PostSupport = false
This component does not receive Posted Messages, so PostSupport can be set to False
to save resources.
PostThreadPriority = tpHigher
As PostSupport = false this is not rilevant.
{This event is fired when MessageSock in APP1 answers to the message sent by
BroadcastIdentity. SourceHandle has to be saved and used to address messages to APP1
BtnClose : TButton;
BtnConnect : TButton;
BtnPost : TButton;
BtnSend : TButton;
MessageSocket : TMessageSocket;
DestHandle : Hwnd;
I : Longint;