david
d99a44999f
- Recompilación en Delphi10 de todos los paquetes de RO para generar las DCU's en Lib\D10 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@7 b6239004-a887-0f4b-9937-50029ccdca16
51 lines
1.2 KiB
ObjectPascal
51 lines
1.2 KiB
ObjectPascal
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.
|
|
|