WPPDFR1 Delphi 7

1. offizieller Beitrag

    Hi Julian,

    i use Delphi 7 and wpdf 3 Vesion 3.30 (12.11.2008)

    in WPPDFR1 in line 1424:

    Code
    {$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:


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

    Thanks,
    Patrick[/b]