mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 16:25:54 +01:00
118 lines
2.5 KiB
ObjectPascal
118 lines
2.5 KiB
ObjectPascal
unit MainForm;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows,
|
|
Winapi.Messages,
|
|
System.SysUtils,
|
|
System.Variants,
|
|
System.Classes,
|
|
Vcl.Graphics,
|
|
Vcl.Controls,
|
|
Vcl.Forms,
|
|
Vcl.Dialogs,
|
|
Vcl.StdCtrls,
|
|
StompTypes;
|
|
|
|
type
|
|
TForm4 = class(TForm, IStompClientListener)
|
|
Button1: TButton;
|
|
Memo1: TMemo;
|
|
Button2: TButton;
|
|
Button3: TButton;
|
|
procedure Button1Click(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure Button2Click(Sender: TObject);
|
|
procedure Button3Click(Sender: TObject);
|
|
private
|
|
FSTOMPListener: IStompListener;
|
|
FSTOMPClient: IStompClient;
|
|
FFormClosing: Boolean;
|
|
FProducerThread: TThread;
|
|
public
|
|
procedure OnMessage(MessageBody: string; var TerminateListener: Boolean);
|
|
procedure OnListenerStopped(StompClient: IStompClient);
|
|
end;
|
|
|
|
var
|
|
Form4: TForm4;
|
|
|
|
implementation
|
|
|
|
uses StompClient;
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure TForm4.Button1Click(Sender: TObject);
|
|
begin
|
|
FSTOMPListener.StopListening;
|
|
FSTOMPListener.StartListening;
|
|
end;
|
|
|
|
procedure TForm4.Button2Click(Sender: TObject);
|
|
begin
|
|
FSTOMPListener.StopListening;
|
|
end;
|
|
|
|
procedure TForm4.Button3Click(Sender: TObject);
|
|
begin
|
|
FProducerThread := TThread.CreateAnonymousThread(
|
|
procedure
|
|
var
|
|
i: Integer;
|
|
stomp: IStompClient;
|
|
begin
|
|
stomp := TStompClient.CreateAndConnect;
|
|
i := 1;
|
|
while True do
|
|
begin
|
|
sleep(300);
|
|
if FFormClosing then
|
|
Exit;
|
|
stomp.Send('/topic/danieleteti', 'Hello World ' + IntToStr(i));
|
|
inc(i);
|
|
end;
|
|
stomp.Disconnect;
|
|
end);
|
|
FProducerThread.FreeOnTerminate := False;
|
|
FProducerThread.Start;
|
|
end;
|
|
|
|
procedure TForm4.FormCreate(Sender: TObject);
|
|
begin
|
|
FFormClosing := False;
|
|
FSTOMPClient := TStompClient.CreateAndConnect;
|
|
FSTOMPClient.Subscribe('/topic/danieleteti',
|
|
amAuto,
|
|
StompUtils.Headers.Add('include-seq', 'seq'));
|
|
FSTOMPListener := TStompClientListener.Create(FSTOMPClient, Self);
|
|
end;
|
|
|
|
procedure TForm4.FormDestroy(Sender: TObject);
|
|
begin
|
|
FFormClosing := True;
|
|
FProducerThread.WaitFor;
|
|
FProducerThread.Free;
|
|
FSTOMPListener := nil;
|
|
end;
|
|
|
|
procedure TForm4.OnMessage(MessageBody: string; var TerminateListener: Boolean);
|
|
begin
|
|
Memo1.Lines.Add(MessageBody);
|
|
TerminateListener := FFormClosing;
|
|
end;
|
|
|
|
procedure TForm4.OnListenerStopped(StompClient: IStompClient);
|
|
begin
|
|
Memo1.Lines.Add('Listener Stopped');
|
|
end;
|
|
|
|
initialization
|
|
|
|
AllocConsole;
|
|
|
|
end.
|