delphi 识别图片流类型
//AValue 为图片文件流头两个字节 function GetImageExt(AValue: Cardinal): String; begin case AValue of $4D42, $424D: Result := '.bmp'; $D8FF, $FFD8: Result := '.jpg'; $4947, $4749: Result := '.gif'; $050A, $0A05: Result := '.pcx'; $5089, $8950: Result := '.png'; $4238, $3842: Result := '.psd'; $A659, $59A6: Result := '.ras'; $DA01, $01DA: Result := '.sgi'; $4949: Result := '.tiff'; else Result := ''; end; end;