Seite 1 von 2
Befehle an Programm senden
Verfasst: 28.10.2006 15:22
von RSBasic
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.
Verfasst: 28.10.2006 15:48
von tobe
hi RSBasic,
wie meinst du das mit senden:
(lokal) von anwendung zu anwendung,
übers netzwerk (internet),
oder ganz anders ?
Verfasst: 28.10.2006 15:51
von RSBasic
@tobe
Achso, ich meine lokal direkt vom Programm zu Programm
Verfasst: 28.10.2006 16:39
von RSBasic
Keiner eine Idee?
Verfasst: 28.10.2006 16:42
von MVXA
Wie wäre es mit den Networkbefehlen? Die sind für Kommunikation immer
gut...
Verfasst: 28.10.2006 16:59
von Kiffi
<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
Verfasst: 28.10.2006 16:59
von RSBasic
@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?
Verfasst: 28.10.2006 17:03
von RSBasic
@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
Verfasst: 28.10.2006 17:07
von Kiffi
<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
Verfasst: 28.10.2006 17:48
von tobe
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