WPCubed Product Support

WPPDFR1 Delphi 7

wPDF / wPDFControl
support
support

Hi,

This change is correct, thanks - it has found its way in the official setup in the meantime.

Julian

#2 ♥ 0
5.7k Views 2 users read 3 min
PatBeck

Hi Julian,

i use Delphi 7 and wpdf 3 Vesion 3.30 (12.11.200😎

in WPPDFR1 in line 1424:

{$IFDEF UNICHAR}    if not wchars or FInfo.FIsUTF8  then    begin         WPPDF_SetSProp(pdf_env, WPPDF_Author, PAnsiChar(FInfo.FAuthor));         WPPDF_SetSProp(pdf_env, WPPDF_Producer, PAnsiChar(FInfo.FProducer));         WPPDF_SetSProp(pdf_env, WPPDF_Title, PAnsiChar(FInfo.FTitle));         WPPDF_SetSProp(pdf_env, WPPDF_Subject, PAnsiChar(FInfo.FSubject));         WPPDF_SetSProp(pdf_env, WPPDF_Keywords, PAnsiChar(FInfo.FKeywords));         WPPDF_SetSProp(pdf_env, WPPDF_ExcludedFonts, PAnsiChar(FExcludedFonts.CommaText));         WPPDF_SetSProp(pdf_env, WPPDF_InputFile, PAnsiChar(FInputFile));         if FInfo.FAdditionalStrings.Count > 0 then           WPPDF_SetSProp(pdf_env, WPPDF_OtherInfoTexts, PAnsiChar(FInfo.FAdditionalStrings.Text));    end;    else     {$ENDIF}    begin         WPPDF_SetSPropW(pdf_env, WPPDF_Author, PWideChar(FInfo.FAuthor));   ----------------------------------------------------> AV here         WPPDF_SetSPropW(pdf_env, WPPDF_Producer, PWideChar(FInfo.FProducer));         WPPDF_SetSPropW(pdf_env, WPPDF_Title, PWideChar(FInfo.FTitle));         WPPDF_SetSPropW(pdf_env, WPPDF_Subject, PWideChar(FInfo.FSubject));         WPPDF_SetSPropW(pdf_env, WPPDF_Keywords, PWideChar(FInfo.FKeywords));         WPPDF_SetSPropW(pdf_env, WPPDF_ExcludedFonts, PWideChar(FExcludedFonts.CommaText));         WPPDF_SetSPropW(pdf_env, WPPDF_InputFile, PWideChar(FInputFile));         if FInfo.FAdditionalStrings.Count > 0 then           WPPDF_SetSPropW(pdf_env, WPPDF_OtherInfoTexts, PWideChar(FInfo.FAdditionalStrings.Text));    end;

I think, you must change the code between the two begin /end the other way round, like this:

{$IFDEF UNICHAR}
    if not wchars or FInfo.FIsUTF8  then
    begin
         WPPDF_SetSPropW(pdf_env, WPPDF_Author, PWideChar(FInfo.FAuthor));  -> AV here
         WPPDF_SetSPropW(pdf_env, WPPDF_Producer, PWideChar(FInfo.FProducer));
         WPPDF_SetSPropW(pdf_env, WPPDF_Title, PWideChar(FInfo.FTitle));
         WPPDF_SetSPropW(pdf_env, WPPDF_Subject, PWideChar(FInfo.FSubject));
         WPPDF_SetSPropW(pdf_env, WPPDF_Keywords, PWideChar(FInfo.FKeywords));
         WPPDF_SetSPropW(pdf_env, WPPDF_ExcludedFonts, PWideChar(FExcludedFonts.CommaText));
         WPPDF_SetSPropW(pdf_env, WPPDF_InputFile, PWideChar(FInputFile));
         if FInfo.FAdditionalStrings.Count > 0 then
           WPPDF_SetSPropW(pdf_env, WPPDF_OtherInfoTexts, PWideChar(FInfo.FAdditionalStrings.Text));
    end;
    else
     {$ENDIF}
    begin
         WPPDF_SetSProp(pdf_env, WPPDF_Author, PAnsiChar(FInfo.FAuthor));
         WPPDF_SetSProp(pdf_env, WPPDF_Producer, PAnsiChar(FInfo.FProducer));
         WPPDF_SetSProp(pdf_env, WPPDF_Title, PAnsiChar(FInfo.FTitle));
         WPPDF_SetSProp(pdf_env, WPPDF_Subject, PAnsiChar(FInfo.FSubject));

         WPPDF_SetSProp(pdf_env, WPPDF_Keywords, PAnsiChar(FInfo.FKeywords));
         WPPDF_SetSProp(pdf_env, WPPDF_ExcludedFonts, PAnsiChar(FExcludedFonts.CommaText));
         WPPDF_SetSProp(pdf_env, WPPDF_InputFile, PAnsiChar(FInputFile));
         if FInfo.FAdditionalStrings.Count > 0 then
           WPPDF_SetSProp(pdf_env, WPPDF_OtherInfoTexts, PAnsiChar(FInfo.FAdditionalStrings.Text));
    end;

Now it is possible for me to create PDF's again...

Thanks,
Patrick[/b]

#1 ♥ 0