Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];
Вниз
Стандартные графические форматы Найти похожие ветки
← →
Ega23 (2003-12-09 14:03) [0]А есть ли какя нибудь функция, которая распознаёт какой графический формат имеет файл. Что-то вроде такого:
type
TGraphicFormat=(gfUnknown, gfBmp, gfJPEG, gfGIF, gfTIFF, ....);
function GetGraphicFormat(const FileName:String):TGraphicFormat;
А то с первыми байтами не очень хочется возится. Да и не знаю я их всех.
← →
Ega23 (2003-12-09 15:29) [1]Вот, наклепал кое-что, если кому интересно:
type
TGraphicFormat=(gfUnknown, gfBmp, gfJPEG, gfGIF, gfTIFF);
function GetGraphicFormat(const FileName:String):TGraphicFormat;
var
Buffer: array[0..2] of Byte;
fs:TFileStream;
begin
Result:=gfUnknown;
try
fs:=TFileStream.Create(FileName,fmOpenRead);
fs.ReadBuffer(Buffer, 3);
if (Buffer[0] = $49) and (Buffer[1] = $49) and (Buffer[2] = $2A) then Result:=gfLTIFF;
if (Buffer[0] = $42) and (Buffer[1] = $4D) then Result:=gfBMP;
if (Buffer[0] = $FF) and (Buffer[1] = $D8) then Result:=gfJPEG;
if (Buffer[0] = $47) and (Buffer[1] = $49) and (Buffer[2] = $46) then Result:=gfGIF;
finally
fs.Free;
end;
end;
← →
easy (2003-12-09 15:46) [2]потрясающе..=)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.014 c