자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

서버에서 이미지를 다운 받아 이미지를 합쳐 하나의 이미지로 만들어 blob data로 저장하는 프로그램입니다.

Draw문을 사용시 이미지가 잘나오나 A4 사이지로 되지않아 StretchDraw문을 사용했으나 이미지가 깨져 글자 식별이 어렵습니다. 

알려주시면 감사하겠습니다.~~

 

 

procedure HSComImgReport.SaveSignImage(pFilePath, pPatno, pMeddate,
  pDocno: String; iFromPage, iToPage: Integer);

const
   A4HEIGHT = 1123;
   A4WIDTH  = 794;

var

   Bmp : TBitmap;
   Jpeg      : TJPEGImage;
   lBitmap   : TBitmap;
   lsFileName : String;
begin

 

   Bmp := TBitmap.Create;

   Jpeg := TJPEGImage.Create;

   try

      iHeight := 0;
 

      for ix:=iFromPage-1 to iToPage-1 do begin

         lImage := TImage.Create(nil);
         lImage.Stretch := True;

         try

            lBitmap    := TBitmap.Create;

            lBitmap.Assign(PageInfo[ix].Bmp);

 

            BMP.Width  := A4WIDTH;
            BMP.Height := iHeight + A4HEIGHT;

 

            // BMP.Canvas.Draw(0, iHeight, lBitmap);  // 이미지가

            BMP.Canvas.StretchDraw( Rect(0,iHeight,bmp.Width,bmp.Height), lBitmap );

 

            iHeight :=  iHeight + A4HEIGHT;

         finally
            lBitmap.Free;
         end;

 

      Jpeg.Assign(BMP);
      Jpeg.CompressionQuality := 100;
      Jpeg.Compress;

      // 파일생성 위치 + 파일명 생성(환자번호+신청일자+서식번호)
      lsFileName := pFILEPATH + pPatNo + '_' + pMeddate + '_' + pDocno + '.JPEG';
      Jpeg.SaveToFile(lsFileName);
      Jpeg.Free;

   finally
      Bmp.Free;

   end;

 

 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15898
공지 유용한 관련 사이트 관리자2 2014.03.20 54698
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 98155
2099 XE2 -> XE10 으로 컴파일만 다시했는데...오류가 납니다. 파란하늘 2016.01.13 97
2098 구글 새 OS 안드로이드 N, 5월 공개대해.. 가을이다 2016.01.13 249
2097 (Delphi 10) UPX 압축 문제 [1] 김재욱 2016.01.14 384
2096 XE2에서 SFTP를 사용하려고합니다. 링쿠 2016.01.14 395
2095 Exception EFilerError in module rtl190.bpl at 000FF30F 에러가 납니다. 쭈니쿤 2016.01.15 364
2094 바코드 리더기로부터 오는 값을 입력받지 않게 하는 방법 문의요 [1] from5 2016.01.15 296
2093 DB에 이미지 등록 syc 2016.01.15 623
2092 FormatDateTime 함수 사용시. [3] 공감 2016.01.18 1114
2091 Device Manager에서 Device 추가시.... [1] 황규섭 2016.01.18 129
2090 fmx에서 다국어 지원하려면?? [3] file 라드 2016.01.18 265
2089 Delphi 2010 사용 중 갑자기 예약어에 밑줄이 생겼습니다. [1] file 델파이 2016.01.18 179
2088 Android App개발에서 Memo장 내용 File저장하기 [1] 아기사랑 2016.01.18 606
2087 XE8 (VCL)에서는 그림회전 [1] file barcode0 2016.01.18 339
2086 XE7 컴포넌트 문의 드립니다. sue 2016.01.18 168
2085 [ldandroid Error] 시애틀 안드로이드 빌드 에러. file RumAndCoke 2016.01.20 238
2084 Apps must follow the iOS Data Storage Guidelines or they will be rejected silkroad99 2016.01.20 241
2083 사용자 지정 텍스트 크기(DPI) 설정. [1] file 김재욱 2016.01.22 1481
2082 Access Violation at address 0040B508... 질문드립니다. ^^ [1] 쭈니쿤 2016.01.22 2912
2081 [Q]Delphi 5, 7의 Oracle 12c 지원 문의 [2] 지롱 2016.01.27 404
2080 RESTClient에서 POST가 안되요!!! [1] 카이로스 2016.01.27 1258