Релиб / Программирование / Программирование / Определение размера и типа картинки / Latest Posts

RE: Определение размера и типа картинки

masha — Mon, 07 Oct 2002 15:10:00 GMT

Gif - изображение начинается с "GIF89a" - GIF точно, а 89a - версия может быть разной
JPEG - в первых примерно 20 символах должно встретиться "JFIF"

RE: Определение размера и типа картинки

masha — Mon, 07 Oct 2002 15:05:00 GMT

Есть на VB определение размеров картинки (зная тип)
[code]
If is_image Then
If m_img_type = "gif" Then
n1 = AscB(MidB(m_content, 7, 1))
n2 = AscB(MidB(m_content, 8, 1))
m_img_size(0) = n1 + n2 * 256
n1 = AscB(MidB(m_content, 9, 1))
n2 = AscB(MidB(m_content, 10, 1))
m_img_size(1) = n1 + n2 * 256
ElseIf m_img_type = "pjpeg" Then
'-----searching for SOF0 marker 0xFF=255 0xC0=192
i = InStrB(m_content, ChrB(255) & ChrB(192))

If i Then
'-----SOF0 marker found
i = i + 5
n1 = AscB(MidB(m_content, i, 1))
n2 = AscB(MidB(m_content, i + 1, 1))
m_img_size(1) = n1 * 256 + n2

i = i + 2
n1 = AscB(MidB(m_content, i, 1))
n2 = AscB(MidB(m_content, i + 1, 1))
m_img_size(0) = n1 * 256 + n2
End If
ElseIf m_img_type = "x-png" Then
'-----searching for IHDR Image header
i = InStrB(m_content, getByteString("IHDR"))
If i Then
'-----Width: 4 bytes
'-----Height: 4 bytes
i = i + 4
n1 = AscB(MidB(m_content, i, 1))
n2 = AscB(MidB(m_content, i + 1, 1))
n3 = AscB(MidB(m_content, i + 2, 1))
n4 = AscB(MidB(m_content, i + 3, 1))
m_img_size(0) = ((256 * n1 + n2) * 256 + n3) * 256 + n4

i = i + 4
n1 = AscB(MidB(m_content, i, 1))
n2 = AscB(MidB(m_content, i + 1, 1))
n3 = AscB(MidB(m_content, i + 2, 1))
n4 = AscB(MidB(m_content, i + 3, 1))
m_img_size(1) = ((256 * n1 + n2) * 256 + n3) * 256 + n4
End If
End If
End If
[/code]

Определение размера и типа картинки

jsmith — Sun, 06 Oct 2002 22:34:00 GMT

Нет ни у кого под рукой исходника на с? Определить тип картинки (jpg или gif) и ее размеры (ширина и высота). Ведь точно у кого-нибудь есть, а? :) Не в доки же лезть :)
Спасибо.