Class TFormMain (unit Main)

Inherits from

TForm

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.

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;