Prompt() jscript avec Intraweb

Version imprimable

13/02/2012, 16h21
Le Lézard

Prompt() jscript avec Intraweb

Bonjour à tous,

je bute sur problème particulier :

J'ai une grid (intraweb) avec des cellules clickable.

Je souhaiterais que sur l'evénement OnCellClick, un popup javascript s'ouvre, avec une valeur texte à saisir et 2 boutons (Ok et Cancel)

Si je clique sur cancel, ca ferme simplement la popup.

si je clique sur ok, il faut que mon code Delphi récupère la valeur texte saisie, puis, en l'associant aux informations de la cellule cliquée, exécuter une action particulière coté serveur.

Je suis avec D2006

Merci.

edit :
En fait, là ou j'ai un probleme, c'est comment récupérer le champ saisi et le bouton cliqué dans mon code Delphi du "OnCellClick"
13/02/2012, 18h02
ShaiLeTroll

IntraWeb est la librairie la plus mal documentée de Delphi !
C'est une Honte !

Tu utilises une TIWGrid son OnCellClick du type TIWOnCellClick

En C++BuilderXE2, j'ai ceci dans les HPP
En C++Builder 2007, j'ai aussi les PAS associé, je te conseille de les lire si tu les a !

Code:

typedef void __fastcall (__closure *TIWOnCellClick)(System::TObject* ASender, const int ARow, const int AColumn);

Code:

TIWOnCellClick = procedure(ASender: TObject; const ARow: Integer; const AColumn: Integer) of object;

les prototypes qui sont finalement les seules sources d'informations potables !

tu notes que tu as ARow et AColumn, cela devrait te permettre d'accéder à Cell[]

Code:

__property TIWGridCell* Cell[const int ARow][const int AColumn] = {read=GetCell};

Code:

property Cell[const ARow: Integer; const AColumn: Integer]: TIWGridCell read GetCell;

C'est pour gérer le OnCellClick de la TIWGrid !

Pense que tu as accès à tout les JS générés, tu as une propriété Scripts, il me semble dans les IWControl, tu peux donc mettre un formulaire intermédiaire comme IWAdvMessageDialog de TMS et reprendre l’exécution normal du script

Sinon tu vas devoir gérer tes propres évènements, et là, tu n'es pas sorti de l'auberge !
13/02/2012, 19h23
Le Lézard

Merci de ta réponse, mais j'ai dû mal m'expliquer.

Mon problème est de 2 ordres :
1 - afficher une popup javascript dès que je clic sur une cellule clickable.
Cette popup doit être du type prompt() de facon à me proposer de saisir une info de type texte.(en fait, c'est un code à 4 chiffres).
Cett popup doit en plus avoir 2 boutons. Cancel et Valid.
Si cancel est clické, ça ferme simplement la popup sans faire d'appel au serveur, comme si je n'avais pas clické sur la cellule.

2 - Si valid est clické, je veux pouvoir récupérer le code saisi dans la popup et le traiter dans dans la procedure OnCellClick()

Quant au javascript qui doit être invoqué, je sais où le placer, il y a une propriété pour ça dans la classe TIWAppForm

mon seul problème étant de savoir cooment l'invoquer, et comment passer sa variable "code" au programme Delphi.
Normalement, on peut l'invoquer grace à la propriété ScriptEvent, mais TIWGrid en est dépourvu !

Voili, voilou...

PS: TMS ne peut être une solution pour moi car payante...
14/02/2012, 10h03
ShaiLeTroll

J'ai très bien compris ton problème, et comme je le disais, il te faut regarder le script JS qui appel OnCellClick et tu dois le refaire manuellement ton propre appel JS OnCellClick en injectant dans ScriptEvent avec ta fenêtre intermédiaire !

En fait, je ne vois pas où tu bloques, tu connais déjà tous les éléments !
J'ai aidé un collègue de la même façon en modifiant ScriptEvent pour effectuer un traitement JS AVANT l'appel du Serveur (qui comme toi était optionnel)

ScriptEvents apparait en public dans le TIWCustomControl donc par héritage la TIWCustomGrid et la TIWGrid en bénéficie !
07/06/2012, 13h18
Le Lézard
Yo !
Oui, je sais il s'est passé 4 mois... Comme je ne trouvais pas de solution propre, j'ai fait autrement pour ne pas être bloqué, mais maintenant, je reviens dessus.

j'ai donc une grille (TiwGrid) dont une cellule contient un lien hypertext.
Je voudrais lorsque je clic sur ce lien effectuer un javascript avant d'exécuter la procédure MaIwGrid1CellClick.

J'ai donc fait :
Code:

1 2 3 4 5 6 7 MaIwGrid1.OnCellClick:=MaIwGrid1CellClick; .../... MaIwGrid1[Raw,Col].text:='Cliquer ici'; MaIwGrid1[Raw,Col].clickable:=true;
Ce code génère ce html :

Code:

<a href="#" onclick="SubmitClickConfirm('MaIwGrid1','1_2', true, '');return false;">Cliquer ici</a>

A priori, '1_2' correspond à Raw_Col.

Mais voilà, il n'y a pas de propriété ScriptEvents pour la cellule. Donc il n'y a pas de moyen de modifier le "onclick" de la balise <a>

J'ai donc investigué plus loin en essayant de modifier le code javascript de SubmitClickConfirm en faisant un traitement particulier en fonction du premier paramètre (nom de l'objet), mai impossible de mettre la main sur le fichier javascript qui l'implémente (IWCommon.js_8.0.1).
D'après le html généré, ce fichier est ici : http://localhost:8888/js/IWCommon.js_8.0.1
Qui peut me dire où se trouve ce fichier ?

Merci.
07/06/2012, 13h47
ShaiLeTroll

Les fichiers JS sont incorporés en ressource de l'Exe (je n'ai testé que le mode StandAlone), je ne crois pas que l'on a accès à ces fichiers, en tout cas pas avec la version fournie avec Delphi
Possible qu'une version complète offre plus de souplesse à ce sujet

On peut les lire dans Intraweb_120_160.bpl pour la version XE2, c'est en binaire, donc pas très exploitable !
C'est des templates dans lesquels IW injecte le nom des variables, il concatènent une palanquée d'élément JS dans la page HTML plus des JS prédéfini comme IWCommon

Normalement tu n'as pas a modifié ces fichiers, ce n'est pas le fonctionnement prévu par Intraweb, mais ils ont prévu que tu puisses injecter tes propres JS
07/06/2012, 14h15
SergioMaster

Personnellement je découvre Intraweb 12 avec la version XE2 en essayant de faire une petite application d'interrogation de Stock . Ce qui m'y a décidé (outre le fait de découvrir également XE2 en version démo) c'est cette vidéo .
Peut être que cela te donneras des idées (je pense à la partie grille se trouvant dans le 2° tiers de la vidéo)
07/06/2012, 14h37
ShaiLeTroll

Ce mode par template HTML est très interessant, c'est mon collègue que s'est occupé d'une application Web avec du HTML\JS généré par les IW Controls

Ce mode template est plus proche de ce que j'ai pratiqué en PHP Zend et Smarty mais cela demande de vrai connaissance en développement Web, ce que n'est pas du tout le cas dans ma société !

Je conserve ce lien pour la future version WEB du logiciel de mon employeur que les commerciaux réclament ... pour le moment, c'est le remplacement du DCOM par DataSnap+JSONObject (idéal pour une utilisation web le JSON)
07/06/2012, 16h14
SergioMaster

Citation:

Envoyé par ShaiLeTroll

la future version WEB du logiciel de mon employeur que les commerciaux réclament ...

ben moi , c'est pour montrer aux commerciaux justement et ainsi pouvoir appuyer ma demande d'achat de XE2 ou +

Hélas

Citation:

Envoyé par ShaiLeTroll

IntraWeb est la librairie la plus mal documentée de Delphi !

je pensais pas réussir cette petite appli ,mais en regardant la vidéo en boucle et en tâtonnant pas mal , mon truc est assez concluant en local , Et ce en étant une bille en HTML ...

Par contre je n'ai pas encore réussi a le faire via internet (un soucis de port à ouvrir très certainement) , donc pas encore tester sur mobiles
08/06/2012, 09h39
SergioMaster

un autre truc trouvé par hazard pour IWGRID

http://www.atozed.com/intraweb/docs/...GridCells.aspx
peut être une piste ?
08/06/2012, 17h17
Le Lézard

Merci pour votre contribution, mais j'ai fini par trouver une solution. Pas très propre je vous l'accorde, mais ça fonctionne.
Pour infos, je suis en Intraweb V8, et je n'aurais peut-être pas eu ce pb avec les dernières versions.

J'ai donc modifier le source de l'unité IWGrids. :roll:
la procedure TIWGrid.RenderCells()
Il existe une propriété Cell[r,c].DoSubmitValidation (boolean) qui n'est pas utilisée (dans la version 8). Cette propriété est toujours à TRUE.
J'ai donc conditionné la modification de la procedure TIWGrid.RenderCells() à l'etat de cette propriete. Si TRUE, le traitement est celui d'origine, si FALSE je remplace, dans la balise <a><href....>MonTexte</a>
onclick="SubmitClickConfirm(blablabla...
par
onclick="AlternatSubmitClickConfirm(blablabla...

et dans la propiété javascript de ma IWForm, je rajoute le code complet de la fonction AlternatSubmitClickConfirm() avec la même signature que SubmitClickConfirm mais dans laquelle j'ajoute le prompt() pour saisie du code de confirmation. Je colle le resultat dans un HIDDEN et enchaine sur l'appel de SubmitClickConfirm().

Et hop, le tour est joué ! :lol: