Mars 2024 | Lun | Mar | Mer | Jeu | Ven | Sam | Dim |
---|
| | | | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | Calendrier |
|
| | Incapacité de RELIRE une image sauvegardée depuis PICTURE | |
| | Auteur | Message |
---|
Invité Invité
| Sujet: Incapacité de RELIRE une image sauvegardée depuis PICTURE Dim 17 Juin 2012 - 13:48 | |
| Bonjour, J'ai un gros soucis pour. Depuis un picture je charge une image depuis une clé (ou autre). Là pas de problème. Je sauvegarde celle-ci dans un autre dossier sous un autre nom pour une meilleur correspondance avec le programme, et pouvoir le partager. Mais impossible de le relire. code pour tester: - Code:
-
dir_change "Z:\ESPACE" picture 1:width 1,700 :height 1,50 file_load 1,"H:\COURRIER\bout de texte.jpg" file_save 1,"Z:\ESPACE\image_teste pour image2.jpg" message "on relit" file_load 1,"Z:\ESPACE\image_teste pour image2.jpg" m....., je viens encore d'avoir droit à impossible to run Panoramic. fait c.... |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: Incapacité de RELIRE une image sauvegardée depuis PICTURE Dim 17 Juin 2012 - 14:52 | |
| @ Cosmos70 Ich verwende folgenden Code: J'utilise le code suivant: Severin - Code:
-
DIM DIR_A$ DIR_A$ = "c:\" ' DIM Speicherplatz_Bild01$ Speicherplatz_Bild01$ = DIR_A$ + "1PC-ZEIT\03_PC-Zeit_BILDER\Startbild.JPG"
' *** LOGO-BILD AUF FORM 004 ANZEIGEN ****************************************** COMMAND_TARGET_IS 0000 picture 0099 :' HIDE 99 TOP 0099,INT(SCREEN_Y/2-200) : REM HÖHE FENSTER LEFT 0099,INT(SCREEN_X/2-200) : REM BREITE FENSTER WIDTH 0099,450 : REM ......BREITE 1680 HEIGHT 0099,450 : REM ......HÖHE 1050 FILE_LOAD 0099,Speicherplatz_Bild01$ STRETCH_ON 0099 : REM SHOW | |
| | | Invité Invité
| Sujet: Re: Incapacité de RELIRE une image sauvegardée depuis PICTURE Dim 17 Juin 2012 - 15:18 | |
| Merci pour ta réponse, mais ça ne résoud pas mon problème. Je viens d'essayer avec FILE_COPY f1$,f2$. J'ai le même résultat.
Il y a plus d'un an, j'ai fait un programme sur la gestion des documents qu'on reçoit. Je n'arrive pas à le retrouver, il était sur mon ancien ordinateur, et apparemment je ne l'ai pas. Ce programme plutôt complexe, je n'ai jamais pu l'utilisé car il se bloquait à la lecture des feuilles scannées. J'ai posé le problème alors, et je n'ai jamais eu de réponse Plus d'un an plus tard, j'ai encore ce problème, et très certainement ma remarque ne sera pas prise au sérieux. C'est pas dur, c'est quitte ou double! A vous de voir! Maintenant je vais me faire tout petit, vu que je ne présente pas d'intérêt! Bonsoir |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: Incapacité de RELIRE une image sauvegardée depuis PICTURE Dim 17 Juin 2012 - 15:41 | |
| @ Cosmos 70 MINIFLY hat so ein Programm entwickelt. Suche mal im Forum.Severin Cosmos @ 70 MINIFLY a conçu un programme. Rechercher dans le forum fois. Severin - Code:
-
' *** Verzeichnisauswahl ******************************************************* ' ****************************************************************************** ' ' *** LeftLabel definieren ********************************************************* Label LeftSub_Ferme_Dirlist Label LeftRep_list Label LeftSub_open_dialog Label LeftSub_Choix_List Label LeftSub_Peripheriques Label LeftDisque Label LeftSuite01 Label Linke_Seite Label Rechte_Seite ' ' *** RightLabel definieren ********************************************************* Label RightSub_Ferme_Dirlist Label RightRep_list Label RightSub_open_dialog Label RightSub_Choix_List Label RightSub_Peripheriques Label RightDisque Label RightSuite01 '
' *** LeftVariable definieren ****************************************************** Dim LeftDirList% Dim LeftList_Dirlist% Dim LeftEdit_Dirlist% Dim Butt01_Dirlist% Dim Butt02_Dirlist% Dim Butt03_Dirlist% Dim Butt04_Dirlist% Dim Butt05_Dirlist% Dim LeftList_File_list% Dim Lefta$ Dim LeftTest% Dim Leftchaine$ Dim LeftRepertoire_Courant$ Dim LeftLong_Chaine% Dim LeftSous_Chaine$ Dim Lefti% ' ' *** RightVariable definieren ****************************************************** Dim RightDirList% Dim RightList_Dirlist% Dim RightEdit_Dirlist% Dim RightList_File_list% Dim Righta$ Dim RightTest% Dim Rightchaine$ Dim RightRepertoire_Courant$ Dim RightLong_Chaine% Dim RightSous_Chaine$ Dim Righti% ' ' *** LeftFill Variable ************************************************************ ' LeftDirList% = 2010 LeftList_Dirlist% = 2020 LeftEdit_Dirlist% = 2030 LeftList_File_list% = 2040 ' Butt01_Dirlist% = 2051 Butt02_Dirlist% = 2052 Butt03_Dirlist% = 2053 Butt04_Dirlist% = 2054 Butt05_Dirlist% = 2055 ' ' *** RightFill Variable ************************************************************ ' RightDirList% = 3010 RightList_Dirlist% = 3020 RightEdit_Dirlist% = 3030 RightList_File_list% = 3040 ' ' ' ****************************************************************************** ' LeftDirList ' ****************************************************************************** ' Form LeftDirList% top LeftDirList%,0100 left LeftDirList%,0100 width LeftDirList%,1000 height LeftDirList%,0800 caption LeftDirList%," Copy to Copy " :' "Répertoires" ' ' Command_Target_is LeftDirList% ' ' *** LeftListe links ************************************************************** ' list LeftList_Dirlist% top LeftList_Dirlist%,0150 left LeftList_Dirlist%,0020 width LeftList_Dirlist%,0205 height LeftList_Dirlist%,0400 ' ' *** LeftListe rechts ************************************************************* ' list LeftList_File_list% top LeftList_File_list%,0150 left LeftList_File_list%,0245 width LeftList_File_list%,0205 height LeftList_File_list%,0400 ' ' ' *** RightListe rechts ************************************************************* ' list RightList_File_list% top RightList_File_list%,0150 left RightList_File_list%,0550 width RightList_File_list%,0205 height RightList_File_list%,0400 ' ' *** RightListe links ************************************************************** ' list RightList_Dirlist% top RightList_Dirlist%,0150 left RightList_Dirlist%,0775 width RightList_Dirlist%,0205 height RightList_Dirlist%,0400 ' ' stop ' *** LeftAnzeige PFAD ************************************************************* ' edit LeftEdit_Dirlist% left LeftEdit_Dirlist%,020 top LeftEdit_Dirlist%,020 width LeftEdit_Dirlist%,430 ' ' ' *** RightAnzeige PFAD ************************************************************* ' edit RightEdit_Dirlist% left RightEdit_Dirlist%,550 top RightEdit_Dirlist%,020 width RightEdit_Dirlist%,430 ' ' stop ' *** BUTTON "Quit" ************************************************************ ' button Butt01_Dirlist% Left Butt01_Dirlist%,460 top Butt01_Dirlist%,500 width Butt01_Dirlist%,080 height Butt01_Dirlist%,025 Caption Butt01_Dirlist%,"Quit" On_Click Butt01_Dirlist%,LeftSub_Ferme_Dirlist ' ' *** BUTTON "Copy" dieses File ************************************************ ' button Butt02_Dirlist% Left Butt02_Dirlist%,460 top Butt02_Dirlist%,400 width Butt02_Dirlist%,080 height Butt02_Dirlist%,025 ' SCHRIFTART = Butt02_Dirlist% ' gosub Schriftart10F Caption Butt02_Dirlist%,"===> Copy" ' ' *** BUTTON "Save" dieses File ************************************************ ' button Butt03_Dirlist% Left Butt03_Dirlist%,460 top Butt03_Dirlist%,300 width Butt03_Dirlist%,080 height Butt03_Dirlist%,025 Caption Butt03_Dirlist%,"Copy <===" ' ' *** LeftBUTTON aktivieren ************************************************************* ' button Butt04_Dirlist% Left Butt04_Dirlist%,020 top Butt04_Dirlist%,0080 width Butt04_Dirlist%,430 height Butt04_Dirlist%,025 Caption Butt04_Dirlist%,"Aktivieren this Direktory on the left Side"
' *** Right BUTTON aktivieren ************************************************************* button Butt05_Dirlist% Left Butt05_Dirlist%,550 top Butt05_Dirlist%,0080 width Butt05_Dirlist%,430 height Butt05_Dirlist%,025 Caption Butt05_Dirlist%,"Aktivieren this Direktory on the right Side" ' on_click Butt04_Dirlist%,Linke_Seite on_click Butt05_Dirlist%,Rechte_Seite
' hide DirList% Linke_Seite: gosub LeftSub_open_dialog end ' Ouverture du dialogue repertoire ' LeftSub_open_dialog: ' ' Numero_bouton%=Number_click ' show LeftdirList% Text LeftEdit_dirList%, Dir_Current$ Item_add LeftList_DirList%,".." gosub LeftRep_List ' on_click LeftList_DirList%,LeftSub_Choix_List ' ' end return ' ' Affichage de la liste des répertoire a gauche et des fichiers a droites LeftRep_List:
clear LeftList_DirList% clear LeftList_File_List%
item_add LeftList_DirList%,".." Lefta$ = file_find_first$ while Lefta$<>"_" LeftTest%=File_Exists(Lefta$) if LeftTest%=0 then item_add LeftList_DirList%,Lefta$ if LeftTest%>0 then item_add LeftList_File_List%,Lefta$ Lefta$ = file_find_next$ end_while ' file_find_close ' ' *** Recherche des periphiques disponibles ************************************
gosub LeftSub_Peripheriques return
' Choisir un repertoire dans la liste ' LeftSub_Choix_List: ' LeftTest%= item_Index( LeftList_DirList%) Leftchaine$=item_read$ ( LeftList_DirList%,LeftTest%) if LeftChaine$=":" then Leftsuite01 if LeftChaine$=".." Leftchaine$=Dir_Current$ LeftLong_Chaine%=Len(Dir_Current$) ' for Lefti% = 1 to LeftLong_Chaine% step 1 ' Leftchaine$=left$(Leftchaine$,Leftlong_chaine%-Lefti%) LeftSous_Chaine$=Right$(LeftChaine$,1) ' if LeftSous_Chaine$="\" then exit_for ' next Lefti% ' end_if ' ' ****************************************************************************** LeftSuite01: ' dir_change Leftchaine$ Text LeftEdit_dirList%, Dir_Current$ LeftRepertoire_Courant$=Dir_Current$ ' gosub LeftRep_list ' return ' ' ****************************************************************************** LeftSub_Peripheriques:
Lefta$="A":gosub Leftdisque Lefta$="B":gosub Leftdisque Lefta$="C":gosub Leftdisque Lefta$="D":gosub Leftdisque Lefta$="E":gosub Leftdisque Lefta$="F":gosub Leftdisque Lefta$="G":gosub Leftdisque Lefta$="H":gosub Leftdisque Lefta$="I":gosub Leftdisque Lefta$="J":gosub Leftdisque Lefta$="K":gosub Leftdisque Lefta$="L":gosub Leftdisque Lefta$="M":gosub Leftdisque Lefta$="N":gosub Leftdisque Lefta$="O":gosub Leftdisque Lefta$="P":gosub Leftdisque Lefta$="Q":gosub Leftdisque Lefta$="R":gosub Leftdisque Lefta$="S":gosub Leftdisque Lefta$="T":gosub Leftdisque Lefta$="U":gosub Leftdisque Lefta$="V":gosub Leftdisque Lefta$="W":gosub Leftdisque Lefta$="X":gosub Leftdisque Lefta$="Y":gosub Leftdisque Lefta$="Z":gosub Leftdisque ' return ' ' ****************************************************************************** Leftdisque: ' if disk_exists(Lefta$)=1 item_add LeftList_DirList%,Lefta$+":" end_if
Return ' ' ****************************************************************************** LeftSub_Ferme_Dirlist: ' Hide LeftDirlist% ' Return
End End End End End End
' *** Verzeichnisauswahl ******************************************************* ' ****************************************************************************** ' ' ' hide DirList% Rechte_Seite: gosub RightSub_open_dialog end ' Ouverture du dialogue repertoire ' RightSub_open_dialog: ' ' Numero_bouton%=Number_click ' show RightdirList% Text RightEdit_dirList%, Dir_Current$ Item_add RightList_DirList%,".." gosub RightRep_List ' on_click RightList_DirList%,RightSub_Choix_List ' ' end return ' ' Affichage de la liste des répertoire a gauche et des fichiers a droites RightRep_List:
clear RightList_DirList% clear RightList_File_List%
item_add RightList_DirList%,".." Righta$ = file_find_first$ while Righta$<>"_" RightTest%=File_Exists(Righta$) if RightTest%=0 then item_add RightList_DirList%,Righta$ if Righttest%>0 then item_add RightList_File_List%,Righta$ Righta$ = file_find_next$ end_while ' file_find_close ' ' *** Recherche des periphiques disponibles ************************************
gosub RightSub_Peripheriques return
' Choisir un repertoire dans la liste ' RightSub_Choix_List: ' Righttest%= item_Index( RightList_DirList%) Rightchaine$=item_read$ ( RightList_DirList%,Righttest%) if RightChaine$=":" then Rightsuite01 if RightChaine$=".." Rightchaine$=Dir_Current$ RightLong_Chaine%=Len(Dir_Current$) ' for Righti%=1 to RightLong_Chaine% step 1 ' Rightchaine$=left$(Rightchaine$,Rightlong_chaine%-Righti%) RightSous_Chaine$=Right$(RightChaine$,1) ' if RightSous_Chaine$="\" then exit_for ' next Righti% ' end_if ' ' ****************************************************************************** RightSuite01: ' dir_change Rightchaine$ Text RightEdit_dirList%, Dir_Current$ RightRepertoire_Courant$=Dir_Current$ ' gosub RightRep_list ' return ' ' ****************************************************************************** RightSub_Peripheriques:
Righta$="A":gosub Rightdisque Righta$="B":gosub Rightdisque Righta$="C":gosub Rightdisque Righta$="D":gosub Rightdisque Righta$="E":gosub Rightdisque Righta$="F":gosub Rightdisque Righta$="G":gosub Rightdisque Righta$="H":gosub Rightdisque Righta$="I":gosub Rightdisque Righta$="J":gosub Rightdisque Righta$="K":gosub Rightdisque Righta$="L":gosub Rightdisque Righta$="M":gosub Rightdisque Righta$="N":gosub Rightdisque Righta$="O":gosub Rightdisque Righta$="P":gosub Rightdisque Righta$="Q":gosub Rightdisque Righta$="R":gosub Rightdisque Righta$="S":gosub Rightdisque Righta$="T":gosub Rightdisque Righta$="U":gosub Rightdisque Righta$="V":gosub Rightdisque Righta$="W":gosub Rightdisque Righta$="X":gosub Rightdisque Righta$="Y":gosub Rightdisque Righta$="Z":gosub Rightdisque ' return ' ' ****************************************************************************** Rightdisque: ' if disk_exists(Righta$)=1 item_add RightList_DirList%,Righta$+":" end_if
Return ' ' ****************************************************************************** RightSub_Ferme_Dirlist: ' Hide RightDirlist% ' Return | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: Incapacité de RELIRE une image sauvegardée depuis PICTURE Dim 17 Juin 2012 - 16:02 | |
| | |
| | | Invité Invité
| Sujet: Re: Incapacité de RELIRE une image sauvegardée depuis PICTURE Dim 17 Juin 2012 - 16:25 | |
| Je suis désolé, il y a un bug! Je ne suis pas tolérant là dessus, car dans le cas particulier, c'est une sauvegarde d'un picture par Panoramic lui même, par sa propre commande: FILE_save N,f$, avec sa propre méthode. Il doit pouvoir relire ce qu'il a écrit!
Si cela avait été une image d'un appareil photo, ou d'un scanner ou autre, la chose aurait été différente, vu que chaque marque, n'écrit pas de la même façon un fichier jpg. Mais là pas d'accord!
En plus au moment de vouloir publier ce post, j'ai voulu mettre le retour du problème, et à ce moment là Panoramic, s'est évaporé. Le fichier sauvegardé, peut être relu par PictureViewer, mais IPhotoExpress ne peut pas le lire! Si Panoramic ne peut pas lire ses propres Paramètres, faut pas venir me dire que c'est normal!
|
| | | Jack Admin
Nombre de messages : 2381 Date d'inscription : 28/05/2007
| Sujet: Re: Incapacité de RELIRE une image sauvegardée depuis PICTURE Dim 17 Juin 2012 - 16:28 | |
| @ cosmos70: Suite à ton exemple, je viens de me rendre compte qu'il y a effectivement un bug dans FILE_SAVE. FILE_SAVE sauvegarde systématiquement en .BMP, même si le fichier a l'extension .JPG : FILE_SAVE 1,"FICHIER.JPG" sauvegarde sous le nom FICHIER.JPG, mais le fichier est codé en BMP à l'intérieur et pas en JPG. Si tu fais un FILE_SAVE avec un BMP, cela fonctionne: - Code:
-
picture 1:full_space 1 file_load 1,"image1.jpg" file_save 1,"image2.bmp" message "on relit" file_load 1,"image2.bmp" Je corrige ce bug pour la prochaine version. | |
| | | Severin
Nombre de messages : 547 Localisation : Braunschweig / Germany Date d'inscription : 13/12/2010
| Sujet: Re: Incapacité de RELIRE une image sauvegardée depuis PICTURE Dim 17 Juin 2012 - 17:00 | |
| | |
| | | Invité Invité
| Sujet: Re: Incapacité de RELIRE une image sauvegardée depuis PICTURE Dim 17 Juin 2012 - 18:01 | |
| Youpiiiii:
Merci pour ta réponse. Vu que j'ai les deux adresses dans un grid l'original et le nouveau, pour l'instant je pointe sur l'original, je garde le nom qui correspond à celui du picture, et le moment venu, je ferais une sauvegarde automatique en jpg sur le nouveau chemin.
Merci d'avoir regardé et répondu. Maintenant mon programme devient intéressant. |
| | | Invité Invité
| Sujet: Re: Incapacité de RELIRE une image sauvegardée depuis PICTURE Dim 17 Juin 2012 - 18:41 | |
| Est-tu sûre que le problème n'existe pas aussi avec FILE_COPY? La lecture aussi avec cette instruction d'une image jpg ne marche pas dans mon programme. Là je file |
| | | Klaus
Nombre de messages : 12274 Age : 74 Localisation : Ile de France Date d'inscription : 29/12/2009
| Sujet: Re: Incapacité de RELIRE une image sauvegardée depuis PICTURE Dim 17 Juin 2012 - 22:24 | |
| @COSMOS70: La doc de l'objet PICTURE a toujours indiqué que seuls les fichiers BMP sont utilisables: FILE_COPY accepte n'importe quel fichier et se moque du type ou de l'extension. | |
| | | Invité Invité
| Sujet: Re: Incapacité de RELIRE une image sauvegardée depuis PICTURE Dim 17 Juin 2012 - 23:39 | |
| Bonsoir, Je sais qu'au départ c'était seulement les images BMP qui fonctionnaient. Mais il me semblais bien que depuis, les images jpg avaient été rajoutées. Par contre je viens de découvrir quelque chose, concernant FILE_COPY: Si je fais: FILE_COPY "D:\mon_image.jpg" , "z:\ESPACE\IMAGE\image teste pour image4.jpg" que je fais ensuite: - Code:
-
picture 1:file_load 1,"D:\mon_image.jpg":' , ça fonctionne file_load 1, "z:\ESPACE\IMAGE\image teste pour image4.jpg":' ça ne fonctionne pas, impossible de lire ' si je renomme ce fichier, en "image4.jpg":' , là il n'y a plus d'erreur En quoi le nom du fichier précédent est incompatible? J'ai dépassé les limites? |
| | | Invité Invité
| Sujet: Re: Incapacité de RELIRE une image sauvegardée depuis PICTURE Dim 17 Juin 2012 - 23:56 | |
| Je viens de faire des essais avec FILE_COPY en fait, si le nom du fichier JPG poussède un ou des espaces, il y a erreur. Si je renomme en remplaçant les espaces par "_" le fichier se charge. Bonsoir.
EDIT: C'est une histoire sans fin. Voila que ça refonctionne sans rien faire. Je ne pense pas qu'il y a de rapport avec l'exe qui plante.
Je vais arréter la dessus, car maintenant je n'avance plus avec cette histoire. En tout cas si je dois sauvegarder en BMP et faire une application, quelle va être le volume de celle-ci?.
J'abandonne. On verra plus tard! Je regarderai pour faire des essais plus poussés. |
| | | Contenu sponsorisé
| Sujet: Re: Incapacité de RELIRE une image sauvegardée depuis PICTURE | |
| |
| | | | Incapacité de RELIRE une image sauvegardée depuis PICTURE | |
|
Sujets similaires | |
|
| Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |