Tiff format for exportdocument

[miromr]

Hi
is possible change tiff format for CoPDFXCview1.ExportDocument function?

Miro

[Stefan - PDF-XChange]

Hello Miro,

Please have a look at the Viewer AX Manaual sections
2.2.2.5 Export - and this will lead you to

2.2.3.20 Export Modes and
2.2.2.5.1 Image

Best,
Stefan

[miromr]

Hi Stefan,
my problem is in PDFXChangeViewerActiveX. project delphi 2007.
If I use a call PDFX.ExportDocument(iActiveDocID, 0) I get as a result aaa.tif file (NO click on Show Export Dialog... button).
If I use a call PDFX.ExportDocument(iActiveDocID, PXCVA_NoUI) I get as a result bbb.tif file.


Compress alghoritm aaa.tif and bbb.tif is different.

Miro

[miromr]

Sorry, no click on Tiff Options button in UI export dialog.

[Stefan - PDF-XChange]

Hello miromir,

After checking this with one of our lead developers I am afraid that there is currently no way to control the TIFF export options when using the viewer in no UI mode, so I made a ticket:
#1123: Viewer AX SDK: Possibility to set different TIFF compression options without UI (when PXCVA_NoUI flag is set)
So that we can address this in the appropriate time.

We will keep you updated directly here in this topic with any news on the subject as they become available.

Best,
Stefan

[miromr]

thank you very much
Miro

[Paul - PDF-XChange]

[Vasyl - PDF-XChange]

Hi,

Hi, Miro.

If I use a call PDFX.ExportDocument(iActiveDocID, 0) I get as a result aaa.tif file (NO click on Show Export Dialog... button).
If I use a call PDFX.ExportDocument(iActiveDocID, PXCVA_NoUI) I get as a result bbb.tif file.
Compress alghoritm aaa.tif and bbb.tif is different.

I tried to reproduce your problem but couldn't. In both cases the two resulting files are identical for me: the same size in bytes, the same compression method, etc, all properties are the same.

Please check again, if you still have a problem - please send us the example pdf and simple program source code for reproducing the problem with all license info removed.

Best
Regards.

[miromr]

Hi Vasyl
D2007, Win7

Open doc
PDFX.SetDevInfo();
Try
if iActiveDocID > -1 then
PDFX.CloseAllDocuments(0);
PDFX.OpenDocument(FileName,'', iActiveDocID, 0);
PDFX.SetProperty('Tools.Active', 'Select', 0);
// PDFX.SetProperty('General.DenyAllContextMenus', 1, 0);
// PDFX.SetProperty('Notifications.Mouse.Filter', 'All', 0);
vDataIn := 1;
PDFX.SetProperty('View.Bars["RotateView"].Visible', vDataIn, 0);
vDataIn := 1;
PDFX.SetProperty('View.Bars["Standard"].Visible', vDataIn, 0);
vDataIn := 1;
PDFX.SetProperty('View.Bars["Zoom"].Visible', vDataIn, 0);
vDataIn := 1;
PDFX.SetProperty('Documents[#'+IntToStr(iActiveDocID)+'].View.Bars["PagesNavigation"].Visible', vDataIn, 0);
vDataIn:=$0409;
if DM.siLangDispatcher1.Language = 'HU' then
vDataIn:=$040e;
if DM.siLangDispatcher1.Language = 'SK' then
vDataIn:=$041b;
if DM.siLangDispatcher1.Language = 'CZ' then
vDataIn:=$0405;
if DM.siLangDispatcher1.Language = 'DE' then
vDataIn:=$0407;
PDFX.SetProperty('International.LocaleID', vDataIn, 0);
Finally

End;

Export:
procedure TFREditInPost.SpeedButton18Click(Sender: TObject);
Var
bsVerb,vDataIn,S:string;
pColor: Longword;
vDataOut: OleVariant;
begin
if iActiveDocID < 0 then
exit;
TifName:=ComboBox1.Text;
TifName:=ChangeFileExt(TifName,'.tif');
TifName:=GetTempFile('.tif');
try
bsVerb := 'Export.Image.RangeType';
vDataIn := 'All';
PDFX.SetProperty(bsVerb, vDataIn, 0);
except
end;
try
bsVerb := 'Export.Image.Resolution';
vDataIn := '300';
PDFX.SetProperty(bsVerb, vDataIn, 0);
except
end;

try
bsVerb := 'Export.Image.RangeReverse';
vDataIn := '0';
PDFX.SetProperty(bsVerb, vDataIn, 0);
except
end;

try
bsVerb := 'Export.Image.Type';
vDataIn := 'TIFF';
PDFX.SetProperty(bsVerb, vDataIn, 0);
except
end;

try
bsVerb := 'Export.Image.Mode';
vDataIn := 'AllToOneMultiImage';
PDFX.SetProperty(bsVerb, vDataIn, 0);
except
end;

S:=ExtractFileDir(TifName);
try
bsVerb := 'Export.Image.FolderName';
vDataIn := S;
PDFX.SetProperty(bsVerb, vDataIn, 0);
except

end;

try
bsVerb := 'Export.Image.FileName';
vDataIn := Tifname;
PDFX.SetProperty(bsVerb, vDataIn, 0);
except
end;

try
bsVerb := 'Export.Image.RangeText';
vDataIn := '';
PDFX.SetProperty(bsVerb, vDataIn, 0);
except
end;
try
bsVerb := 'Export.Image.Background';
vDataOut := 0;
PDFX.GetProperty(bsVerb, vDataOut, 0);
finally
pColor := vDataOut;
pColor := pColor or $FF000000;
PDFX.SetProperty(bsVerb, pColor, 0);
end;
try
PDFX.ExportDocument(iActiveDocID, PXCVA_NoUI);
// PDFX.ExportDocument(iActiveDocID, 0);
except
on ex : EOleException do
ShowErrorMessage(ex.ErrorCode);
end;
if FileExists(TifName) then
Begin
AdvOfficePager2.ActivePage:=AdvOfficePage2;
Application.ProcessMessages;
ImageName:=TifName;
// OpenImageOnePage;
OpenImage;
End;
end;

Miro

doc.pdf

[miromr]

Tiff files

[Stefan - PDF-XChange]

Thanks for the files Miromir,

Posted a notification that you have provided them in the ticket for this case.

Best,
Stefan

[Stefan - PDF-XChange]

Hi miromr,

This case is now resolved. The fixed build 198 will be available later today.

Best,
Stefan

[miromr]

Thank you very much Stefan

[John - Tracker Supp]