代码示例

var
  MemStream: TMemoryStream;
begin
  MemStream := TMemoryStream.Create;
  try
    HPDF.OutputStream := MemStream;           // Set output to memory stream
    HPDF.BeginDoc;
    HPDF.CurrentPage.TextOut( 100, 100, 'PDF content in memory' );
    HPDF.EndDoc;

    // Now MemStream contains the PDF data
    MemStream.SaveToFile( 'output.pdf' );    // Save stream to file
  finally
    MemStream.Free;
  end;
end;