The example below doesn't work either.
https://www.wpcubed.com/ftp/ex/WPViewPDF_BMP.zip
Here is the some code I find in the code of the component.
// This function is not available in the demo version!
function TWPViewPDF.PrintHDC(PageNO: Integer; DC: HDC; ResX, ResY: Integer): Boolean;
begin
// if GetDeviceCaps(DC, LOGPIXELSX)<> ResX then
CommandEx(COMPDF_PrintHDCSetXRes, ResX);
// if GetDeviceCaps(DC, LOGPIXELSY)<ResY>= 0;
end;
function TWPViewPDF.GetMetafile(PageNO: Integer): TMetafile;
var acanvas: TMetafileCanvas;
w, h: Integer;
begin
if (PageNO <0> PageCount) then
raise Exception.Create('Page not available')
else
begin
Result := TMetafile.Create();
w := Command(COMPDF_GetPageWidth);
h := Command(COMPDF_GetPageHeight);
Result.MMWidth := Round(w / 72 * 2540);
Result.MMHeight := Round(h / 72 * 2540);
Result.Width := Round(w / 96);
Result.Height := Round(h / 96);
acanvas := TMetafileCanvas.CreateWithComment(Result, 0,
'Created by WPViewPDF - http://www.wptools.de',
'PDF Metafile - Page ' + IntToStr(PageNo));
try
PrintHDC(PageNO, acanvas.Handle, 96, 96);
finally
acanvas.Free;
end;
end;
end;
Does it mean I need to get the updated version or new license? If yes, could you please tell me which version or licence can make it work? Thanks a lot.