How to Send a Message to an Apache ActiveMQ Topic with OCaml

open Unix

let _, out_channel = open_connection (ADDR_INET (inet_addr_of_string "localhost", 61613))

output_string out_channel "CONNECT\n\n\000"

output_string out_channel "SEND\ndestination:/topic/SampleTopic\n\nSimples Assim\000"

output_string out_channel "DISCONNECT\n\n\000"

close_out out_channel
Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

This site uses Akismet to reduce spam. Learn how your comment data is processed.