Module: VRDdeExecuteServer
- Includes:
- VRDdeServer
- Defined in:
- lib/vr/vrdde.rb
Constant Summary collapse
- EXECUTEMETHOD =
"ddeexecute"
Constants included from DDElParam
DDElParam::FreeDDElParam, DDElParam::PackDDElParam, DDElParam::ReuseDDElParam, DDElParam::UnpackDDElParam
Constants included from VRDdeConversation
VRDdeConversation::WM_DDE_ACK, VRDdeConversation::WM_DDE_ADVISE, VRDdeConversation::WM_DDE_DATA, VRDdeConversation::WM_DDE_EXECUTE, VRDdeConversation::WM_DDE_INITIATE, VRDdeConversation::WM_DDE_POKE, VRDdeConversation::WM_DDE_REQUEST, VRDdeConversation::WM_DDE_TERMINATE, VRDdeConversation::WM_DDE_UNADVISE
Constants included from VRMessageHandler
VRMessageHandler::PREHANDLERSTR
Instance Method Summary collapse
Methods included from VRDdeServer
#addDDEAppTopic, #ddeserverinit, #delDDEAppTopic, #self__ddeInitiate, #self__ddeTerminate, #self_ddeinitiate, #self_ddeterminate
Methods included from DDElParam
#freeDDElParam, #packDDElParam, #reuseDDElParam, #unpackDDElParam
Methods included from VRDdeConversation
Methods included from VRMessageHandler
#acceptEvents, #addHandler, #addNoRelayMessages, #controlmsg_dispatching, #deleteHandler, #msghandlerinit, #selfmsg_dispatching
Instance Method Details
#ddeexecuteserverinit ⇒ Object
181 182 183 184 |
# File 'lib/vr/vrdde.rb', line 181 def ddeexecuteserverinit addEvent WM_DDE_EXECUTE addHandler WM_DDE_EXECUTE,"_ddeexecuteinternal",MSGTYPE::ARGINTINT,nil end |
#self__ddeexecuteinternal(shwnd, hcmd) ⇒ Object
190 191 192 193 194 195 196 197 198 199 200 201 202 |
# File 'lib/vr/vrdde.rb', line 190 def self__ddeexecuteinternal(shwnd,hcmd) cl=@_vr_clients[shwnd] raise "unknown dde client (not initiated)" unless cl cmd=GMEM::Get(hcmd).unpack("A*")[0] ret=nil ret=selfmsg_dispatching(EXECUTEMETHOD,cmd,*cl) freeDDElParam(WM_DDE_EXECUTE,hcmd) #by yukimi_sake if ret.is_a?(DDEAckFlags) then sendDDEAck shwnd,hcmd,(ret.retcode || 0),ret.ack,ret.busy else sendDDEAck shwnd,hcmd end end |
#vrinit ⇒ Object
185 186 187 188 |
# File 'lib/vr/vrdde.rb', line 185 def vrinit super ddeexecuteserverinit end |