arkia
دوشنبه 04 اسفند 1393, 02:57 صبح
سلام.
من با کامپاننت PDFtoolkit شرکت gnostice برای فایل های PDF واترمارک (یا استمپ) میزارم و مشکل من اینه که نمونه کدی که خود شرکت گذاشته از فایل BMP استفاده می کنه. اما حجم فایل رو خیلی میبره بالا من میخوام JPG یا PNG بندازم روی فایل PDF.
توی این لینک (http://doc.evget.com/HelpDocument/PDFtoolkitVCLDocumentationCHM/gtCstPDFDoc_TgtImageWatermarkTemplate_ImageFormat. html) خاصیت ImageFormat رو گفته حتی توی دلفی هم به صورت AutoComplete میاره اما وقتی میخوام تنظیمش کنم روی OfJPG هنگام کامپایل خطا میده
کد من:
watermark.ImageFormat:=ofJPEG;
اما خطا میده...
کد خطا:
this is error of compile: [DCC Error] Unit1.pas(186): E2003 Undeclared identifier: 'ofJPEG' [DCC Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas' Failed Elapsed time: 00:00:01.5
مثال خود کامپاننت:
var
Watermark: TgtImageWatermarkTemplate;
Bitmap: TBitmap;
begin
// Load image into bitmap
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('BitmapFile.bmp');
// Create and set watermark properties
Watermark := TgtImageWatermarkTemplate.Create;
With Watermark do
begin
Image := Bitmap;
Overlay := True;
HorizPos := hpCenter;
VertPos := vpMiddle;
end;
// Insert the watermark (assuming that gtPDFDocument1 is already loaded.)
gtPDFDocument1.InsertWatermark(Watermark);
FreeAndNil(Bitmap);
FreeAndNil(Watermark); end;
من با کامپاننت PDFtoolkit شرکت gnostice برای فایل های PDF واترمارک (یا استمپ) میزارم و مشکل من اینه که نمونه کدی که خود شرکت گذاشته از فایل BMP استفاده می کنه. اما حجم فایل رو خیلی میبره بالا من میخوام JPG یا PNG بندازم روی فایل PDF.
توی این لینک (http://doc.evget.com/HelpDocument/PDFtoolkitVCLDocumentationCHM/gtCstPDFDoc_TgtImageWatermarkTemplate_ImageFormat. html) خاصیت ImageFormat رو گفته حتی توی دلفی هم به صورت AutoComplete میاره اما وقتی میخوام تنظیمش کنم روی OfJPG هنگام کامپایل خطا میده
کد من:
watermark.ImageFormat:=ofJPEG;
اما خطا میده...
کد خطا:
this is error of compile: [DCC Error] Unit1.pas(186): E2003 Undeclared identifier: 'ofJPEG' [DCC Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas' Failed Elapsed time: 00:00:01.5
مثال خود کامپاننت:
var
Watermark: TgtImageWatermarkTemplate;
Bitmap: TBitmap;
begin
// Load image into bitmap
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('BitmapFile.bmp');
// Create and set watermark properties
Watermark := TgtImageWatermarkTemplate.Create;
With Watermark do
begin
Image := Bitmap;
Overlay := True;
HorizPos := hpCenter;
VertPos := vpMiddle;
end;
// Insert the watermark (assuming that gtPDFDocument1 is already loaded.)
gtPDFDocument1.InsertWatermark(Watermark);
FreeAndNil(Bitmap);
FreeAndNil(Watermark); end;