새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 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 6033
공지 유용한 관련 사이트 관리자2 2014.03.20 43269
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 84877
2218 MDI Application 에서 TeeChart 를 자식폼에 넣으면 에러 발생하는 문제??? [6] sihwan 2018.03.23 59
2217 안드로이드를 선택할 경우 run이 비활성화 되었습니다 [2] 조르디 2018.03.21 50
2216 RadStudio tokyo 10.2.3 설치 후 TMapView Error [2] 제우스 2018.03.21 79
2215 안녕하세요 db그리드에서 한글이 물음표로 출력되는것에 대해 질문드리고 싶어요. [4] file vast 2018.03.19 65
2214 GotoBookmark(pointer(DBGrid2.SelectedRows.Items[i])) 에러... [1] 왕초보 2018.03.16 59
2213 XE 버전과 호환가능한 Windows 버전 알려주세요....ㅜㅜ [5] soo583 2018.03.19 52
2212 델파이xe 10.2 윈도우10 설치시 Editor창 문자열 한글 크기가 너무 작아집니다. [1] file 미스터몽키 2018.03.17 133
2211 [마이그레이션 세미나] 마이그레이션 시 발생했던 주요 이슈에 대한 다양한 사례를 좀 더 전달해 주시면 좋겠습니다. [1] 험프리 2015.11.24 111
2210 [마이그레이션 세미나] 마이그레이션 대체 무엇인가 험프리 2018.03.16 21
2209 [마이그레이션 세미나] V3에서 BDE충돌이 많아서 BDE말고 다른 방법으로 변경하고 싶습니다. 험프리 2018.03.16 28
2208 [마이그레이션 세미나] 파이어 몽키 버전으로 마이그레이션 시 고려해야될 사항들이 궁금합니다. 험프리 2018.03.16 15
2207 델파이 빌드 에러 [2] 웅재 2018.03.15 47
2206 datasnap 구현 미들웨어 세션 물고 있는 현상 [1] 생각 2018.03.15 52
2205 Android Target에서 외부 database 2티어 접속 [1] 허준영 2018.03.15 52
2204 Raize BizComps 관련 문의 사항 [1] 김정명 2018.03.13 29
» 이미지 StretchDraw문 사용시 글자 깨져 다른 방법 좀 알려주세요? [1] 루카 2018.03.13 24
2202 XE7 OpenCV 이용시 질문 [1] judvika 2018.03.09 59
2201 Tokyo 10.2.2에서 안드로이드용 실행문제 [2] 스카이 2018.01.26 147
2200 10.2 tokyo JDK 문제 팁입니다.[질문아님] 제이트 2018.03.08 53
2199 divide by zero를 try catch 하는법 한시민 2018.03.08 56



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