Pas de problème (pb), que du PowerBuilder (PB) ^^

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