[Delphi] 클립보드 이미지 데이터를 JPEG로 저장하기

아래의 과정을 거치는 것 외에 특별한 것은 없음..
클립보드 이미지 데이터 -> 비트맵 -> JPEG

회사 PC가 병신인건지,
클립보드 이미지가 좀 크다 싶으면 SaveToFile 할 때 '저장소 공간이 부족합니다.' 예외가 자꾸 난다.
우리집 내 PC는 안 그런데.


uses 에 Jpeg, ClipBrd 추가해야 함.

procedure SaveClipBoardPicture(ImgPath: String);
var
  Btm: TBitmap;
  Jpg: TJpegImage;

begin  
  Btm:=TBitmap.Create;
  Jpg:=TJpegImage.Create;
  try
      // 1. 클립보드 -> 비트맵
      Btm.Assign(ClipBoard);
      // 2. 비트맵 -> JPEG
      Jpg.Assign(Btm);

      // 압축퀄리티 설정
      Jpg.CompressionQuality:=50;
      // 파일로 저장
      Jpg.SaveToFile(ImgPath);
  finally
    FreeAndNil(Jpg);
    FreeAndNil(Btm);
  end;
end;