Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.041 c
4-1122898897
MegaVolt
2005-08-01 16:21
2005.09.25
Ручное стирание ListView


1-1125938184
Дмитрий_05
2005-09-05 20:36
2005.09.25
Какая версия Delphi лучше, D7 или D2005?


14-1125452640
Progamer
2005-08-31 05:44
2005.09.25
подозрительный сервак закачки музыки


4-1122893440
Гомункул
2005-08-01 14:50
2005.09.25
А можно автоматом писать версию (билд) exe-шника в label ?


5-1100590527
Kerim
2004-11-16 10:35
2005.09.25
Работа с вложенными контролами в design-time