PureBoard

Code: Alles auswählen

; German forum: http://www.purebasic.fr/german/viewtopic.php?p=152509#152509
; Author: ts-soft
; Date: 20. May 2007
; OS: Windows
; Demo: No

Enumeration ; PrivatMessages
  #GetHwnd
  #SendHwnd
  #SomeValue
  #CloseMessage
  ; ...
EndEnumeration

Enumeration ; Gadgets
  #lblText
  #txtText
  #btnText
  #lblValue
  #txtValue
  #btnValue
EndEnumeration

; wir registrieren unsere Message
Global MyMessage.l = RegisterWindowMessage_("MyOwnMessage")
Global hWndClient.l

Procedure MyWindowCallback(WindowID, Message, wParam, lParam)
  Protected Result.l = #PB_ProcessPureBasicEvents
  Select Message
    Case MyMessage
      Select wParam
        Case #SendHwnd ; der Client sende sein Fensterhandle
          hWndClient = lParam
          DisableGadget(#btnText, #False)
          DisableGadget(#btnValue, #False)
          SetWindowTitle(0, "Sender")
       EndSelect
  EndSelect
  ProcedureReturn Result
EndProcedure

Procedure SendData(Message.s)
  Protected cd.COPYDATASTRUCT
  cd\dwData = 0 ; hier könnte man versch. Werte für versch. Datentypen einsetzen
  cd\cbData = (Len(Message) + 1) * SizeOf(Character); wir verwenden nur Strings und geben hier die länge an
  cd\lpData = @Message ; databuffer ; der string in die Struktur
  SendMessage_(hWndClient, #WM_COPYDATA ,WindowID(0), cd) ; und raus damit ;)
EndProcedure

Define.s value
Define.l timeout = 500

If OpenWindow(0, #PB_Ignore, #PB_Ignore, 200, 160, "Sender, wait for client") And CreateGadgetList(WindowID(0))
  SetWindowCallback(@MyWindowCallback())

  TextGadget(#lblText, 10, 12, 75, 20, "Text to send:")
  StringGadget(#txtText, 90, 10, 100, 20, "")
  ButtonGadget(#btnText, 50, 40, 100, 20, "Send Text")
  DisableGadget(#btnText, #True)
  TextGadget(#lblValue, 10, 102, 75, 20, "Value to send:")
  StringGadget(#txtValue, 90, 100, 100, 20, "", #PB_String_Numeric)
  ButtonGadget(#btnValue, 50, 130, 100, 20, "Send Value")
  DisableGadget(#btnValue, #True)

  While WindowEvent() : Wend

  Repeat

    Select WaitWindowEvent(timeout)
      Case #PB_Event_CloseWindow
        PostMessage_(#HWND_BROADCAST, MyMessage, #CloseMessage, 0)
        Break

      Case #PB_Event_Gadget

        Select EventGadget()
          Case #btnText
            value = GetGadgetText(#txtText)
            If value <> ""
              SendData(value)
            EndIf
          Case #btnValue
            value = GetGadgetText(#txtValue)
            If value <> ""
              SendMessage_(#HWND_BROADCAST, MyMessage, #SomeValue, Val(value))
            EndIf
        EndSelect

      Default
        If timeout
          If Not hWndClient ; wir warten noch auf den Clienten
            SendMessage_(#HWND_BROADCAST, MyMessage, #GetHwnd, 0)
          Else
            timout = 0
          EndIf
        EndIf
    EndSelect

  ForEver
EndIf

Code: Alles auswählen

; German forum: http://www.purebasic.fr/german/viewtopic.php?p=152509#152509
; Author: ts-soft
; Date: 20. May 2007
; OS: Windows
; Demo: No

Enumeration ; PrivatMessages
  #GetHwnd
  #SendHwnd
  #SomeValue
  #CloseMessage
  ; ...
EndEnumeration

Global MyMessage.l = RegisterWindowMessage_("MyOwnMessage")

Procedure MyWindowCallback(WindowID, Message, wParam, lParam)
  Protected Result.l = #PB_ProcessPureBasicEvents
  Protected *cd.COPYDATASTRUCT
  Select Message
    Case MyMessage
      Select wParam
        Case #GetHwnd ; der Sender erwartet mein Fensterhandle, also raus damit
          SendMessage_(#HWND_BROADCAST, MyMessage, #SendHwnd, WindowID(0))
        Case #SomeValue ; wir haben einen Zahlenwert erhalten
          If IsGadget(0)
            SetGadgetText(0, Str(lParam))
          EndIf
        Case #CloseMessage
          End 
      EndSelect
    Case #WM_COPYDATA ; der Sender hat einen String übermittelt
      *cd = lParam
      If IsGadget(0)
        SetGadgetText(0, PeekS(*cd\lpData))
      EndIf
  EndSelect

  ProcedureReturn Result
EndProcedure

If OpenWindow(0, #PB_Ignore, #PB_Ignore, 200, 40, "Client") And CreateGadgetList(WindowID(0))
  SetWindowCallback(@MyWindowCallback())
  TextGadget(0, 10, 10, 180, 20, "", #PB_Text_Center | #PB_Text_Border)
 
  While WaitWindowEvent() <> #PB_Event_CloseWindow : Wend

EndIf