| Class TFormMain (unit Main) |
TForm
| Constructors |
| Functions |
procedure BtnCloseClick(Sender: TObject);
procedure BtnConnectClick(Sender: TObject);
procedure BtnPostClick(Sender: TObject);
procedure BtnSendClick(Sender: TObject);
procedure MessageSocketSentMessage(Sender: TObject; const MessageID: Word;
const SourceHandle: Integer; const DataPtr: Pointer;
const DataSize: Word);| Properties |
| Events |
| Variables |
BtnClose : TButton;
BtnConnect : TButton;
BtnPost : TButton;
BtnSend : TButton;
MessageSocket : TMessageSocket;
DestHandle : Hwnd;
I : Longint;| Constructors |
| Functions |
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
| Properties |
| Events |
| Variables |
BtnClose : TButton;
BtnConnect : TButton;
BtnPost : TButton;
BtnSend : TButton;
MessageSocket : TMessageSocket;
DestHandle : Hwnd;
I : Longint;