Mise en page Html simplifiée

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Après des rencontres entre copains ou en famille, ou après les vacances, on s'envoie parfois par email des séries de photos.
J'essaie personnellement de faire le moins lourd possible, donc je les réduis, par exemple en 1024x768, ça fait des transmissions bien plus légères.
Et pour me faciliter la tâche, j'ai fait un petit programme qui prépare le travail en dehors de la messagerie par fabrication d'un fichier au format html qui contiendra les images (réduites), et du texte éventuel avant et/ou après la série d'images.
Dans le programme je choisis les images dans une liste (répertoire), je les réduis aux dimensions voulues, j'ajoute le texte formaté (police, couleur, taille), et je fabrique le fichier html.
Dans la messagerie (Windows Mail en l'occurence), soit je réponds à un message, soit je mets le destinataire, et je n'ai plus qu'à faire 'Insertion', 'Texte du fichier...', format 'HTML' et chemin du fichier que j'ai créé par programme, et le tour est joué, ne reste plus qu'à vérifier, puis envoyer.

Tout ça pour dire que dans le programme je fais appel à un programme externe qui est en fait un éditeur html, et qui me sert de visionneuse pour vérifier le fichier fabriqué: il affiche à gauche le code html, et à droite l'image résultante.
On peut donc l'appeler depuis panoramic avec un execute_wait, et en paramètre le chemin d'un fichier html.
On peut modifier le code dans l'éditeur à gauche, il y a un bouton 'rafraîchir' qui permet de voir à droite l'effet produit.

Ce programme est très vieux (1997, autant dire le moyen-âge) et n'a pas évolué depuis, donc il ne sait sans doute pas traiter les balises html modernes, mais pour ce que j'en fais, du html sans subtilités (n'est-ce pas papydall) il me convient parfaitement.
Il s'appelle Moulinet.exe, n'est pas facile à trouver (sur google on trouvera surtout des moulinets de pêche), il est portable, donc sans installation, léger, et évidemment gratuit (la référence qui est dans l'aide: pixup, est devenue un site commercial sans rapport).

S'il y en a que ça intéresse pour essayer, on peut le trouver ici: http://www2.csvt.qc.ca/patriotes/html/resources/moulinet/mnet.zip (un site canadien ?), une fois dézippé on a l'exécutable et un petit fichier texte.

Tu peux tout faire en Panoramic... Laughing

Je pourrais dire que JL35 à tendance en ce moment à recourir à la facilité, mais vu mon activité sur Panormaic en ce moment, je ne vais pas le faire... Very Happy

Tant que ça marche après tout. Qu'importe le vin pourvu qu'on ait l'ivresse. (Pourtant un bon vin, c'est bon quand même)

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

ygeronimi a écrit:: Tu peux tout faire en Panoramic...

Tu peux en panoramic pur afficher une page html telle qu'elle se présentera chez le destinataire ??? et l'éditer parallèlement ???
J'aimerais bien savoir comment...

Certes Jicehel c'est la facilité, mais je ne suis pas capable de faire aussi efficace en panoramic, c'est à dire écrire un éditeur html de plusieurs milliers de lignes en panoramic juste pour avoir un aperçu de mon fichier.
Et on dit : 'qu'importe le flacon pourvu qu'on ait l'ivresse'

Et je constate que si je lance l'aperçu via Firefox ou IE ils ne l'affichent pas correctement, en particulier ils n'affichent pas les images, ce qui est l'essentiel pour moi. Et pourtant tout est pris en compte dans la messagerie.

Tu t'es bien défendu. 1 point pour JL35

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

N'oublions pas non plus qu'ici on est dans la rubrique 'Bavardages', je ne propose pas de programme, c'était simplement pour signaler l'existence de Moulinet.exe, éditeur html wysiwyg très simple, certes pas au fait des derniers développements html, mais léger, sans installation, et appelable en ligne de commande depuis Panoramic, et dont je n'ai pas trouvé l'équivalent pour l'usage en panoramic.
(Publicité non payée )

Par contre je n'ai pas très bien saisi pourquoi tu dis qu'en ce moment je recours à la facilité... ce n'est pas tout le temps ?

Aimer est le grand point, qu’importe la maîtresse ? queen

Qu’importe le flacon, pourvu qu’on ait l’ivresse ? drunken

Alfred de Musset...

@JL35,

Peux tu mettre un apperçu du résultat de ce que tu attends ?
Parfois il suffit de quelques lignes...
(...et pas des milliers Laughing

)

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Je répète encore une fois que l'idée du post était de faire profiter ceux que ça intéresse d'un éditeur html simple, qui peut accessoirement servir de visionneuse intelligente (avec le source du html), je ne demande qu'à voir si tu es capable de faire ça en quelques lignes de panoramic (l'image est évidemment tronquée pour cause d'encombrement):
Mise en page Html simplifiée Imouli10

Je répète le défi: écrire un fichier en code html, avec toutes les particularités que ça peut comporter (balises innombrables entre autres), afficher côte à côte ce fichier dans un éditeur, donc modifiable, et son résultat sous forme d'image, avec mise à jour en temps réel de l'image par rapport au source.

Alors, j'attends avec impatience ton programme 'équivalent', en pur panoramic.

@ JL35

Tu me montres l' éditeur et pas le résultat.
Créer une page html en panoramic pour visualiser une photo avec un commentaire
voir plusieurs ce n' est pas très compliqué, tu as déjà fait bien pire... Laughing

Bon, je lâche le scrabble et je vais bidouiller un truc... tongue

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

J'entends bien, mais je veux
1) créer la page html, d'accord, ce n'est pas bien compliqué (je le fais d'ailleurs dans mon programme).
2) visualiser la page telle qu'elle sera visible et émise et reçue telle quelle dans la messagerie
3) cerise sur le gâteau: voir côte à côte le code de la page (à gauche) et sa représentation visuelle (à droite), pouvoir modifier le code à gauche et voir les conséquences à droite.

C'est mon code, fabriqué par programme, que je présente à moulinet qui lui me fait les points 2 et 3.

Tu peux utiliser l'objet WebBrowser créé par WB_Create de KGF.dll, pour afficher le résultat de ta page HTML dans ton programme Panoramic...

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

D'accord Klaus, mais c'est aussi une ressource externe...

De toute façon, je répète encore une fois que le but du post n'était pas du tout mon programme (qui marche très bien, merci), mais simplement de signaler l'existence de cet éditeur html, un peu vieux certes, mais très simple et léger, et dont je pensais qu'il pourrait en intéresser certains. Si ce n'est pas le cas, tant pis, mais ça ne fait de mal à personne.
Et je crois qu'ici on peut mettre un point final à tout ça, qui n'en méritait pas tant.

Un début...

Code:: Application_title "Html Editor"
Variables()
Labels()
Init()
Gui()

End

Sub Variables()
' Adresses
dim path$,html$,txt$
path$="C:\Html_Editor"
html$="C:\Html_Editor\Photo_view .html"
txt$ ="C:\Html_Editor\Photo_view .txt"
' Evènements
dim clic%,change%
' Objets
dim no%,MM%,SM%(20),Frame1%,Frame2%
dim View_code%,View_html%
' Fonctions
dim Photo%,Photo$(1000)
dim save%
' Divers
dim Titre$
Titre$="Mes Photos"
End_sub

Sub Labels()
Label clic,change,close0
End_sub

Sub Init()
if dir_exists(path$)=0
dir_make path$
end_if
if file_exists(html$)=0
file_open_write 1,txt$
file_writeln 1, "<Html>"
file_writeln 1, " <head>"
file_writeln 1, " <meta charset="+chr$(34)+"utf-8"+chr$(34)+" />"
file_writeln 1, " <title>"+Titre$+"</title>"
file_writeln 1, " </head>"
file_writeln 1, " <body>"
file_writeln 1, " </body>"
file_writeln 1, "</Html>"
file_close 1
file_rename txt$,html$
end_if
End_sub

Sub Gui()
O_Form(0,0,1,0,0,600,950,"Html Editor")
font_name 0,"arial" : font_bold 0

no%=no%+1 : MM%=no%
O_Main_Menu(no%,0)

no%=no%+1 : SM%(1)=no%
O_Sub_Menu(no%,MM%,"Photo +",1,1)

no%=no%+1 : SM%(2)=no%
O_Sub_Menu(no%,MM%,"Photo -",1,1)

no%=no%+1 : SM%(3)=no%
O_Sub_Menu(no%,MM%,"Enregistrer",1,1)

no%=no%+1 : Frame1%=no%
O_Panel(no%,0,1,0,0,height(0)-58,(width(0)-16)/2)

no%=no%+1 : View_code%=no%
O_Memo(no%,Frame1%,1,5,5,height(Frame1%)-10,Width(Frame1%)-10,"")
bar_both no%
file_load no%,html$

no%=no%+1 : Frame2%=no%
O_Panel(no%,0,1,0,width(Frame1%),height(0)-58,(width(0)-16)/2)

no%=no%+1 : View_html%=no%
HViewer no%
parent no%,Frame2%
top no%,5
left no%,5
height no%,height(Frame2%)-10
width no%,width(Frame2%)-10
file_load no%,html$

On_close 0,close0
End_sub

Clic:
clic%=number_click
' Ajout d'une photo
if clic%=SM%(1)
no%=no%+1
O_Open_Dialog(no%,0,"C:\","*.jpg|*.jpg",5)
if file$<>""
Photo%=photo%+1
Photo$(photo%)=file$
Add_picture()
end_if
end_if
' Suppression d' une photo
If clic%=SM%(2)
End_if
' Enregistrement de la page html
if clic%=SM%(3)
Save_file()
End_if
return

Change:
change%=number_change
return

Close0:
if save%=0
if message_warning_yes_no("Vous n' avez pas enregistré votre travail."+chr$(13)+"Si vous ne l' enregistrez pas il sera perdu."+chr$(13)+"Voulez vous l' enregistrer ?...")=1
Save_file()
end_if
end_if
File_delete html$
return

Sub Add_picture()
dim_local x%,L%,a$,mem%
mem%=View_code%
for x%=1 to count(Mem%)
a$=trim$(item_read$(Mem%,x%))
if Photo% =1
if a$="<body>"
L%=x%+1
exit_for
end_if
else
if a$="
L%=x%+1
exit_for
end_if
end_if
next x%
item_insert mem%,L%,string$(9," ")+"
L%=L%+1
item_insert mem%,L%,string$(9," ")+"<div id="+chr$(34)+str$(Photo%)+chr$(34)+">"
L%=L%+1
item_insert mem%,L%,string$(12," ")+"<img style="+chr$(34)+"height:300px; width: 400px;"+chr$(34)+"border=0 src="+chr$(34)+Photo$(photo%)+chr$(34)+"width=400 height=300>"
L%=L%+1
item_insert mem%,L%,string$(9," ")+"</div>"
Refresh()
End_sub

Sub Refresh()
file_save View_code%,html$
file_load View_html%,html$
End_sub

Sub Save_file()
no%=no%+1
O_Save_Dialog(no%,View_code%,"C:\","*.html|*.html",".html")
if F_Save$<>"_" : save%=1 : end_if
End_sub

' ******************************************************************************
' BIBLIOTHEQUE OBJETS
' ******************************************************************************

Sub O_Form(No%,P%,V%,T%,L%,H%,W%,C$)
if No%> 0 then FORM No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 : Top No%,T% : Else : Top No%,(Screen_y-H%)/2 : End_If
If L% > 0 : Left No%,L%: Else : Left No%,(Screen_x-W%)/2: End_If
if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Alpha(No%,P%,V%,T%,L%,H%,W%,C$)
ALPHA No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Edit(No%,P%,V%,T%,L%,H%,W%,T$,Ch%)
EDIT No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
If T$<>"" Then Text No%,T$
If Ch%=1 Then On_Change No%,Change
End_Sub
' ______________________________________________________________________________
Sub O_Button(No%,P%,V%,T%,L%,H%,W%,C$,Cl%)
BUTTON No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if C$<>"" then Caption No%,C$
if Cl%> 0 then on_click No%,Clic
cursor_point No%
End_Sub
' ______________________________________________________________________________
Sub O_Container(No%,P%,V%,T%,L%,H%,W%,C$)
CONTAINER No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Memo(No%,P%,V%,T%,L%,H%,W%,F$)
MEMO No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if F$<>""
if file_exists(F$)=1 then file_load No%,F$
end_if
End_Sub
' ______________________________________________________________________________
Sub O_Combo(No%,P%,V%,T%,L%,H%,W%,F$,Cl%)
COMBO No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if F$<>""
if file_exists F$ then file_load No%,F$
end_if
if Cl%> 0 then on_click No%,Clic
End_Sub
' ______________________________________________________________________________
Sub O_List(No%,P%,V%,T%,L%,H%,W%,F$,Cl%)
LIST No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if F$<>""
if file_exists F$ then file_load No%,F$
end_if
if Cl%> 0 then on_click No%,Clic
End_Sub
' ______________________________________________________________________________
Sub O_Picture(No%,P%,V%,T%,L%,H%,W%,P$)
PICTURE No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if P$<>"" then File_load No%,P$
End_Sub
' ______________________________________________________________________________
Sub O_Check(No%,P%,V%,T%,L%,H%,W%,C$)
CHECK No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Option(No%,P%,V%,T%,L%,H%,W%,C$)
OPTION No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Main_Menu(No%,P%)
MAIN_MENU No%
if P% > 0 then Parent No%,P%
End_Sub
' ______________________________________________________________________________
Sub O_Sub_Menu(No%,P%,C$,Cl%,A%)
SUB_MENU No%
if P% > 0 then Parent No%,P%
if C$<>"" then Caption No%,C$
If Cl%=1 : on_click No%,Clic : end_if
If Cl%=2 : on_click No%,Clic2 : end_if
If Cl%=3 : on_click No%,Clic3 : end_if
If Cl%=4 : on_click No%,Clic4 : end_if
If A%=0 then inactive No%
End_Sub
' ______________________________________________________________________________
Sub O_Open_Dialog(No%,Out%,DD$,Filtre$,O%)
dim_local F$
If Object_Exists(No%)=0
OPEN_DIALOG No%
End_if
if DD$<>"" then Dir_Dialog No%,DD$
if filtre$<>"" then Filter No%,Filtre$+"|"+Filtre$
F$=File_name$(No%)
if variable("File$")=0:Dim File$:End_If
if F$<>"_"
if O%=1 then text out%,F$
if O%=2 then Caption Out%,F$
if O%=3 then item_add Out%,F$
if O%=4 then file_load Out%,F$
if O%=5 then File$=F$
end_if
Delete No%
End_Sub
' ______________________________________________________________________________
Sub O_Save_Dialog(No%,NOut%,DD$,Filtre$,ext$)
dim_local F$,i%,ext%
If variable("F_Save$")=0 then dim F_Save$
If Object_Exists(No%)=0
SAVE_DIALOG No%
End_If
If DD$<>"" then Dir_Dialog No%,DD$
If filtre$<>"" then Filter No%,Filtre$
F$=file_name$(No%)
F_Save$=F$
If F$<>"_"
for i%=1 to len(F$)
if mid$(f$,i%,1)=".":ext%=1:exit_for:end_if
next i%
if ext%=1
File_Save NOut%,F$
else
File_save NOut%,F$+ext$
end_if
End_If
Delete No%
End_Sub
' ______________________________________________________________________________
Sub O_Progress_Bar(No%,P%,V%,T%,L%,H%,W%)
PROGRESS_BAR No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
End_Sub
' ______________________________________________________________________________
Sub O_Dlist(No%,F$)
dim_local Fic$
Fic$=F$
DLIST No%
if F$<>""
if file_exists(Fic$)=1 : file_load No%,Fic$ : end_if
end_if
End_Sub
' ______________________________________________________________________________
Sub O_Container_Option(No%,P%,V%,T%,L%,H%,W%,C$)
CONTAINER_OPTION No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Statut_Bar(No%,P%,V%,M%)
Dim_Local No2% ,x% ,a% ,Pa%,OSB2%
Pa%=P% :No2%=No%
for x%=1 to Number_Objects:If Object_Type(x%)=13 :a%=1:End_If:Next x%
If M%=0
O_Picture(No2%,P%,V%,Height(P%)-61,0,23,width(P%)-16,"")
Else
if M%=1
O_Picture(No2%,P%,V%,Height(P%)-81,0,23,width(P%)-16,"")
else
O_Picture(No2%,P%,V%,height(P%)-81,0,23,width(P%)-16,"")
end_if
End_If
OSB2%=No2%
Adaptation_OSB(No2%,Pa%)
End_Sub
' ______________________________________________________________________________
Sub O_Button_Picture(num_obj%,No_b%,P%,V1%,V2%,T%,L%,H%,W%,Pict$,Pict2$)
O_Picture(num_obj%+1,P%,V2%,T%,L%,H%,W%,Pict2$):cursor_point num_obj% +1
O_Picture(num_obj%,P%,V1%,T%,L%,H%,W%,Pict$):On_click num_obj%,Clic:cursor_point num_obj%
obj% = obj%+1
if variable("No2%")=0 : dim No2% :No2%=7000 :End_if
if Variable("R%")=0 :dim R% :R%=1:else :R%=R%+1 :end_if
if Object_exists(7000)=0 :O_Edit(7000,P%,0,-190,-200,0,0):End_If
If Variable("KGF_res%")=0 then dim KGF_res%
KGF_res% = dll_call2("ClickSetHook",handle(P%),handle(No2%))
KGF_res% = dll_call5("ClickDefineRect",R%,L%,T%,W%,H%)

No2%=No_b%
O_Button(No2%,P%,0,-200,-200,0,0,"",1)
KGF_res% = dll_call3("ClickSetLinkRect",handle(No2%),0-5,R%)

No2%=No_b%+1
O_Button(No2%,P%,0,-200,-200,0,0,"",1)
KGF_res% = dll_call3("ClickSetLinkRect",handle(No2%),0-6,R%)
End_Sub
' ______________________________________________________________________________
Sub Adaptation_OSB(No%,P%)
Dim_Local x% ,y% ,z% ,t$ ,R_osb% ,G_osb% ,B_osb%
color No%,235,235,239 : y%=width(P%)-27
Restore
while t$<>"OSB_Corps.bmp" :read t$:End_while
Read R_osb% :Read G_osb% :Read B_osb%
2d_target_is No% : 2d_pen_color R_osb%,G_osb%,B_osb%
for x%=0 to y% :2d_point x%,z% :next x%
Restore
while t$<>"OSB_Fin.bmp" :read t$:End_while
for x%=y% to y%+10
for z%=0 to 22
Read R_osb% :Read G_osb% :Read B_osb%
2d_target_is No% : 2d_pen_color R_osb%,G_osb%,B_osb%
2d_point x%,z%
next z%
next x%
Data "OSB_Corps.bmp"
data 170,165,162
data "OSB_Fin.bmp"
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
End_Sub
' ------------------------------------------------------------------------------
Sub O_Timer(No%,OO%,Inter%)
TIMER No%
if OO%=1 then timer_on No%
if OO%=0 then timer_off No%
if inter%>0 then timer_interval No%,inter%
End_Sub
' ------------------------------------------------------------------------------
Sub O_Spin(No%,P%,V%,T%,L%,H%,W%,Mi%,Ma%,C%)
SPIN No%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
Min No%,Mi%
Max No%,Ma%
if C% > 0 Then on_change No%,Change
End_sub
' ------------------------------------------------------------------------------
Sub O_Panel(No%,P%,V%,T%,L%,H%,W%)
Panel no%
if P% > 0 then Parent No%,P%
If V% = 0 Then hide No%
If H% > 0 Then Height No%,H%
If W% > 0 Then Width No%,W%
If T% > 0 Then Top No%,T%
If L% > 0 Then Left No%,L%
End_sub

Il faudra un peu de temps pour que tout soit "paramètrable" ... Laughing

@ JL35,

Je n' avais pas vu que tu voulais mettre un terme au sujet. Embarassed

Bref j' arrête donc là le source. Sad

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Ygeronimi, je mets un terme à la discussion ici (pour moi en tout cas), mais ça n'empêche évidemment personne de développer sur le sujet, ça peut faire des programmes intéressants, mais qui auront plus leur place dans 'Vos sources...', je pense.
Ton programme a l'air bien parti, tu ne vas pas t'arrêter là, c'est un sujet intéressant, vas-y continue, dans la rubrique dédiée ce sera plus accessible !

PS: et merci JL35 pour ce partage d'informations.

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Pas de quoi Jicehel !
Et Ygeronimi, j'ai jeté un oeil sur ton source ci-dessus (et testé), c'est très prometteur et je t'encourage vivement à continuer !
Et il mérite largement de passer dans la rubrique Vos sources, il y a encore du boulot, mais je pense que l'essentiel est là, plus qu'à rajouter les fioritures. Je suis preneur.

Tout ça sans ressources externes, chapeau.

@ JL35,

Rien de bien compliqué mais j' ai un souci de réflexion personnelle.
Je ne me sers pas de page html pour l' envoi de mail mais tel que sur ta capture,
les adresses des photos sont "C:\....\...." mais est ce que Windows mail
les transforment en adresses relatives ? Comment cela fonctionne t il ?
Quand tu envoies une page avec des url d' image sur ton ordi, le destinataire
peut il les voir ?...bref, la terre est elle ronde ? c' est tout moi cà.... Laughing

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Je ne suis pas du tout spécialiste de tout ça, mais je crois comprendre ceci:
Quand tu rédiges ton email avec images, avec évidemment les adresses locales de tes images (C:\...), au moment de l'envoi Windows mail les incorpore à l'email sous forme codée, elles font partie intégrante du message, et à l'arrivée on a complètement perdu l'adresse d'origine (qui n'aurait plus de sens).

Tu peux faire l'expérience suivante: envoyer un email avec une image incorporée (adresse locale de chez toi), puis supprimer l'image, puis aller dans tes 'Éléments envoyés' relire ton message, et là tu retrouveras ton image.

Donc le destinataire peut voir les images même si tu les as supprimées chez toi, les images elles-mêmes sont dans le corps du message, c'est complètement déconnecté de l'image source.

@ JL35,

J' ai fait cette expérience cet après midi et je confirme ce que tu dis
mais pas tout à fait.
l' adresse de départ est local ( ta machine)
puis celle de ton serveur de messagerie
et enfin elle redevient une adresse locale.

Bref, j' ai avancé un petit peu mais je mets le source dans les projets. Laughing

» d'une page HTML à une page DOCX
» Récupération du contenu d'une page html.
» Présenter son code source sur une page html
» Visualiser une page HTML ou HTM dans un form
» Création simplifiée d'un tableau