Befehle an Programm senden

Beitrag von **RSBasic** » 28.10.2006 15:22

Hi ihr, ich habe wieder ein Problem. Ich möchte gerne Befehle wie Addgadgetitem an mein Programm senden. Aber ich weis nicht, wie ich das programmieren soll, deshalb brauche ich eure Hilfe.

tobe · Beitrag von **tobe** » 28.10.2006 15:48

hi RSBasic,

wie meinst du das mit senden:
(lokal) von anwendung zu anwendung,
übers netzwerk (internet),
oder ganz anders ?

Beitrag von **RSBasic** » 28.10.2006 15:51

@tobe
Achso, ich meine lokal direkt vom Programm zu Programm

Beitrag von **RSBasic** » 28.10.2006 16:39

Keiner eine Idee?

MVXA · Beitrag von **MVXA** » 28.10.2006 16:42

Wie wäre es mit den Networkbefehlen? Die sind für Kommunikation immer
gut...

Beitrag von **Kiffi** » 28.10.2006 16:59

<OT>

RSBasic hat geschrieben:Keiner eine Idee?

ich kann ja verstehen, dass Du momentan im Programmierfieber bist, aber
das hier ist ein Forum und kein Chat. Du solltest Dich also schon etwas länger
als eine dreiviertel Stunde gedulden können.

</OT>

Grüße ... Kiffi

Beitrag von **RSBasic** » 28.10.2006 16:59

@MVXA
Wie Netzwerkbefehlen? Ich möchte doch nicht im Netzwerk was senden.
Ich möchte Befehle direkt zu mein Programm lokal senden.
Oder willst du mich darauf hinweisen, dass die Netzwerkbefehlen auch klappen könnten?

Beitrag von **RSBasic** » 28.10.2006 17:03

@Kiffi
Sorry, aber wegen der Zeitverschiebung habe ich die Zeit verloren

, denn ich musste heute die Zeit eine Stunde zurück stellen. Naja trotzdem sry

Beitrag von **Kiffi** » 28.10.2006 17:07

<OT>

> Sorry, aber wegen der Zeitverschiebung habe ich die Zeit verloren

die ist erst in der Nacht von heute auf morgen. Aber auch 1 3/4 Std. sind zu
wenig gewartet.

Und: Es gibt einen Edit-Button! Du kannst Deine Postings nachträglich
erweitern und kannst dadurch Doppel-Postings vermeiden.

</OT>

Grüße ... Kiffi

tobe · Beitrag von **tobe** » 28.10.2006 17:48

also ich würde es dann mit sendmessage machen
so ungefähr:

Code: Alles auswählen

#WM_MYMESSAGE = #WM_USER + 1
 
Procedure WindowCallback(WindowID,message,wParam,lParam)
  result = #PB_ProcessPureBasicEvents
  Select message 
    Case #WM_MYMESSAGE
      If wParam=1 And lParam=1
        Debug "message angekommen"
      EndIf
  EndSelect
  ProcedureReturn result
EndProcedure
 
If OpenWindow(0,0,0,160,40,"test",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  CreateGadgetList(WindowID(0))
  ButtonGadget(1,10, 10,140,20,"senden")
  SetWindowCallback(@WindowCallback())
  Repeat
    EventID.l=WaitWindowEvent()
    Select EventID
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1
            Handle=FindWindow_(0,"test")
            If Handle
              SendMessage_(Handle, #WM_MYMESSAGE, 1, 1)
            EndIf
        EndSelect
      Case #PB_Event_CloseWindow
        Quit=1
    EndSelect
  Until Quit
EndIf