기존의 인터넷에 올라와있는 bmp2pdf 유닛을 수정해서
비트맵파일이 여러개 일때 이미지 손실없이 pdf 파일 하나에 구겨넣을수있도록 했습니다.
delphi 7 에서 테스트 되었습니다.
[사용방법]
uses BMP2PDF;
var
bmp,bmp2 : TBitmap;
il : TStringList;
begin
il := TStringList.Create;
il.Add('d:\1.bmp');
il.Add('d:\2.bmp');
il.Add('d:\test.bmp');
BMPFilesToPDF(il, 'd:\5555.pdf');
il.Free;
end;
BMP2PDF.pas 파일이 없어서 추가했습니다.-2016.10.28
|