Текущий архив: 2005.09.25;
Скачать: CL | DM;

Вниз

TStream   Найти похожие ветки 

← →
Goga   (2005-09-01 08:58) [0]

Как определить формат изображения, загруженного в TStream если можно в примере

---

← →
Ega23 ©   (2005-09-01 09:31) [1]

По сигнатуре

function GetGraphicFormat(const FileName:String):TGraphicFormat;
var
Buffer: array[0..2] of Byte;
fs:TFileStream;
begin
Result:=gfUnknown;
fs:=TFileStream.Create(FileName,fmOpenRead);
try
  fs.ReadBuffer(Buffer, 3);
  if (Buffer[0] = $49) and (Buffer[1] = $49) and (Buffer[2] = $2A) then Result:=gfTIFF;
  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;


---

Страницы: 1 вся ветка

Текущий архив: 2005.09.25;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.024 c