Function Cjt_BmpLoad(ImgBmp:TImage;SourceFile:String):Boolean;varSource:TFileStream;MyFileSize:integer;beginSource:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNone);trytrySource.Seek(-sizeof(MyFileSize),soFromEnd);Source.ReadBuffer(MyFileSize,sizeof(MyFileSize));//读出资源Source.Seek(-MyFileSize,soFromEnd);//定位到资源开始位置ImgBmp.Picture.Bitmap.LoadFromStream(Source);finallySource.Free;end;exceptResult:=False;Exit;end;Result:=True;end;
这段代码只读出了一副,即最后防入的那张,前一张没有读出,是不是偏移辆的问题