PowerBuilder à Donf ! / Connection Client to Client

Shed · 28-10-2011 09:04:04

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)

xlat · 28-10-2011 09:36:12

Code: pb

//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