Module: VRDdeClient

Includes:
DDElParam, VRDdeConversation, VRMessageHandler
Defined in:
lib/vr/vrdde.rb

Constant Summary

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 DDElParam

#freeDDElParam, #packDDElParam, #reuseDDElParam, #unpackDDElParam

Methods included from VRDdeConversation

#sendDDEAck

Methods included from VRMessageHandler

#acceptEvents, #addHandler, #addNoRelayMessages, #controlmsg_dispatching, #deleteHandler, #msghandlerinit, #selfmsg_dispatching

Instance Method Details

#ddeadvise(appname, topic, item, fmt = 1, defup = false, ackreq = false) ⇒ Object 



479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
 
# File 'lib/vr/vrdde.rb', line 479

def ddeadvise(appname,topic,item,fmt=1,defup=false,ackreq=false)
  raise "dde(#{appname}:#{topic}) not ready" unless ddeready?(appname)
  shwnd=ddeconnect(appname,topic)

  aItem   = GAtom::Add(item.to_s)

  flag = 0
  if defup then flag |= 0x4000 end
  if ackreq then flag |= 0x8000 end
  
  advisedata=[flag,fmt].pack("Ss")
  advisemem = GMEM::AllocStr(GMEMSTYLE,advisedata)
  
  @_vr_servers[shwnd][2] |= STATUSADVISE
  lparam = packDDElParam(WM_DDE_POKE,advisemem,aItem)
  SMSG::PostMessage.call shwnd,WM_DDE_ADVISE,self.hWnd,lparam
end

#ddebusy?(appname) ⇒ Boolean

Returns:

  • (Boolean) 


420
421
422
423
 
# File 'lib/vr/vrdde.rb', line 420

def ddebusy?(appname)
  srv =  @_vr_servers.find do |key,item| item[1].downcase==appname.downcase end
  if srv then srv=srv[1]; ((srv[2] & ~STATUSCONNECT)>0) else nil end
end

#ddeclientinit ⇒ Object 



407
408
409
410
411
412
413
414
 
# File 'lib/vr/vrdde.rb', line 407

def ddeclientinit
  acceptEvents([WM_DDE_ACK,WM_DDE_DATA,WM_DDE_TERMINATE])
  addHandler WM_DDE_ACK, "ddeAck", MSGTYPE::ARGINTINT,nil
  addHandler WM_DDE_DATA,"ddeData",MSGTYPE::ARGINTINT,nil
  addHandler WM_DDE_TERMINATE,"ddeTerminate",MSGTYPE::ARGWINT,nil
  @_vr_servers={} # {server's hwnd => [server's hwnd,appname,status,params]}
  @_vr_ddesearching = false
end

#ddeconnected?(appname) ⇒ Boolean

Returns:

  • (Boolean) 


416
417
418
419
 
# File 'lib/vr/vrdde.rb', line 416

def ddeconnected?(appname)
  srv =  @_vr_servers.find do |key,item| item[1].downcase==appname.downcase end
  if srv then srv=srv[1];((srv[2]&STATUSCONNECT)>0) else false end
end

#ddeexecute(appname, topic, cmdstr) ⇒ Object 



444
445
446
447
448
449
450
 
# File 'lib/vr/vrdde.rb', line 444

def ddeexecute(appname,topic,cmdstr)
  raise "dde(#{appname}:#{topic}) not ready" unless ddeready?(appname)
  shwnd=ddeconnect(appname,topic)
  executemem = GMEM::AllocStr(GMEMSTYLE,cmdstr)
  @_vr_servers[shwnd][2] |= STATUSEXECUTE
  SMSG::PostMessage.call shwnd,WM_DDE_EXECUTE,self.hWnd,executemem
end

#ddeidle?(appname) ⇒ Boolean

Returns:

  • (Boolean) 


424
425
426
427
428
429
430
431
432
 
# File 'lib/vr/vrdde.rb', line 424

def ddeidle?(appname)
  srv =  @_vr_servers.find do |key,item| item[1].downcase==appname.downcase end
  if srv then
    srv=srv[1]
    ((srv[2]&STATUSCONNECT)>0) and ((srv[2] & ~STATUSCONNECT)==0)
  else
    true
  end
end

#ddepoke(appname, topic, item, data, fmt = ClipboardFormat::CF_TEXT) ⇒ Object 



452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
 
# File 'lib/vr/vrdde.rb', line 452

def ddepoke(appname,topic,item,data,fmt=ClipboardFormat::CF_TEXT) 
  raise "dde(#{appname}:#{topic}) not ready" unless ddeready?(appname)
  shwnd=ddeconnect(appname,topic)

  aItem   = GAtom::Add(item.to_s)

  pokedata=[0,fmt].pack("Ss")+data.to_s
  pokemem = GMEM::AllocStr(GMEMSTYLE,pokedata)

  @_vr_servers[shwnd][2] |= STATUSPOKE
  @_vr_servers[shwnd][3] = pokemem

  lparam = packDDElParam(WM_DDE_POKE,pokemem,aItem)
  SMSG::PostMessage.call shwnd,WM_DDE_POKE,self.hWnd,lparam
end

#ddeready?(appname) ⇒ Boolean

Returns:

  • (Boolean) 


433
434
435
436
437
438
439
440
441
442
 
# File 'lib/vr/vrdde.rb', line 433

def ddeready?(appname)
  srv =  @_vr_servers.find do |key,item| item[1].downcase==appname.downcase end
  if srv then
    srv=srv[1]
    ((srv[2]&STATUSCONNECT)>0) and 
    ((srv[2] & ~(STATUSCONNECT | STATUSADVISE))==0)
  else
    true
  end
end

#dderequest(appname, topic, item, fmt = ClipboardFormat::CF_TEXT) ⇒ Object 



468
469
470
471
472
473
474
475
476
477
 
# File 'lib/vr/vrdde.rb', line 468

def dderequest(appname,topic,item,fmt=ClipboardFormat::CF_TEXT) 
  raise "dde(#{appname}:#{topic}) not ready" unless ddeready?(appname)
  shwnd=ddeconnect(appname,topic)

  aItem   = GAtom::Add(item.to_s)

  @_vr_servers[shwnd][2] |= STATUSREQUEST
  SMSG::PostMessage.call shwnd,WM_DDE_REQUEST,self.hWnd,
                           MAKELPARAM(fmt.to_i,aItem)
end

#ddeunadvise(appname, topic, item, fmt = 0) ⇒ Object 



497
498
499
500
501
502
503
504
505
506
 
# File 'lib/vr/vrdde.rb', line 497

def ddeunadvise(appname,topic,item,fmt=0)
  raise "dde(#{appname}:#{topic}) not ready" unless ddeready?(appname)
  shwnd=ddeconnect(appname,topic)

  aItem   = GAtom::Add(item.to_s)

  @_vr_servers[n][2] |= STATUSREQUEST
  SMSG::PostMessage.call @_vr_servers[n][0],WM_DDE_UNADVISE,self.hWnd,
                           MAKELPARAM(fmt.to_i,aItem)
end

#self_ddeAck(shwnd, lparam) ⇒ Object 



516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
 
# File 'lib/vr/vrdde.rb', line 516

def self_ddeAck(shwnd,lparam)
#p "ACK"
  sv = @_vr_servers[shwnd]
  fname=""
  if(!sv) then
    aApp,aTopic = LOWORD(lparam),HIWORD(lparam)
    appname=GAtom::GetName(aApp).downcase
    tpcname=GAtom::GetName(aTopic)
    appname2=appname.dup
    def appname2.name() self; end   # tricky thing for parentrelayer
    @_vr_servers[shwnd]=[shwnd,appname2,STATUSCONNECT,nil]

    @_vr_ddesearching=shwnd

    GAtom::Delete(aApp)
    GAtom::Delete(aTopic)

  elsif (sv[2] & ~STATUSCONNECT)>0 then
    wstatus,param = unpackDDElParam(WM_DDE_ACK,lparam)
    freeDDElParam(WM_DDE_ACK,lparam)

    retcode = wstatus&0xf
    busy= 0<(wstatus&0x4000)
    ack = 0<(wstatus&0x8000)
    sname = sv[1]

    unless ack then
      sv[2] &= STATUSCONNECT
#        fname=sname+"_dderefused"
#        send(fname,retcode,busy) if respond_to?(fname)
      controlmsg_dispatching(sname,"dderefused",retcode,busy)
    end
    if (sv[2] & STATUSEXECUTE)>0 then
      GMEM::Free(param) unless ack
      sv[2] &= ~STATUSEXECUTE
      fname="ddeexecdone"
      ddeterminate(shwnd)
    elsif(sv[2] & STATUSPOKE)>0 then
      GAtom::Delete(param)
      GMEM::Free(sv[3])
      sv[3]=nil
      sv[2] &= ~STATUSPOKE
      fname="ddepokedone"
      ddeterminate(shwnd)
    elsif(sv[2] & STATUSREQUEST)>0 then
      GAtom::Delete(param)
      sv[2] &= ~STATUSPOKE
      fname=nil
      ddeterminate(shwnd)
    elsif(sv[2] & STATUSADVISE)>0 then
      GMEM::Free(param) unless ack
      sv[2] &= ~STATUSADVISE
      fname=nil
    else
      ddeterminate(shwnd)
    end
    controlmsg_dispatching(sname,fname,retcode) if ack and fname
  else
    raise "DDE MultiSession Error"
  end
end

#self_ddeData(shwnd, lparam) ⇒ Object 



578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
 
# File 'lib/vr/vrdde.rb', line 578

def self_ddeData(shwnd,lparam)
#p "DATA"
  datamem,aItem = unpackDDElParam(WM_DDE_DATA,lparam)
  freeDDElParam(WM_DDE_DATA,lparam)

  sv = @_vr_servers[shwnd]
  fname=sname=nil

  datastr = GMEM::Get(datamem)
  flag,fmt,data = datastr.unpack("Ssa*")

  if (flag&0x2000) > 0 then  # fRelease is asserted
    GMEM::Free(datamem)
  end

  ret = nil
  if(!sv) then
    # Ignored
  else
    sname=sv[1]
    if (sv[2] & STATUSREQUEST)>0 then
      sv[2]&=1
      fname="ddedata"
      ddeterminate(sv[0])
    elsif (sv[2] & STATUSADVISE)>0 
      sv[2]&=1
      fname="ddeadvisedata"
    else
    end

    fn=sname+fname
    if(fn) then
      ret=controlmsg_dispatching(sname,fname,data,fmt,flag)
    end
  end

  if (flag&0x8000) > 0 then  #fAckReq is asserted
    if ret.is_a?(DDEAckFlags) then
      sendDDEAck shwnd,aItem,(ret.retcode || 0),ret.ack,ret.busy
    else
      sendDDEAck shwnd,aItem
    end
  else
    GAtom::Delete(aItem)
  end

end

#self_ddeTerminate(shwnd) ⇒ Object 



509
510
511
512
513
514
 
# File 'lib/vr/vrdde.rb', line 509

def self_ddeTerminate(shwnd)
  controlmsg_dispatching(@_vr_servers[shwnd][1],"ddeterminate")
#    fname=@_vr_servers[shwnd][1] + "_ddeterminate"
#    send(fname,shwnd) if respond_to?(fname)
  @_vr_servers.delete(shwnd)
end

#vrinit ⇒ Object 



402
403
404
405
 
# File 'lib/vr/vrdde.rb', line 402

def vrinit
  super
  ddeclientinit
end