program GeneratingInMemory;

{$APPTYPE CONSOLE}

uses

SysUtils, Graphics, Classes, HPDFDoc;

var

HPDF: THotPDF;

MemStream: TMemoryStream;

OutputStream: TFileStream;

begin

HPDF:= THotPDF.Create(nil);

  try

MemStream := TMemoryStream.Create; // Opret hukommelsesstrøm

      try

HPDF.OutputStream := MemStream; // Indstil outputstrøm

HPDF.Compression := cmFlateDecode; // Indstil flate-komprimering

HPDF.BeginDoc; // Start PDF-generering

HPDF.CurrentPage.TextOut(10, 10, 0, 'Hello World!'); // Skriv tekst på siden

HPDF.EndDoc; // Færdiggør PDF'en i hukommelsen

MemStream.Position := 0; // Spol tilbage før kopiering til en filstrøm

OutputStream := TFileStream.Create( 'Memory.pdf', fmCreate ) ; // Opret output-filstrøm

          try

OutputStream.CopyFrom( MemStream, MemStream.Size ); // Kopier den genererede PDF fra hukommelsen

          finally

OutputStream.Free; // Luk output-filstrøm

          end;

      finally

MemStream.Free; // Frigør hukommelsesstrømmen

      end;

  finally

HPDF.Free;

  end;

end