Welcome, Guest. Please login or register.

Author Topic: AREXX  (Read 1592 times)

Description:

0 Members and 1 Guest are viewing this topic.

Offline WolTopic starter

  • Full Member
  • ***
  • Join Date: Mar 2002
  • Posts: 103
    • Show all replies
AREXX
« on: January 12, 2003, 02:00:22 PM »
Hi Guys,
Im trying to control SONGPLAYER from a Blitz Basic program
and having difficulty recovering any messages
from AREXX, here is an example of my buggy code.

FindScreen(0)
Window 1,100,100,400,400,$0008,"TEST",1,1
Use Window(1)
WindowOutput(1)

Port.l=CreateMsgPort("WOL")

msg.l=CreateRexxMsg(Port,"rexx","WOL")

SendRexxCommand msg,"rx ADDRESS
SONGPLAYER.1 GET_STATE",#RXCOMM|#RXFF_RESULT|2 Wait loop
a=RexxEvent(Port)

loop

VWait
If a=0 Then Goto loop

A$=GetResultString(msg)
Print A$

MouseWait
End


This small snippet is just an attempt to get a reply
from AREXX, any help would be welcom...

Shaun..



Only after the last tree has been cut down,
Only after the last river has been poisoned,
Only after the last fish has been caught,
Only then will you find that money cannot be eaten.

--- Cree Indian prophecy ---