Le forum (ô combien francophone) des utilisateurs de Powerbuilder.
Ca me parait un peu magique ça... Envoyer du script à distance qui se fait évaluer de l'autre coté du network.
En gros, on n'envoie pas une variable, on envoie une action. Je demande à voir ^/^
Dernière modification par Shed (28-10-2011 09:13:16)
Hors ligne
//on prépare l'interpreteur perl dans l'event open de la fenêtre in_perl = create n_perl iuo_mslot = create uo_mailslot in_perl.eval( "use Powerbuilder qw(:all)" ) in_perl.define_variable( classname(), this) update_path( ) //on nettoye dans l'event close if iul_hslot <> -1 then iuo_mslot.closemailslot( iul_hslot ) if isvalid(iuo_mslot) then destroy iuo_mslot if isvalid(in_perl) then destroy in_perl //on execute le script reçut dans l'event clicked de cb_recv string ls_msg if iul_hslot <> -1 then ls_msg = iuo_mslot.readmail( iul_hslot ) mle_input.text = ls_msg string ls_err lin_perl.eval(ls_msg ) ls_err = in_perl.getlastevalerror( ) if ls_err <> "" then Messagebox( "perl", ls_err + "~r~n") end if end if
Ce qui donne sur le poste "client" qui envoit un script :
Et le résultat sur le poste "serveur" qui écoute :
note: à savoir que la partie " ->DUMP ..." n'est qu'une magie supplémentaire ajouté pour facilement espionner le contenu d'un objet
Dernière modification par xlat (28-10-2011 09:36:47)
Hors ligne
Wow.
J'ai trouvé le docteur Frankenstein
Hors ligne