判断内存流中的图片格式

判断内存流中的图片格式
代码如下:

//从内存流中判断图片格式
procedure TForm1.BitBtn4Click(Sender: TObject);
var
  MyImage:TMemoryStream;
  Buffer:Word;
  i:
integer;
begin
  
if OpenDialog1.Execute then
  begin
    MyImage:
=TMemoryStream.Create;
    MyImage.LoadFromFile(OpenDialog1.FileName);
    MyImage.Position :
= 0;
    
if MyImage.Size = 0 then
    begin
      
//ERR
      ShowMessage(
'ERR');
      MyImage.Free;
      
Exit;
    
end;
    MyImage.ReadBuffer(Buffer,
2);

    
if Buffer=$4D42 then
    begin
         
//BMP
      ShowMessage(
'BMP');
    end
    
else if Buffer=$D8FF then
    begin
        
//JPEG
      ShowMessage(
'JPEG');
    end
    
else if Buffer=$4947 then
    begin
        
//GIF
      ShowMessage(
'GIF');
    end
    
else if Buffer=$050A then
    begin
        
//PCX
      ShowMessage(
'PCX');
    end
    
else if Buffer=$5089 then
    begin
        
//PNG
      ShowMessage(
'PNG');
    end
    
else if Buffer=$4238 then
    begin
        
//PSD
      ShowMessage(
'PSD');
    end
    
else if Buffer=$A659 then
    begin
        
//RAS
      ShowMessage(
'RAS');
    end
    
else if Buffer=$DA01 then
    begin
        
//SGI
      ShowMessage(
'SGI');
    end
    
else if Buffer=$4949 then
    begin
        
//TIFF
      ShowMessage(
'TIFF');
    end
    
else
    begin
        
//ERR
      ShowMessage(
'ERR');
    end;
    MyImage.Free;
  
end;
end;

 

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值