zoukankan      html  css  js  c++  java
  • Delphi图片格式判断

    procedure TForm1.CheckImgType(fn: string);
    var
      MyImage: TMemoryStream;
      Buffer: Word;
      i: integer;
    begin
      MyImage := TMemoryStream.Create;
      try
        MyImage.LoadFromFile(fn);
        MyImage.Position := 0;
        if MyImage.Size = 0 then
        begin
          ShowMessage('错误');
          Exit;
        end;
        MyImage.ReadBuffer(Buffer, 2);
        if Buffer = $4D42 then
        begin
          ShowMessage('BMP');
        end
        else if Buffer = $D8FF then
        begin
          ShowMessage('JPEG');
        end
        else if Buffer = $4947 then
        begin
          ShowMessage('GIF');
        end
        else if Buffer = $050A then
        begin
          ShowMessage('PCX');
        end
        else if Buffer = $5089 then
        begin
          ShowMessage('PNG');
        end
        else if Buffer = $4238 then
        begin
          ShowMessage('PSD');
        end
        else if Buffer = $A659 then
        begin
          ShowMessage('RAS');
        end
        else if Buffer = $DA01 then
        begin
          ShowMessage('SGI');
        end
        else if Buffer = $4949 then
        begin
          ShowMessage('TIFF');
        end
        else //如是其他类型的文件的话,直接显示错误
        begin
          ShowMessage('ERR');
        end;
    
      finally
        MyImage.Free;
      end;
    end;
  • 相关阅读:
    Spring 之 BeanFactory 源码
    pig first trial
    分布
    Think Stats CDF, mayplot
    think stat  4_1, 4_3
    python 指数分布的模拟 expovariate
    [转载]巴洛克和哥特式建筑的区别
    统计中的过采样
    Python iterator/generator
    python zip
  • 原文地址:https://www.cnblogs.com/jieke/p/4831960.html
Copyright © 2011-2022 走看看