PB à toute heure et à tout moment. (à parcourir avec modération)

Le forum (ô combien francophone) des utilisateurs de Powerbuilder.

Recherche rapide

Annonce

Certaines rubriques, dont des cours, sont uniquement visibles par les membres du forum ^^.
Dans la rubrique Liens & Références, vous avez accès à un sommaire de téléchargement, profitez-en !
Il existe maintenant un nouveau TOPIC "Votre CV en Ligne" accessible uniquement par demande.

#26 28-10-2011 09:04:04

Shed  
Membre Geek
Date d'inscription: 06-01-2011
Messages: 62
Pépites: 260
Banque: 0

Re: Connection Client to Client

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

 

#27 28-10-2011 09:36:12

xlat  
0xc0000005
Award: bf
Lieu: Tanger (طنج)
Date d'inscription: 04-12-2010
Messages: 712
Pépites: 11,315
Banque: 100,221,387,868,884,300
Site web

Re: Connection Client to Client

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 :
http://geni.embeddingperl.com/public/images/embeddingperl_pcnicolas.png

Et le résultat sur le poste "serveur" qui écoute :
http://geni.embeddingperl.com/public/images/embeddingperl_pcgeni.png

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)


https://lut.im/eJINqa9o/vAtyxD0h "Don't believe everything you read on the Internet"
    -- Abraham Lincoln

www.ngs.ma

Hors ligne

 

#28 28-10-2011 10:03:19

Shed  
Membre Geek
Date d'inscription: 06-01-2011
Messages: 62
Pépites: 260
Banque: 0

Re: Connection Client to Client

Wow.



J'ai trouvé le docteur Frankenstein

Hors ligne

 

Pied de page des forums

Propulsé par FluxBB 1.2.22