아래의 과정을 거치는 것 외에 특별한 것은 없음..
클립보드 이미지 데이터 -> 비트맵 -> JPEG
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;
반응형
'Delphi, RadStudio' 카테고리의 다른 글
[개발/delphi] 비밀번호 생성기 Mac address 암호화 (0) | 2015.11.12 |
---|---|
[개발/delphi] 암호화 DLL 생성과 테스트 (0) | 2015.11.12 |
[개발/델파이] Delphi7에서 Animated GIF 사용하기 (0) | 2015.08.25 |
[개발/델파이] delphi TPanel or TForm 을 투명하게 (0) | 2015.07.03 |
[개발/delphi] 델파이 TList의 활용 (0) | 2015.07.03 |
댓글