unit DispatchNotifierClientMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, uROClient, uROBINMessage, uROIndyTCPChannel,
  ExtCtrls, uROIndyHTTPChannel,
  uROPoweredByRemObjectsButton;

type
  TDispatchNotifierClientMainForm = class(TForm)
    Label1: TLabel;
    eSimpleMessage: TEdit;
    SendButton: TButton;
    IndyTCPChannel: TROIndyTCPChannel;
    BINMessage: TROBINMessage;
    IndyHTTPChannel: TROIndyHTTPChannel;
    rgChannel: TRadioGroup;
    ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
    procedure SendButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DispatchNotifierClientMainForm             : TDispatchNotifierClientMainForm;

implementation

uses DispatchNotifierLibrary_Intf, uROClientIntf;

{$R *.DFM}

procedure TDispatchNotifierClientMainForm.SendButtonClick(Sender: TObject);
var
  channel           : TROTransportChannel;
begin
  if (rgChannel.ItemIndex = 0) then
    channel := IndyTCPChannel
  else
    channel := IndyHTTPChannel;

  CoDispatchNotifierService.Create(BINMessage, channel).SendMessage(eSimpleMessage.Text);
end;

end.