delphirtl/examples/example-messaging.ts

RTL functions from Delphi

/*
* 
*
*/
import { TMessage, TMessageManager } from "../src/messaging";

class TMyKeys {
    fNumber: number
    fString: string
    constructor(aNumber: number, aString: string) {
        this.fNumber = (aNumber) ? aNumber : 0;
        this.fString = (aString) ? aString : "";
    }
}

class TMyKeys2 {
    v1: string
    v2: number
    constructor(av1: string, av2: number) { this.v1 = av1, this.v2 = av2 }
}

const lMgr = TMessageManager.getDefaultManager();

const index1 = lMgr.subscribeToMessage(Date, (aMessage: Date) => {
    console.log("index1: ", aMessage.toUTCString());
});

lMgr.sendMessage(Date, new Date());
console.log("Message 1 sent!\n");

const index2 = lMgr.subscribeToMessage(Date, (aMessage: Date) => {
    console.log("index2: ", aMessage.toUTCString());
});
lMgr.sendMessage(Date, new Date());
console.log("Message 2 sent!\n");

lMgr.unsubscribe(Date, index2);
lMgr.sendMessage(Date, new Date()); // This will not be received by subscriber that returned index2
lMgr.unsubscribe(Date, index1);
lMgr.sendMessage(Date, new Date()); // This will not be received by subscriber that returned index1

const index3 = lMgr.subscribeToMessage(TMyKeys, (aMessage: TMyKeys) => {
    console.log('fString: ', aMessage.fString);
    console.log('fNumber: ', aMessage.fNumber);
});
lMgr.sendMessage(TMyKeys, new TMyKeys(10, "hey 10!"));
console.log("Message 3 sent!\n");

const index4 = lMgr.subscribeToWrappedMessage(Date, (aMessage: TMessage<Date>) => {
    console.log("The wrapped date is : ", aMessage.value.toUTCString());
});
lMgr.sendWrappedMessage(Date, new TMessage(new Date()));
console.log("Message 4 sent!\n");

lMgr.unsubscribeWrappedMessage(Date, index4); // no more messages can be received after unsubscribing

lMgr.sendWrappedMessage(Date, new TMessage(new Date()));
console.log("Message 5 sent!\n");