kd wrote:

> text 파일을 Image에 출력하고 싶은데 어떡하면 될지...

>

> 구현방법 부탁 드립니다.

>

> PageSkip이나 scroll할수 있는 방법도 알려 주시면 감사 하겠 습니다.



죄송합니다. 초보가 글을 올려서......

얼마전에 저도 이런 사건을 ? 접해봐서 글을 올립니다.



2~3가지 방법이 있는 것으로 압니다.



1번. 이미지 구현을 Activx를 통한 방법이 있는데(코닥) 이렇게 하셨으면

imgAnnTool이리는 것이 있는데 여기에 TextStamp를 이용하면

이미지 위에 도장을 찍는것과 같은 효과가 나타 납니다.



혹은 TextFiled을 이용하셔도 되요 그럼 경로를 입력해주면 됩니다.



예제



ImgAnnTool1.AnnotationFont.Name := '궁서체'; // 폰트의 지정

ImgAnnTool1.AnnotationFont.Size := 16; // 출력값의 사이즈지정

ImgAnnTool1.AnnotationStampText := FormatDateTime('yyyy',now) +'년 '

+ FormatDateTime('mm' ,now) +'월 '

+ FormatDateTime('dd' ,now) +'일 '

+ #13#10 // 줄을 넘길때,리턴값

+ '출력연습'; /그 다음 값





출력값이 ----> 2001년 06월 05일

출력연습





2번. 퀵레포트를 이용해 출력을 할때 QRimage를 이용한 방법입니다.

퀵레포트의 디테일 밴드에 QRimage를 배치한후 before Detail band 이벤트에

출력할 화일(jpeg,bmp등)을 입력해주고 그 위에 QRLabel을 배치 하면

출력시 이미지와 QRLabel값이 출력 되게 됩니다.



예제



procedure TrfBalgub.DetailBand1BeforePrint(Sender: TQRCustomBand;

var PrintBand: Boolean);

var

ImageName1: string; //이미지가 저장된 디렉토리와 파일명을 저장하는 변수

BW_bmp : TBitmap; //비트맵 객체

jpeg : TJPEGImage; //Jpeg 객체



begin

ImageName1 := 'c:test.jpeg';



if FileExists(ImageName1) then //이미지 파일이 존재한다면

begin

jpeg := TJpegImage.Create; //Jpeg객체 생성

jpeg.LoadFromFile(ImageName1); //Jpeg객체에 이미지를 불러옴



BW_bmp := TBitmap.Create; //비트맵 객체 생성

BW_bmp.Assign(jpeg); //비트맵 객체에 Jpeg객체를 할당



QRImage1.Picture.Bitmap.Assign(BW_bmp); //QRImage에 비트맵 객체를 할당



jpeg.Free; //Jpeg객체 소멸

BW_bmp.Free; //비트맵 객체 소멸

end

else //이미지 파일이 존재하지 않는다면 아래 라인을 처리

begin

QRImage1.Picture := nil;

QRImage1.Height := 0;

end;

QRLabel2.Caption := FormatDateTime('yyyy',now)+'년 '

+ FormatDateTime('mm',now)+'월 '

+ FormatDateTime('dd',now)+'일';

end;





또 다른 방법이 더 있는것 같은데 저는 이 방법만 해 보았습니다.



제가 초보라서 아직 미흡함이 많습니다. 그럼 즐코 하시고여 여름에 모기 조심!!!