I have a program in Delphi 7 where I use the component GdPicture 9.2,however I did upgrade to the 9.4.0.14.
I use annotation in pdf or tif(image), however is showing error that I'm don't understand.
Can help me ?
the code:
Code: Select all
If oAnnotationManager.InitFromGdPicturePDF(oGdPicturePDF) = GdPictureStatus_OK Then
Begin
//Seleciono a primeira página
oGdPicturePDF.SelectPage(0);
//Crio o Texto
WTextoCarimbo := 'SCANNER ';
WTextoCarimbo := WTextoCarimbo + Completa_Zeros(IntToStr(DayOf(Date)),2)+'/'+Completa_Zeros(IntToStr(MonthOf(Date)),2)+'/'+IntToStr(YearOf(Date));
WTextoCarimbo := WTextoCarimbo + '-' + Completa_Zeros(IntToStr(HourOf(Now)),2) + ':' + Completa_Zeros(IntToStr(MinuteOf(Now)),2) + ':' + Completa_Zeros(IntToStr(SecondOf(Now)),2);
GdViewerCarimboAux.GetDisplayedAreaInches(LeftInches, TopInches, WidthInches, HeightInches);
annot := oAnnotationManager.AddStickyNoteAnnot(3,0.1,2,0.5,WTextoCarimbo);
oAnnotationManager.SetAnnotationPropertyValue(0, 'FillColor', oGdPicturePDF.SetFillColor_3(TransparentColorValue));
annot := oAnnotationManager.AddStickyNoteAnnot(WidthInches-2.7,HeightInches-0.55,2,0.5,WTextoCarimbo);
oAnnotationManager.SetAnnotationPropertyValue(1, 'FillColor', oGdPicturePDF.SetFillColor_3(TransparentColorValue));
oAnnotationManager.BurnAnnotationsToPage(True);
imageCount := oGdPicturePDF.GetPageImageCount;
If imageCount > 0 Then
Begin
For j := 0 To imageCount - 1 do
Begin
imageID := oGdPicturePDF.ExtractPageImage(j + 1);
If imageID <> 0 Then
Begin
oGdPictureImaging.ConvertTo1Bpp(imageID);
oGdPicturePDF.SetJpegQuality(30);
oGdPictureImaging.Scale(ImageID, 88, InterpolationMode_HighQualityBicubic);
imageResName := oGdPicturePDF.GetPageImageResName(j);
oGdPicturePDF.ReplaceImage_2(imageResName, imageID, False, True);
oGdPicturePDF.AddImageFromGdPictureImage(ImageID, False, False);
oGdPictureImaging.ReleaseGdPictureImage(ImageID);//ERROR HERE!!!!
End;
End;
End;
End;
GdViewerCarimboAux.CloseDocument;
WNovoNomeArquivo := Copy(ListaImagem.Items[i],1,Length(ListaImagem.Items[i])-4);
oGdPicturePDF.EnableCompression(true);
If oGdPicturePDF.SaveToFile_2(WDirImagemCaminho+WNovoNomeArquivo+'_Carimbada.pdf', True) = 0 Then
Begin
oGdPicturePDF.CloseDocument;
DeleteFile(WDirImagemCaminho+ListaImagem.Items[i]);
End;
End;
attachment error