한국 델파이 동호회 델마당

깨몽
(이선우)

레포트를 사용하는 유닛의 uses 부분에 jpeg를 추가해 보세요.
2019-03-18 오전 9:51:39

도고래
(김진항)

깨몽
(이선우) 감사합니다.

다른 조치는 없어요?
Fastreport안에 Picture1 컴포넌트에
memo에
---------------------------------------------------------
begin
  Picture1.Visible := False;
  //
  if Table99.A130 <> '' then
  begin
    if Table99.A135 = 'BMP' then
       Picture1.blobType := btBMP
    else
       Picture1.blobType := btJPG;
    Picture1.LoadFromFile'c:\project\hyundai\PART_IMAGE\'+Table99.A130);
    Picture1.Visible := True;
  end;
end

이렇게 코딩해서 넣었거든요

2019-03-18 오전 10:48:03

ironiris
(이태웅)

FastReport 편집기에서 이미지를 선택하는 창에서 jpg 나 png를 선택할수 있게 되어있어서 읽을수 있겠다.. 싶었는데.. 못읽나봅니다?
2019-03-19 오전 9:23:08

도고래
(김진항)

이태웅...
거기서는 선택이 돼도 실질적으로 못찍어내더라구요
FreeView 하면 bmp는 보이는데 jpg는 없어지더라구요
2019-03-19 오전 9:33:57

ironiris
(이태웅)

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, frxClass;

type
  TForm2 = class(TForm)
    frxReport1: TfrxReport;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  tmpPic: TfrxPictureView;
begin
  tmpPic := frxReport1.FindObject('PIC') as TfrxPictureView;
  tmpPic.Picture.LoadFromFile('d:\newd.png');
  frxReport1.PrepareReport;
  frxReport1.ShowPreparedReport;
end;

end.
----------------
그냥 되네요. ^^;
tmpPic.Picture.LoadFromFile('d:\newd.png'); 이줄이 핵심입니당~
2019-03-19 오후 2:50:46

ironiris
(이태웅)

테스트한 버전은 5.6 입니다.
2019-03-19 오후 2:56:43

도고래
(김진항)

저는 아직도 델파이 5와 FastReport 2.4를 못 벗어나고 있습니다.
휴~~~~~
델파이10 (씨에틀)을 구매해서 업그레이드를 시도했었지만
결국 포기하고 아직도 5를 쓰고있습니다.
2019-03-19 오후 3:11:40

ironiris
(이태웅)

어차피 Picture 부분은 TImage 등에서 쓰는 것과 같이 쓰실 수 있으니..
일단.. TImage 에 우선 이미지를 표시하는 것을 시도해보심이 어떨까 싶습니다.
2019-03-19 오후 3:22:07

도고래
(김진항)

이태웅님
답변 갑사합니다.

2019-03-19 오후 5:18:37