mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-17 00:35:55 +01:00
55 lines
1.0 KiB
ObjectPascal
55 lines
1.0 KiB
ObjectPascal
|
program producer;
|
||
|
|
|
||
|
|
{$APPTYPE CONSOLE}
|
||
|
|
|
||
|
|
{$R *.res}
|
||
|
|
|
||
|
|
{
|
||
|
|
https://www.rabbitmq.com/tutorials/tutorial-two-python.html
|
||
|
|
with durability
|
||
|
|
}
|
||
|
|
|
||
|
|
uses
|
||
|
|
System.SysUtils,
|
||
|
|
StompClient, StompTypes;
|
||
|
|
|
||
|
|
procedure Main;
|
||
|
|
var
|
||
|
|
lClient: TStompClient;
|
||
|
|
lMessage: String;
|
||
|
|
lIsEmpty: Boolean;
|
||
|
|
begin
|
||
|
|
lClient := TStompClient.Create;
|
||
|
|
lClient.Connect();
|
||
|
|
WriteLn('Sending messages to queue "myjobqueue"');
|
||
|
|
WriteLn('NOTE: Consumers will wait a second for each "." present in the message.');
|
||
|
|
WriteLn(' empty message will terminate the program.');
|
||
|
|
lMessage := '';
|
||
|
|
repeat
|
||
|
|
Write('Message to send: ');
|
||
|
|
Readln(lMessage);
|
||
|
|
lIsEmpty := lMessage.Trim.IsEmpty;
|
||
|
|
if not lIsEmpty then
|
||
|
|
begin
|
||
|
|
lClient.Send('myjobqueue', lMessage.Trim, StompUtils.Headers.Add('persistent', 'true'));
|
||
|
|
end;
|
||
|
|
until lIsEmpty;
|
||
|
|
WriteLn('bye bye...');
|
||
|
|
lClient.Disconnect;
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
try
|
||
|
|
Main;
|
||
|
|
Write('Press return to exit');
|
||
|
|
Readln;
|
||
|
|
except
|
||
|
|
on E: Exception do
|
||
|
|
begin
|
||
|
|
WriteLn(E.ClassName, ': ', E.Message);
|
||
|
|
Readln;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|