本文整理自网络，侵删。
functiom GetFileType(FileName:String):string;var MyImage:TMemoryStream; Buffer:Word; i:integer;begin Result := 'Err'; MyImage:=TMemoryStream.Create; try MyImage.LoadFromFile(FileName); MyImage.Position := 0; // 指针文件开头的位置 if MyImage.Size = 0 then Exit; // 文件大小等于0退出 MyImage.ReadBuffer(Buffer,2); // 读取文件的前２个字节[低位到高位]，放到Buffer里面 if Buffer=$4D42 then Result :='BMP'; if Buffer=$D8FF then Result :='JPEG'; if Buffer=$4947 then Result :='GIFP'; if Buffer=$050A then Result :='PCX'; if Buffer=$5089 then Result :='PNG'; if Buffer=$4238 then Result :='PSD'; if Buffer=$A659 then Result :='RAS'; if Buffer=$DA01 then Result :='SGI'; if Buffer=$4949 then Result :='TIFF'; finally MyImage.Free; // 释放内存流对象 end;end;
相关阅读 >>
Delphi 判断时间是否合法 -isvaliddatetime、isvaliddate、isvalidtime、isvaliddateday
Delphi中组件panel、splitter、groupbox、按钮组件（checkbox...）、计时器、滚动条、多选卡
Delphi 中 image 控件加载bmp、jpg、gif、png等图片的办法
Delphi 通过memorystream 传递image1数据
更多相关阅读请进入《Delphi》频道 >>
