jpg 파일을 어떻게 읽으쎴는지 ..
picture로 읽으셨나요..아님 TjpegImage로  읽으셨나요...
말그대로 PixelFormat를 변화 시키는 방법이 있습니다.
몇비트로 되어있는지를 체크해서 똑같이 맞추는거죠..
그리구 jpg는 압축률 조정같은 것두 할수 있을거구여..
아마도 압축을 안하면...더 선명하게 보일 듯..
어떤 상태인지 잘몰라 두서 없이 말씀 드렸습니다.





***** 운영자님에 의해서 게시물 이동 + 카테고리유지되었습니다 (2004-10-20 02:20)

우선 답변주셔서 감사합니다.

일단 Select를 해서 사진을 가져온다음 아래와 같이 작업을 했습니다.
선언문에 이렇게 되어있습니다.
    FileStream : TFileStream;
    jBmp,sBmp  : TBitmap;
    kJpg       : TJpegImage;
    sFileName  : String

_JPGPHOTO는 그냥 디렉토리명에다가 임의의 이름으로 JPG를 한것이고
_BMPPHOTO는 BMP로 이름을 준것입니다.(String 변수입니다.)
JPG와 BMP를 반복한건 그러면 해상도가 좀 더 낳아진다는 말을 들어서여..

         FileStream  := TFileStream.Create(_JPGPHOTO, fmCreate); //이미지 사진 작업

         try
            TBlobField(Query1.FieldByName('PHOTO')).SaveToStream(FileStream);
         finally
            FileStream.Free;
         end;


         kJpg := TJpegImage.Create;
         kJpg.LoadFromFile(_JPGPHOTO);


         jBmp := TBitmap.Create;  // jpg 를 bmp
         jBmp.Assign(kJpg);
         if FileExists(_BMPPHOTO) then DeleteFile(_BMPPHOTO);
         jBmp.SaveToFile(_BMPPHOTO);
         jBmp.Free;

{         try
            Image1.Picture.LoadFromFile(_BMPPHOTO);
            Image1.Picture.Assign(jBmp);
            Image1.Picture.SaveToFile(_BMPPHOTO);
         except
            Image1.Picture.Assign(nil);
         end;}

         jBmp := TBitmap.Create;
         jBmp.LoadFromFile(_BMPPHOTO);

/*아래 작업은 조회하는 프로그램의 TImage의 크기가 Autosize로 되어있는데
  델파이에서의 프로그램에서 조회해보면 사진이 크게나와서 얼굴이 퍼져
  보여서 크기를 좀 줄였습니다.
  TImage의 크기는 크게 고정되어 있거든요..

         sBmp := TBitmap.Create;
         sBmp.Width  := Round(jBmp.Width*0.7);
         sBmp.Height := Round(jBmp.Height*0.8);
         // Delete the lines need to shrink
         SetStretchBltMode(sBmp.Canvas.Handle, STRETCH_DELETESCANS);
         // Bmp Shrink

         sBmp.Canvas.CopyRect(Rect(0, 0, Round(jBmp.Width*0.7), Round(jBmp.Height*0.8)),
                              jBmp.Canvas,
                              Rect(0, 0, jBmp.Width, jBmp.Height));
         // Save Bmp to Jpg
         if FileExists(_BMPPHOTO) then DeleteFile(_BMPPHOTO);
         sBmp.SaveToFile(_BMPPHOTO);

         kjpg.Free;
         jBmp.Free;
         sBmp.Free;


         sBmp := TBitmap.Create;
         sBmp.LoadFromFile(_BMPPHOTO);

         if FileExists(_JPGPHOTO) then
            DeleteFile(_JPGPHOTO);

         kJpg := TJpegImage.Create;  //bmp를 jpg로
         kJpg.Assign(sBmp);
         kJpg.SaveToFile(_JPGPHOTO);

         sBmp.Free;
         kjpg.Free;

         sFileName := _JPGPHOTO;

이 뒤에 INSERT 문을 써서 바로 저장합니다.

좋은 방법이 있으면 좀 가르쳐주십시오!




***** 운영자님에 의해서 게시물 이동 + 카테고리유지되었습니다 (2004-10-20 02:20)

bmp,jpeg 를 반복하는 것은 해상도에 전혀 도움이 돼지않습니다.
오히려 스트래치 하거나 bmp변환시 해상도가 맞지 않아서
더 안좋게 나올수도 있습니다.제가 이미지프로세싱이 전공이라
믿으셔두 됩니다.(옛날 나노시스 그래픽강좌 있었죠 제가 만든거에여^^)
음 일단은 jpg옵션들을 살펴 봐야 할것 같습니다.
이미지를 줄인다던지 키우면 이미지가 역시 망가 질수 있구여.

type TJPEGPixelFormat = (jf24Bit, jf8Bit);
property PixelFormat: TJPEGPixelFormat;

property Smoothing: Boolean;

type TJPEGPerformance = (jpBestQuality, jpBestSpeed);
property Performance: TJPEGPerformance;

type TJPEGQualityRange = 1..100;
property CompressionQuality: TJPEGQualityRange

등을 조절하셔야 할것 같습니다.
가장 먼저 포맷
다음은 QualityRange
Smoothing 다음
퍼포먼스..
등을 순서대로 한번 해보세여...
그럼^^





***** 운영자님에 의해서 게시물 이동 + 카테고리유지되었습니다 (2004-10-20 02:20)