Using with CBuilder rathe than Delphi

[datkins47]

Hi,

Testing the C++ Builder Berlin, all the lib code compiles just fine as far as I can tell but need to translate demo apps to C++, any pointers, I have most of it but this section I'm not sure of the way to make work in C++

server.SocketIO.OnEvent(C_CLIENT_EVENT,
procedure(const ASocket: ISocketIOContext; const aArgument: TSuperArray; const aCallback: ISocketIOCallback)
begin
//show request (threadsafe)
ShowMessageInMainthread('REQUEST: ' + aArgument[0].AsJSon);
//send callback (only if specified!)
if aCallback <> nil then
aCallback.SendResponse( SO(['succes', True]).AsJSon );
end);

the procedure is the problem, I suspect its my lack of understanding on what delphi is doing here that's the issue,

any ideas?

thanks,

david

[andremussche]

I can't help you right now, I haven't done any C++Builder projects with Delphi code. Do you have some demo/example project for me? 2017-01-16 9:05 GMT+01:00 David Atkins <notifications@github.com>:

…

Hi, Testing the C++ Builder Berlin, all the lib code compiles just fine as far as I can tell but need to translate demo apps to C++, any pointers, I have most of it but this section I'm not sure of the way to make work in C++ server.SocketIO.OnEvent(C_CLIENT_EVENT, procedure(const ASocket: ISocketIOContext; const aArgument: TSuperArray; const aCallback: ISocketIOCallback) begin //show request (threadsafe) ShowMessageInMainthread('REQUEST: ' + aArgument[0].AsJSon); //send callback (only if specified!) if aCallback <> nil then aCallback.SendResponse( SO(['succes', True]).AsJSon ); end); the procedure is the problem, I suspect its my lack of understanding on what delphi is doing here that's the issue, any ideas? thanks, david — You are receiving this because you are subscribed to this thread. Reply to this email directly, view it on GitHub <#20>, or mute the thread <https://github.com/notifications/unsubscribe-auth/AC5IjgnEQmf3nnHuYKPIXMu6yK9h6s8Zks5rSyTBgaJpZM4LkRbe> .

[datkins47]

Hi,

I have left it running connected and can see heartbeats/pings happening so the basics are running.

WebSocketServer = new TIdWebsocketServer(this);
WebSocketClient = new TIdHTTPWebsocketClient(this);

WebSocketServer->DefaultPort = 12345;

// the follwoing is the issue setting up the event
// WebSocketServer->SocketIO->OnEvent( C_SERVER_EVENT, Temp );
WebSocketServer->Active = true;
WebSocketServer->OnMessageBin = WebsocketMessageBin;
WebSocketServer->OnMessageText = WebsocketMessageText;

WebSocketClient->Host = "localhost";
WebSocketClient->Port = 12345;
WebSocketClient->SocketIOCompatible = true;
WebSocketClient->Connect();

WebSocketClient->SocketIO->Emit( C_CLIENT_EVENT, "request some data" );

The header defines this as

void __fastcall OnEvent(const System::UnicodeString aEventName, const _di_TSocketIOEvent aCallback);

_di_TSocketIOEvent is defined as

__interface TSocketIOEvent;
typedef System::DelphiInterface _di_TSocketIOEvent;

So i'm not sure how to achieve what happens in the Delphi code in C++

David

[andremussche]

in Delphi the "_di_TSocketIOEvent" is an anonymous method defined as: TSocketIOEvent = reference to procedure(const ASocket: ISocketIOContext; const aArgument: TSuperArray; const aCallback: ISocketIOCallback); An anonymous method is actually the same as an interface with an "Invoke" like this ISocketIOEvent = interface procedure Invoke(const ASocket: ISocketIOContext; const aArgument: TSuperArray; const aCallback: ISocketIOCallback); end I hope this helps? 2017-01-16 23:27 GMT+01:00 David Atkins <notifications@github.com>:

…

Hi, I have left it running connected and can see heartbeats/pings happening so the basics are running. WebSocketServer = new TIdWebsocketServer(this); WebSocketClient = new TIdHTTPWebsocketClient(this); WebSocketServer->DefaultPort = 12345; // the follwoing is the issue setting up the event // WebSocketServer->SocketIO->OnEvent( C_SERVER_EVENT, Temp ); WebSocketServer->Active = true; WebSocketServer->OnMessageBin = WebsocketMessageBin; WebSocketServer->OnMessageText = WebsocketMessageText; WebSocketClient->Host = "localhost"; WebSocketClient->Port = 12345; WebSocketClient->SocketIOCompatible = true; WebSocketClient->Connect(); WebSocketClient->SocketIO->Emit( C_CLIENT_EVENT, "request some data" ); The header defines this as void __fastcall OnEvent(const System::UnicodeString aEventName, const _di_TSocketIOEvent aCallback); _di_TSocketIOEvent is defined as __interface TSocketIOEvent; typedef System::DelphiInterface _di_TSocketIOEvent; So i'm not sure how to achieve what happens in the Delphi code in C++ David — You are receiving this because you commented. Reply to this email directly, view it on GitHub <#20 (comment)>, or mute the thread <https://github.com/notifications/unsubscribe-auth/AC5Ijm-N8QDdAB06yQBzg2cUuvt1Ng6oks5rS-7ggaJpZM4LkRbe> .

[datkins47]

Hi, Makes sense, my issue is with transferring that into C++, I have reached out to Embarcadero for guidance if I get something will check in a sample c++ project to github David From: André Mussche [mailto:notifications@github.com] Sent: Wednesday, January 18, 2017 8:11 AM To: andremussche/DelphiWebsockets Cc: David Atkins; Author Subject: Re: [andremussche/DelphiWebsockets] Using with CBuilder rathe than Delphi (#20) in Delphi the "_di_TSocketIOEvent" is an anonymous method defined as: TSocketIOEvent = reference to procedure(const ASocket: ISocketIOContext; const aArgument: TSuperArray; const aCallback: ISocketIOCallback); An anonymous method is actually the same as an interface with an "Invoke" like this ISocketIOEvent = interface procedure Invoke(const ASocket: ISocketIOContext; const aArgument: TSuperArray; const aCallback: ISocketIOCallback); end I hope this helps? 2017-01-16 23:27 GMT+01:00 David Atkins <notifications@github.com>:

Hi, I have left it running connected and can see heartbeats/pings happening so the basics are running. WebSocketServer = new TIdWebsocketServer(this); WebSocketClient = new TIdHTTPWebsocketClient(this); WebSocketServer->DefaultPort = 12345; // the follwoing is the issue setting up the event // WebSocketServer->SocketIO->OnEvent( C_SERVER_EVENT, Temp ); WebSocketServer->Active = true; WebSocketServer->OnMessageBin = WebsocketMessageBin; WebSocketServer->OnMessageText = WebsocketMessageText; WebSocketClient->Host = "localhost"; WebSocketClient->Port = 12345; WebSocketClient->SocketIOCompatible = true; WebSocketClient->Connect(); WebSocketClient->SocketIO->Emit( C_CLIENT_EVENT, "request some data" ); The header defines this as void __fastcall OnEvent(const System::UnicodeString aEventName, const _di_TSocketIOEvent aCallback); _di_TSocketIOEvent is defined as __interface TSocketIOEvent; typedef System::DelphiInterface _di_TSocketIOEvent; So i'm not sure how to achieve what happens in the Delphi code in C++ David — You are receiving this because you commented. Reply to this email directly, view it on GitHub <#20 (comment)>, or mute the thread <https://github.com/notifications/unsubscribe-auth/AC5Ijm-N8QDdAB06yQBzg2cUuvt1Ng6oks5rS-7ggaJpZM4LkRbe> .

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub <#20 (comment)> , or mute the thread <https://github.com/notifications/unsubscribe-auth/AO7cG4P2b_HNB6DUM160du7vHeshX7Kmks5rTckMgaJpZM4LkRbe> . <https://github.com/notifications/beacon/AO7cG9Squ-ck3TTSP9AXjouQOmxrE_Kvks5rTckMgaJpZM4LkRbe.gif>