procedure TForm1.Button1Click(Sender: TObject);
var
PicName:string;
v: TfrPictureView;
Page: TfrPage;
begin
OpenPictureDialog1.Execute;
PicName:=OpenPictureDialog1.FileName;
frReport1.Pages.Clear;
frReport1.Pages.Add;
Page := frReport1.Pages[0];
v := TfrPictureView.Create;
v.SetBounds(0, 0, w1, h1);
//w1, h1为变量，由图片的像素值获得。
v.Picture.LoadFromFile(PicName);
Page.Objects.Add(v);
frReport1.ShowReport;
end;
--------
如何获得图片的像素值
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1665677
{ 获取JPEG的宽度、高度等信息 }
{ Copyright Kingron 2002 }
function GetJPEGSize(FileName: string;
var Width, Height: WORD): Boolean;
const
JPEG_FLAG_begin
= $D8FF;
JPEG_FLAG_END = $D9FF;
JPEG_FRAME = $C0FF;
var
FS: TFileStream;
Flag1, Flag2: WORD;
B: Byte;
procedure SeekForFrame;
type
TSegHeader = packed record
Flag: WORD;
LenHi, LenLo: Byte;
end;
var
Seg: TSegHeader;
begin
with Seg, FSdo
repeat
Read(Seg, SizeOf(Seg));
if Flag <>
JPEG_FRAME then
Position := Position + MakeWord(LenLo, LenHi) - 2;
until (Position >= Fs.Size) or (Seg.Flag = JPEG_FRAME);
end;
begin
FS := TFileStream.Create(FileName, fmOpenRead);
try
{ JPEG 文件开头必须为 FF D8,文件尾必须为 FF D9 }
FS.Read(Flag1, SizeOf(Flag1));
FS.Position := FS.Size - 2;
FS.Read(Flag2, SizeOf(Flag2));
Result := (Flag1 = JPEG_FLAG_begin
) and (Flag2 = JPEG_FLAG_END);
if not Result then
exit;
{ 不是合法的JPEG文件则退出 }
FS.Position := 2;
SeekForFrame;
{ 寻找JPEG的Frame段，即图像数据区 }
FS.Read(B, SizeOf(B));
{ Frame段段头后第一个Byte为数据精度 }
FS.Read(B, SizeOf(B));
{ 高度高字节 }
WordRec(Height).Hi := B;
FS.Read(B, SizeOf(B));
{ 高度低字节 }
WordRec(Height).Lo := B;
FS.Read(B, SizeOf(B));
{ 宽度高字节 }
WordRec(Width).Hi := B;
FS.Read(B, SizeOf(B));
{ 宽度低字节 }
WordRec(Width).Lo := B;
finally
FS.Free;
end;
end;
