TStream [D6, WinXP]
Goga © (2005-09-01 08:58:00)
Как определить формат изображения, загруженного в TStream если
можно в примере
Ega23 (2005-09-01 09:31:00) [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;
Наверх 
ЧАТ |
Орешник |
|
