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:
Code
{$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;
Alles anzeigen
Now it is possible for me to create PDF's again...
Thanks,
Patrick[/b]