Delphi从内存流中判断图片格式.doc

Delphi从内存流中判断图片格式_街头巷尾2009-03-19 11:22:55|分类： 个人日记 |标签： |字号大中小订阅 Delphi从内存流中判断图片格式利用内存流来判断文件的格式，其实判断文件的前几个字节就可以简单的判断这个文件是什么类型的文件，例如jpg文件是FFD8(从低位到高位就要反过来D8FF下面都是一样)BMP文件是424D-4D42其他的我就不一一列举了，想知道跟多文件类型分别是用什么字符作为文件的开头的话，下载个C32asm或者UE等这类16进制编辑器就可以看到了。procedureTForm1.Button1Click(Sender:TObject);/Button1的单击事件var/声明变量MyImage:TMemoryStream;/内存流对象Buffer:Word;i:integer;beginifOpenDialog1.Executethen/OpenDialog1是一个文件打开对话框，在Delphi组件面版的Dialog页中可以找到。beginMyImage:=TMemoryStream.Create;/建立内存流对象tryMyImage.LoadFromFile(OpenDialog1.FileName);/把刚刚用户选择的文件载入到内存流中MyImage.Position:=0;/移动指针到最开头的位置ifMyImage.Size=0then/如果文件大小等于0，那么begin/错误ShowMessage(错误);Exit;end;MyImage.ReadBuffer(Buffer,2);/读取文件的前个字节，放到Buffer里面ifBuffer=$4D42then/如果前两个字节是以4D42低位到高位beginShowMessage(BMP);/那么这个是BMP格式的文件endelseifBuffer=$D8FFthen/如果前两个字节是以D8FF低位到高位begin/JPEGShowMessage(JPEG);/.一样下面不注释了endelseifBuffer=$4947thenbegin/GIFShowMessage(GIF);endelseifBuffer=$050Athenbegin/PCXShowMessage(PCX);endelseifBuffer=$5089thenbegin/PNGShowMessage(PNG);endelseifBuffer=$4238thenbegin/PSDShowMessage(PSD);endelseifBuffer=$A659thenbegin/RASShowMessage(RAS);endelseifBuffer=$DA01thenbegin/SGIShowMessage(SGI);endelseifBuffer=$4949thenbegin/TIFFShowMessage(TIFF);endelse/如是其他类型的文件的话，直接显示错误begin/ERRShowMessage(ERR);end;/ifend;/iffinallyMyImage.Fr