Metafile to PDF

tushar,

procedure TfrmMainForm.prCreatePDFByQuickPDF(pMFList: TList);

var
  QP: TDebenuPDFLibrary0916;
  ret, page: Integer;
begin
  QP := TDebenuPDFLibrary0916.Create;
  ret := QP.UnlockKey(‘<insert your key here>’);
  if (ret <> 1) then
  begin
    ShowMessage(‘QPL DLL not loaded’);
    Exit;
  end;

  page := 1; 

Unfortunately suggestions given by Andrew is not working. Using QP.UnlockKey doesn’t help. I quit agree with HNR software about the use of ImportEMF functionality. I also feel that " I figured out that "adding" an emf, or any image, doesn't actually do anything useful "

 

Also code sample given by Andrew uses Canvas Handle of QP component. It might result in different output. When creating metafile canvas we are using Printer handle. This may get different result and to make compatible with QP component there will be big efforts in existing code.

Here is a simpler, somewhat relevant, piece of code that worked for me.  I really don't know or use emf files, so I just searched windows and found an emf file to see what happens.  This produced a pdf file with what would appear to be the proper emf drawn into a 2"x2" block, which is what I would expect from the help file.

Note - TQuickPDF is my intercepted/extended usage of the TQuickPDF class, so Create does some additional setup.  You reference "dll not loaded" -- my arrangement doesn't use the dll.  I'm assuming you have some QuickPDF code somewhere that does do something correctly - a "Hello World" class of pdf file creation.  I try to make it a point of starting with something that does something simple correctly before trying the fancy stuff. 


Function  EMFTest(EMFfname : string) : string;
var QP    : TQuickPDF;
    pdffn : string;
    err   : Integer;
    lMF   : TMetafile;
    lCount: Integer;
    st: TMemoryStream;
     begin
     pdffn := 'EMFTest.pdf';
     QP := TQuickPDF.Create('');
     try
        if (QP.UnlockKey(QPDF_LicenseKey) <> 1) then logit('QuickPDF license key problem ['+QPDF_LicenseKey+']');
        QP.SetOrigin(1);                                // TOP LEFT - default is 0=BOTTOM LEFT
        QP.SetMeasurementUnits(2);            //2=Inches
        if FileExists(EMFfname) then
             begin
             lMF := TMetaFile.Create;
             try
                lMF.LoadFromFile(EMFfname);
                st := TMemoryStream.Create;
                lMF.SaveToStream(st);
                st.Position := 0;
                QP.ImportEMFFromStream(st, 1, 1);
                QP.DrawImage(1.00,1.00,2.00,2.00);  //draws on currently selected page
             finally
                st.Free;
                lMF.Free;
                end; // of try
             end;
        QP.SaveToFile(pdffn);
     finally
        result := 'EMFTest ['+pdffn+']  '+fileinfostr(pdffn);
        QP.Free;
        end;  // of try
     end;