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 11: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 11:13:16)

Hors ligne

 

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

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

Re: Connection Client to Client

Code: pb

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
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 11: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 12: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