PDFtk: Formularfelder füllen

[punktl]

Moin,

ich nutze dafür PDFtk 2.02 (von 2014) und da funktioniert das wunderbar.
In Deinem Fall scheint, wie schon vermutet, das Encoding falsch zu sein.
Ich hatte mir damals eine Klasse zum Erzeugen der fdf-Datei geschrieben.

Code:

unit classPDFData;

interface

uses
  Classes,
  SysUtils,
  StdCtrls;

type
  TPDFData = class
    constructor Create();
  private
    sl: TStringList;
    fFileName: string;
  protected
    procedure WriteHeader;
    procedure WriteFooter;
  public
    property FileName: string read fFileName write fFileName;
    procedure AddField(FieldName: string; FieldValue: string);
    function SaveFile(): Boolean;
  end;

implementation

{ TPDFData }

procedure TPDFData.AddField(FieldName, FieldValue: string);
begin
  sl.Add('<</T(' + FieldName + ')/V(' + FieldValue + ')>>');
end;

constructor TPDFData.Create();
begin
  fFileName := '';
  sl := TStringList.Create;
  WriteHeader;
end;

function TPDFData.SaveFile: Boolean;
begin
  Result := False;
  if fFileName > '' then
  begin
    WriteFooter;
    try
      if FileExists(fFileName) then
        DeleteFile(fFileName);
      sl.SaveToFile(fFileName);
      Result := True;
    finally
      sl.Clear;
    end;
  end;
end;

procedure TPDFData.WriteFooter;
begin
  sl.Add(']');
  sl.Add('>>');
  sl.Add('>>');
  sl.Add('endobj');
  sl.Add('trailer');
  sl.Add('<</Root 1 0 R>>');
  sl.Add('%%EOF');
end;

procedure TPDFData.WriteHeader;
begin
  sl.Add('%FDF-1.2');
  sl.Add('1 0 obj');
  sl.Add('<</FDF<</Fields[');
end;

end.

Vielleicht hilft es Dir.

Peter