Bonsoir,
REALbasic actuel
Mac OS X actuel
je n'ai pas vraiment compris l'exemple qui m'a été donné, mais j'ai eu
une idée (journée à marquer d'une pierre blanche):
Dans le HTMLViewer, l'évènement DocumentComplete comporte un argument: URL.
Après avoir vérifié la chose, il s'agit de l'URL du document html chargé.
J'ai donc ajouté une propriété de fenêtre:
htmlFI As FolderItem
Placé le code suivant dans l'évènement .DocumentComplete (du HTMLViewer
de la fenêtre):
htmlFI = New FolderItem(URL,FolderItem.PathTypeURL)
ça c'est de la haute voltige: voir "FolderItem Class", portion "Shell
Paths and Regular Paths".
J'ai ajouté un MenuItem "Voir le source"; j'ai ajouté dans la fenêtre où
se trouve le HTMLViewer un MenuHandler pour ce menu et j'y ai mis le code:
Dim SrcTIS As TextInputStream
SrcTIS = htmlFI.OpenAsTextFile
wHTMLSrc.Show // Affiche la fenêtre avec le source
wHTMLSrc.EFhtmlSrc.Text = SrcTIS.ReadAll
SrcTIS.Close
J'ai ajouté une fenêtre nommée wHTMLSrc et y ai placé un EditField nommé
EFhtmlSrc.
C'est tout.
1. Quelqu'un y voit un problème ?
[sauf si c'est pour dire que je n'ai pas testé si htmlFI / SrcTIS sont
Nil ou pas, ni une éventuelle erreur de SrcTIS.ReadAll]
2. Quelqu'un voit une (ou plusieurs) améliorations à y faire ?
Bon codage,
Emile
|