Hi,
I was given some help trying to do something simpler, cannot remember who.
played with this idea I think its Glpro v7 syntax.
It's not exactly what you are lookinf for but it may give you some ideas.
Two programs program1 activates program2, program2 controls program1
Program1 sample:
declare buf1 buf2 fbuf ;-- get the buffer addresses
PLAYMPEG:
LOAD d:\uniplay\HANDSET.EXE
SAVE ( @windir )\HANDSET.EXE
FREE HANDSET
WIN STYLE POPUP dlgframe CLIPCHILDREN visible
clearscr black
win position -1 -1
VIDEO @deskxsize-6 @deskysize-6 16
mci "open "@cmdline$" alias MPEG parent "@winhandle$" style child"
mci "put MPEG window client at 0 0 "@X$" "@Y$""
;---------------------------------------------------------------------------
-----------------
; start the program that will be sending the messages to this program
; passing the addresses of the memory that you want to use
;---------------------------------------------------------------------------
-----------------
exec handset.exe @buf @rbuf @fbuf
;---------------------------------------------------------------------------
-----------------
; begin main routine
;-- just wait until the buffer contains a value, then do something
;---------------------------------------------------------------------------
-----------------
setupdll int SetCapture handle
setupdll int ReleaseCapture
;color 0
MCI "seek MPEG to end"
MCI "STATUS MPEG POSITION"
set @fbuf @0
MCI "seek MPEG to start"
when mousedown inside 0 0 @deskxsize @deskysize gosub panshow
SetCapture @winhandle
mark
waitmsg
MCI "STATUS MPEG POSITION"
set @rbuf @0
if @@buf>0
if @@buf==1
delete ( @windir )\handset.exe
power
endif
if @@buf==2
zoomin
endif
if @@buf==3
zoomout
endif
if @@buf==4
loopplay
endif
if @@buf==5
sounddown
endif
if @@buf==6
soundup
endif
if @@buf==7
Xsoundoff
endif
if @@buf==8
grabp
endif
if @@buf==9
tostartp
endif
if @@buf==10
back1p
endif
if @@buf==11
playp
endif
if @@buf==12
pausep
endif
if @@buf==13
stopp
endif
if @@buf==14
fwr1p
endif
if @@buf==15
goendp
endif
endif
loop
;-----------END
Program2 sample: "handset.exe" simple controls the value of the buffer.
I just had a simple menu with hotspots that changed the value if the buffer.
PAUSE, PLAY, STOP, etc.
;-- set the buffer to the message to be sent
set @buf1 2
;----END
If you set the buffer to 2 Program1 will DO the IF statement:
if @@buf==2
zoomin
endif IF
so on up to 15
Only thing I remember having a problem with, is Program2 must shut it,s self
down.
If you need more help with this sample just let me know.
John Rodger
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED]
Behalf Of Aki Veijalainen
Sent: 15 June 2006 09:42
To: [email protected]
Subject: Applications discussing
Hi folks !
I am trying to find out a solution to discuss (send data and call
subroutines) between glpro exe´d applications.
So, I have a master (M) and a slave (S) program running.
Need to "scriptcall" from M a routine in S and return the value back to M.
Hoping someone has already a solution and is willing to share it.
Regards,
Aki Veijalainen
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
ABUT OY - Technical Hypermedia
Munstenpellonkatu 9 A, 20740 Turku, Finland
tel : +358 (0)2 2422 591 fax : +358 (0)2 2422 597
gsm : +358 (0)40 5017 053
email : [EMAIL PROTECTED] WWW : http://www.abut.fi
http://ebrochure.abut.fi
visualization, animation, multimedia, virtual reality, hypermedia
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.8.4/364 - Release Date: 14/06/06
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"aftergrasp" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at http://groups.google.com/group/aftergrasp
-~----------~----~----~----~------~----~------~--~---
