lgadina / delphistompclient Goto Github PK

TStompHeaders stores TKeyValue records in a TList by a pointer to a New'd
memory. The memory is free'd with FreeMem which actually deletes the
string references of the TKeyValue record, but not the strings. I verified
this problem with AQTime. 

Hello,

I have updade source for Stomp client :

a) Add NotifyEvent StompConnect

b) Support send text encoded (ASCII, ANSI, UTF8, delphi unicode

c) Support received text encoded


best regard,

Gérald CHENAVIER

What steps will reproduce the problem?

1. Unable to load library in Lazarus due to bad definition of QueryInterface

 function QueryInterface(const IID: TGUID; out Obj)

to make the function cross compiler - you can use the following declaration. 


    function QueryInterface({$IFDEF FPC_HAS_CONSTREF}constref{$ELSE}const{$ENDIF} iid : tguid;out obj) : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};

Attached are the files 

I use the delphi2007 run the chat demo,raise the error 
"StompClient.pas(119):F1026 File not found:'Character.dcu',How can I get the 
file?

What steps will reproduce the problem?
1. do a full build

What is the expected output? What do you see instead?
-> I want to see no errors, warnings, hints.
-> I get three W1035 warnings because the IUnknown methods of 
TStompClientListener do not only never assign a retval, but completely lack 
implementation

What version of the product are you using? On what operating system?
-> trunk/head with Delphi XE 

Please provide any additional information below.

StompTypes.TStompFrame.Output adds an extra LINE_END between the body and
the COMMAND_END. As long as you are just using this StompClient,
everything seems to be fine as this extra character is removed in
StompTypes.StompUtils.CreateFrame, but if you use a Java client or e.g.
the ActiveMQ WebInterface to send a message, the Delphi StompClient will
lose the last character of the message body.