Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic taille d'une image jpg

taille d'une image jpg

12 réponses
Avatar
Guy
Bonjour,
en VB6 j'ai besoin de la hauteur et de la largeur de
l'image contenue dans des fichiers jpg.
Merci de m'aider
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
François Picalausa
Bonjour/soir,

jette un oeil à http://www.mvps.org/EDais/
Dans les "libraries", "JPEG info class"

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"Guy" a écrit dans le message de
news:0e7401c39e31$09ec19c0$
Bonjour,
en VB6 j'ai besoin de la hauteur et de la largeur de
l'image contenue dans des fichiers jpg.
Merci de m'aider


Avatar
ng
Salut,
Il y a une solution fichtrement simple qui consiste à faire un
loadpicture("mon image.jpg") dans un picturebox en autosize=true, la hauteur
serait alors récupérable par lHauteur=Pic.Height/Screen.TwipsPerPixelX
etc...

Nicolas

"Guy" a écrit dans le message de news:
0e7401c39e31$09ec19c0$
Bonjour,
en VB6 j'ai besoin de la hauteur et de la largeur de
l'image contenue dans des fichiers jpg.
Merci de m'aider


Avatar
Zoury
simple? peut-être...
propre? nope!
rapide? nope!

regarde la librarie de Mike.. c'est *très* simple.. je ne parle pas du code
qu'il y a dedans mais bien de son utilisation. ;O)

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
Avatar
ng
je sais je sais, c'était juste une idée comme ça :-)

"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news: #
simple? peut-être...
propre? nope!
rapide? nope!

regarde la librarie de Mike.. c'est *très* simple.. je ne parle pas du


code
qu'il y a dedans mais bien de son utilisation. ;O)

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous




Avatar
Bismark Prods
et en .Net tu saurais me dire comment on récupère cette information ?

"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:%
simple? peut-être...
propre? nope!
rapide? nope!

regarde la librarie de Mike.. c'est *très* simple.. je ne parle pas du


code
qu'il y a dedans mais bien de son utilisation. ;O)

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous




Avatar
Zoury
Salut Simon! :O)

Voici un exemple :

VB.NET
'***
Dim fs As New FileStream("c:image.bmp", FileMode.Open, FileAccess.Read,
FileShare.Read)
Dim bmp = New Bitmap(fs)
MessageBox.Show(bmp.Width.ToString() + " x " + bmp.Height.ToString())
fs.Close()
'***

C#
'***
FileStream fs = new FileStream(@"c:image.bmp", FileMode.Open,
FileAccess.Read, FileShare.Read);
Bitmap bmp = new Bitmap(fs);
MessageBox.Show(bmp.Width.ToString() + " x " + bmp.Height.ToString());
fs.Close();
'***

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
"Bismark Prods" wrote in message
news:
et en .Net tu saurais me dire comment on récupère cette information ?

"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:%
> simple? peut-être...
> propre? nope!
> rapide? nope!
>
> regarde la librarie de Mike.. c'est *très* simple.. je ne parle pas du
code
> qu'il y a dedans mais bien de son utilisation. ;O)
>
> --
> Cordialement
> Yanick Lefebvre - MVP pour Visual Basic
> http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
>
> Merci de poster les réponses au groupe afin d'en faire profiter à tous
>
>




Avatar
Bismark Prods
on s'est mal compris ! je cherche la taille en Ko et pas en dimension ! lol
merci quand meme

"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:
Salut Simon! :O)

Voici un exemple :

VB.NET
'***
Dim fs As New FileStream("c:image.bmp", FileMode.Open, FileAccess.Read,
FileShare.Read)
Dim bmp = New Bitmap(fs)
MessageBox.Show(bmp.Width.ToString() + " x " + bmp.Height.ToString())
fs.Close()
'***

C#
'***
FileStream fs = new FileStream(@"c:image.bmp", FileMode.Open,
FileAccess.Read, FileShare.Read);
Bitmap bmp = new Bitmap(fs);
MessageBox.Show(bmp.Width.ToString() + " x " + bmp.Height.ToString());
fs.Close();
'***

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
"Bismark Prods" wrote in message
news:
> et en .Net tu saurais me dire comment on récupère cette information ?
>
> "Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
> news:%
> > simple? peut-être...
> > propre? nope!
> > rapide? nope!
> >
> > regarde la librarie de Mike.. c'est *très* simple.. je ne parle pas du
> code
> > qu'il y a dedans mais bien de son utilisation. ;O)
> >
> > --
> > Cordialement
> > Yanick Lefebvre - MVP pour Visual Basic
> > http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> > http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
> >
> > Merci de poster les réponses au groupe afin d'en faire profiter à tous
> >
> >
>
>




Avatar
Zoury
ah! :O)

premièrement (j'ai posté du code bugué...) voilà la réparation :

VB.NET
'***
Dim fs As New FileStream("c:image.bmp", FileMode.Open, FileAccess.Read,
FileShare.Read)
Dim bmp As New Bitmap(fs)
MessageBox.Show(bmp.Width.ToString() & " x " & bmp.Height.ToString())
fs.Close()
'***


Ensuite, tu cherches la taille en Ko de l'image seulement (sans les entêtes
de fichier et de bitmap) ou de la taille du fichier?


Car la taille d'un fichier peut-être obtenu à l'aide de la classe FileInfo
et de sa propriété Length..

VB.NET
'***
Dim fi As New FileInfo("c:image.bmp")
MessageBox.Show((CLng(fi.Length / 1024L)).ToString("# ##0") & " ko")
'***


La taille de l'image peut-être déterminer de plusieurs façon, dont la
suivante :

VB.NET
'***
Dim fs As New FileStream("c:image.bmp", FileMode.Open, FileAccess.Read,
FileShare.Read)
Dim bmp As New Bitmap(fs)
Dim iScanLine As Integer
iScanLine = (Math.Ceiling(bmp.Width *
(bmp.GetPixelFormatSize(bmp.PixelFormat) / 8)) + 3) And &H7FFFFFFC
MessageBox.Show(bmp.Width.ToString() & " x " & bmp.Height.ToString() & " ::
" & CInt(iScanLine * bmp.Height / 1024).ToString("# ##0") & " ko")
fs.Close()
'***

le version C# étant pratiquement identique...

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
Avatar
Bismark Prods
merci infiniment.

En parlant de ca je suis en train de lire attentivement le bouquin de
R.Clark. Il est vraiment passionnant (le bouquin). Tu l'a lu ?

"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:
ah! :O)

premièrement (j'ai posté du code bugué...) voilà la réparation :

VB.NET
'***
Dim fs As New FileStream("c:image.bmp", FileMode.Open, FileAccess.Read,
FileShare.Read)
Dim bmp As New Bitmap(fs)
MessageBox.Show(bmp.Width.ToString() & " x " & bmp.Height.ToString())
fs.Close()
'***


Ensuite, tu cherches la taille en Ko de l'image seulement (sans les


entêtes
de fichier et de bitmap) ou de la taille du fichier?


Car la taille d'un fichier peut-être obtenu à l'aide de la classe FileInfo
et de sa propriété Length..

VB.NET
'***
Dim fi As New FileInfo("c:image.bmp")
MessageBox.Show((CLng(fi.Length / 1024L)).ToString("# ##0") & " ko")
'***


La taille de l'image peut-être déterminer de plusieurs façon, dont la
suivante :

VB.NET
'***
Dim fs As New FileStream("c:image.bmp", FileMode.Open, FileAccess.Read,
FileShare.Read)
Dim bmp As New Bitmap(fs)
Dim iScanLine As Integer
iScanLine = (Math.Ceiling(bmp.Width *
(bmp.GetPixelFormatSize(bmp.PixelFormat) / 8)) + 3) And &H7FFFFFFC
MessageBox.Show(bmp.Width.ToString() & " x " & bmp.Height.ToString() & "


::
" & CInt(iScanLine * bmp.Height / 1024).ToString("# ##0") & " ko")
fs.Close()
'***

le version C# étant pratiquement identique...

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous




Avatar
Zoury
Nope.
1 2