un bitmap et sa dimention

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

bonjour a tous

voila actuellement je fait un utilitaire bien particulier c'est un editeur de skin
et pour cela j'ai besoin d'utilisé un picture a des dimension divrse et j'aurai voulu
savoir comment on peut faire pour déterminé les dimensions du bitmap afin de pouvoir
la placé dans le picture avec ses propre dimension "width, height" de celui-ci et par la suite
je pourrais utilisé la commande stretch_on pour m'en servir comme loupe
pour agrandir ou de rétrécir le picture sans détérioré le visu du bitmap
j'espère avoir été assez claire

merci pour votre intervention

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

Dimensions en pixels d'une image bmp ? je cherche la sub...

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

oui surtout! en pixel exclusivement

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

La voila !

Code:: SUB DimBmp(f$)
' Dimensions d'une image bmp -> rs_wi%, rs_hi% (largeur, hauteur en pixels)
DIM_LOCAL rs_v%(8)
IF VARIABLE("rs_wi%") = 0 THEN DIM rs_wi%
IF VARIABLE("rs_hi%") = 0 THEN DIM rs_hi%
FILEBIN_OPEN_READ 9, f$
FILEBIN_POSITION 9, 18
FILEBIN_BLOCK_READ 9,8,rs_v%(0)
rs_wi% = rs_v%(0)+256*rs_v%(1)+65536*rs_v%(2)+16777216*rs_v%(3)
rs_hi% = rs_v%(4)+256*rs_v%(5)+65536*rs_v%(6)+16777216*rs_v%(7)
FILEBIN_CLOSE 9
END_SUB

les résultats dans rs_wi% et rs_hi%

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

cool c sympa merci beaucoup je vais testé ton code

ps: une première pour moi a utilisé les binaires lol

bonne journée

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

J'espère que ce n'est pas la dernière, le binaire est plein de ressources !

Bonne journée à toi également !

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

probleme
erreur à la ligne 25

message d'erreur! (145) only 1 index integer array variable can be used line:25

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

à cette ligne
FILEBIN_BLOCK_READ 9,8,rs_v%(0)
il doit manque quelque chose par ici

Tu as aussi la DLL de Klaus qui permet de récupérer les paramètres d'une image (tu peux regarder dans mon outils pour les sprites, je m'en sert au chargement de l'image)

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

Tiens, bizarre, je n'ai pas cette erreur ! ça dépend peut-être de ce que tu as avant l'appel à la sub ? d'ailleurs je ne comprends pas bien ce libellé d'erreur...

@Jicehel, certes, mais pourquoi faire appel à une dll quand on peut faire la même chose en quelques lignes en panoramic pur ?

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

tu veut parlé de kgl.dll
oui je l'ai

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

pascal, si tu nous donnais ton code de test complet ? parce que là je ne vois pas du tout comment tu peux avoir cette erreur qui n'apparaît pas chez moi...

Tiens, en attendant une routine plus générale, pour les formats Bmp, Jpg, Gif et Tga:

Code:: SUB DimImage(f$)
' Dimensions en pixels d'une image bmp, gif, tga ou jpg -> rs_wi%, rs_hi%
DIM_LOCAL rs_v%(8), rs_su$, rs_bo%
IF VARIABLE("rs_wi%") = 0 THEN DIM rs_wi%
IF VARIABLE("rs_hi%") = 0 THEN DIM rs_hi%
rs_wi% = 0: IF FILE_EXISTS(f$) = 0 THEN EXIT_SUB
rs_su$ = UPPER$(FILE_EXTRACT_EXTENSION$(f$)): ' suffixe
IF rs_su$ = ".JPG"
rs_bo% = NUMBER_OBJECTS + 1: PICTURE rs_bo%: HIDE rs_bo%
FILE_LOAD rs_bo%, f$: FILE_SAVE rs_bo%, "C:\Tstdima.bmp": DELETE rs_bo%
FILEBIN_OPEN_READ 9, "C:\Tstdima.bmp"
FILEBIN_POSITION 9, 18: FILEBIN_BLOCK_READ 9,8,rs_v%(0)
rs_wi% = rs_v%(0)+256*rs_v%(1)+65536*rs_v%(2)+16777216*rs_v%(3)
rs_hi% = rs_v%(4)+256*rs_v%(5)+65536*rs_v%(6)+16777216*rs_v%(7)
FILEBIN_CLOSE 9: FILE_DELETE "C:\Tstdima.bmp"
ELSE
FILEBIN_OPEN_READ 9, f$
IF rs_su$ = ".BMP"
FILEBIN_POSITION 9, 18: FILEBIN_BLOCK_READ 9,8,rs_v%(0)
rs_wi% = rs_v%(0)+256*rs_v%(1)+65536*rs_v%(2)+16777216*rs_v%(3)
rs_hi% = rs_v%(4)+256*rs_v%(5)+65536*rs_v%(6)+16777216*rs_v%(7)
ELSE
IF rs_su$ = ".GIF"
FILEBIN_POSITION 9, 6: FILEBIN_BLOCK_READ 9,4,rs_v%(0)
rs_wi% = rs_v%(0) + 256*rs_v%(1)
rs_hi% = rs_v%(2) + 256*rs_v%(3)
ELSE
IF rs_su$ = ".TGA"
FILEBIN_POSITION 9,12: FILEBIN_BLOCK_READ 9,4,rs_v%(0)
rs_wi% = rs_v%(0) + 256*rs_v%(1)
rs_hi% = rs_v%(2) + 256*rs_v%(3)
END_IF
END_IF
END_IF
FILEBIN_CLOSE 9
END_IF
END_SUB

Tu as KGF.dll ? Alors essaie ceci:

Code:: dim res%, img$, largeur%, hauteur%
dll_on "KGF.dll"
open_dialog 1
img$ = file_name$(1)
if img$="_" then terminate
' *** la ligne suivante est la partie importante de ce code:
res% = dll_call3("AnalyzeImageFile",adr(img$),adr(largeur%),adr(hauteur%))
message "Largeur="+str$(largeur%)+" hauteur="+str$(hauteur%)
terminate

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

ok jl35 tout fonctionne comme je le souhaitai
merci encore

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

merci klaus ton code me sera utile aussi

merci encore a vous tous

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

klaus teste ton code avec mes variable et trouve l'erreur
le premier message me convient mais le 2eme c'est autre chose!!
en voulant l'enregistré a d'autre variable ça devrait etre bon!!
je ne comprend pas

Code:: dim picwidth%,picheight%,idwidth%,idheight%,dessin$,KGF_res%
dir_change "C:\Program Files\VirtualSkinor"

dll_on "KGF.dll"
open_dialog 1
dessin$ = file_name$(1)
if dessin$="_" then terminate
' *** la ligne suivante est la partie importante de ce code:
KGF_res% = dll_call3("AnalyzeImageFile",adr(dessin$),adr(picwidth%),adr(picheight%))
message "Largeur="+str$(picwidth%)+" hauteur="+str$(picheight%)
picwidth%=idwidth%
picheight%=idheight%
message "Largeur="+str$(idwidth%)+" hauteur="+str$(idheight%)
terminate

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

Pardon Klaus, j'interviens à ta place, mais @pascal: je ne vois pas trop ce que tu cherches à faire, mais tu ne te serais pas un peu mélangé les crayons en écrivant

Code:: picwidth%=idwidth%
picheight%=idheight%

au lieu de l'inverse:

Code:: idwidth%=picwidth%
idheight%=picheight%

???

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

non je ne m'en suis pas rendu compte faut vraiment etre nul
pour pas s'en apercevoir et avec la précipitation j'ai été trop vite
pour le posté. cela fait 5 jour que je suis sur mon projet et il avance
pas vite

là je construit un utilitaire pour faire des skins a un logiciel
particulier et depuis plusieurs semaines que je cherche sur internet
et je n'en n'ai trouvé qu'un seul et payant en plus! alors je me suis
décidé en faire un
pourquoi ne pas en profité pendant qu'on a une merveille
je parle bien sur de panoramic

et merci encore pour votre aide

je suis vraiment désolé klaus je ne voulais pas mettre en cause
ta librairie KGF mais sur le coup je me suis pas rendu compte
de mon erreur !

milles excuses

» Une pseudo-police bitmap
» Rotation de bitmap
» Rotation de bitmap (bis)
» pb avec chargement bitmap
» Structure d'une image bitmap .bmp