새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 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;

 

 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2018.8~2018.11 관리자 2015.01.22 6031
공지 유용한 관련 사이트 관리자2 2014.03.20 43268
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 84876
2358 rad studio xe2 설치 프로그램 실행시 설치프로그램 강제 종료 secret 마구 2013.04.30 0
2357 델파이 프로그래밍언어 책 구입했는데요 [1] secret 나본좌 2012.04.10 1
2356 html5 buider 문의 드립니다. secret 2012.12.14 1
2355 paserver오류 [1] secret 최종호 2013.05.02 1
2354 DB 관련 질문 입니다! [1] secret 탄돌이 2013.06.17 1
2353 JVL이라는 라이브러리 관련에러 [1] secret 관리자 2015.02.25 1
2352 제품관련 질문입니다. [1] secret 우와 2014.07.17 2
2351 책 19쪽에 맨처음 하는 예제에서요 secret 나본좌 2012.04.11 2
2350 DB Query 문의 드립니다. [1] secret memc 2012.05.16 2
2349 Component들이 보이지 않습니다. secret 변보언 2013.01.22 2
2348 기본 bpl (rtl160.bpl등) 배포시 jdbg파일도 같이 배포해야 하나요? [1] secret 한림대의료원정보기술센터 2013.06.11 2
2347 string.format 함수의 한글 자리수 문제 secret kidb 2014.03.04 2
2346 비콘 안드로이스 샘플소스로 실행했는데 안됩니다. [2] secret kim 2015.12.04 2
2345 비콘신호 수신간격 조정을 어디서 해야하나요? [2] secret kim 2015.12.04 2
2344 Socket 에러 secret dreamingguy 2012.08.17 3
2343 MessageDlg 관련 질문입니다. [1] secret 신산 2013.06.20 3
2342 [한미반도체] 64BIT PACKGE관련문의 secret 키루루 2014.08.20 3
2341 위험감지앱이 감지를 했을때만 화면표시를 할 수 있나요? [2] secret kim 2015.12.02 3
2340 ChannelManager을 이용한 콜백 문의 secret lespaul06 2015.02.04 3
2339 base64인코딩 관련 [1] secret from5 2014.12.30 3



광고 모듈이 설치되어 있지 않아 실행을 중단합니다..