Do you own a Debenu Quick PDF Library version 7, 8, 9, 10, 11, 12, 13 or iSEDQuickPDF license? Upgrade to Debenu Quick PDF Library 14 today!
What is the return code of replaceimage function? |
Post Reply |
Author | |
kk aw
Team Player Joined: 02 Feb 10 Location: Malaysia Status: Offline Points: 36 |
Post Options
Thanks(0)
Posted: 21 Jan 14 at 6:04PM |
What is the return code of the replaceimage function? It is not stated in the documentation.
|
|
Rowan
Moderator Group Joined: 10 Jan 09 Status: Offline Points: 398 |
Post Options
Thanks(0)
|
If the return code is not stated in the documentation then it can be presumed to be zero (0) for failure and one (1) for success.
|
|
kk aw
Team Player Joined: 02 Feb 10 Location: Malaysia Status: Offline Points: 36 |
Post Options
Thanks(0)
|
Thanks Rowan.
My development code for converting embedded images in bmp format to jpg, gif or png is given below. The image replacement function is always returning 0. Any ideas what I have missed? I am using version 9.16 of the QuickPDF library. I use the Imagelib TMultiImage component for the conversion. The images saved to file are correct. procedure TMainform.ConvertImage1Click(Sender: TObject); var i,j,n: Integer; ImgID, nImgID: Integer; ImgCount: Integer; ImgName1, ImgName2: string; ImgType: Integer; ImgConverted: Integer; FPrivdir: string; FileExt: string; FFileName: string; retval: Integer; begin Screen.Cursor := crHourGlass; FPrivdir:= sm.slashAdd(LmdSysInfo1.TempPath); FileExt:= sm.locase(ElcomboBox1.Text); ImgConverted:= 0; try ImgCount := Qp.FindImages; j:= ImgCount; imgId := QP.GetImageID(j); while j > 0 do begin qp.SelectImage(ImgID); ImgType := Qp.ImageType; if ImgType = 2 then begin ImgName1 := FPrivdir + 'PdfImage.bmp'; ImgName2 := FPrivdir + Format('PdfImage.%s',[FileExt]); MultiImage1.ImageName:= ''; QP.SaveImageToFile(Imgname1); MultiImage1.ImageName:= Imgname1; If sm.EqualIC(FileExt,'jpg') then MultiImage1.SaveAsJpg(ImgName2) else if sm.EqualIC(FileExt,'gif') then MultiImage1.SaveAsGIF(Imgname2) else if sm.EqualIC(FileExt,'png') then MultiImage1.SaveAsPNG(Imgname2); nImgID:= qp.AddImageFromFile(ImgName2,0); retval:= qp.ReplaceImage(ImgID, nImgID); If retval = 0 then ShowMessage('Image not replaced'); retval:= qp.ClearImage(ImgID); If retval = 0 then ShowMessage('Image not cleared'); Inc(ImgConverted); end; Dec(j); imgId := QP.GetImageID(j); end; Screen.Cursor := crDefault; If ImgConverted > 0 then begin ShowMessage(Format('%d Embedded images successfully converted',[ImgConverted])); FFileName:= FSelectedFile; n:= sm.posIC('.pdf', FFileName); System.Insert('[IC]',FFileName, n); Qp.SaveToFile(FFileName); end else ShowMessage('No image to convert'); finally Screen.Cursor := crDefault; end; end; |
|
jpbro
Senior Member Joined: 29 Mar 11 Status: Offline Points: 77 |
Post Options
Thanks(0)
|
I have the same problem with QPDF 10.16 - ReplaceImage is always returning 0. Did you ever find a solution for this?
|
|
Post Reply | |
Tweet
|
Forum Jump | Forum Permissions You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |
Copyright © 2017 Debenu. Debenu Quick PDF Library is a PDF SDK. All rights reserved. About — Contact — Blog — Support — Online Store