---

Forum » » Création-Développement » » Port arexx

---

Posté : 19-07-2013 10:06

Et avez-vs essayé ?
(Pas testé, juste en lisant la doc)

1) OpenPort('BUILDOTHER')
2) Show("P") ou SysMon pour vérifier que le port est bien créé
3) Call Waitpkt "BUILDOTHER" dans ta boucle d'attente d'évenement (j'imagine)
4) msgPaquet = GetPkt(BUILDOTHER) // si le waitpkt est fini, on chope le paquet qui vient d'arriver
5) msg = GetArg( msgPaquet, 0 ) // le message est dans le 1er élément du paquet
6) call ClosePort "BUILDOTHER"

6) depuis un autre REXX
ADDRESS BUILDOTHER 'Hello REXX 1'

Merci de me dire si c'est ça ou pas (par curiosité)

Doc "Using AREXX on the Amiga -Abacus 1992"

Messages, packets and ports

[S] CLOSEPORT : bool = CLOSEPORT( port name)
Close a message port opened with OPENPORT

[S] GETARG
: arg = GETARG(packet, [whicharg])
Obtain an argument string from a message packet

[S] GETPKT
: pkt = GETPKT(portname)
Pick up a message packet from a message port

[S] OPENPORT : bool = OPENPORT (portname)
Open a public message port with the given name

[S] REPLY : 1 = REPLY(pkt, [result], [result2])
Return a message packet to its sender, default results = 0, 0

[S] TYPEPKT : cmd = TYPEPKT(pkt)
count = TYPEPKT(pkt, ' a')
bool = TYPEPKT(pkt,mode)
Extract information from a message packet
Modes: F - Function C - Command

[S] WAITPKT : bool = WAITPKT(portname)
Wait for a message packet to arrive at a port
Message édité par : zzd10h / 19-07-2013 10:17
Message édité par : zzd10h / 19-07-2013 10:20

---

Cet article provient de Le site des utilisateurs francophones actuels et futurs d'AmigaOS 4.x
https://amiga-ng.org/viewtopic.php?topic=1597&forum=14