generatinginmemory.dpr

来自「生成PDF文档的控件」· DPR 代码 · 共 47 行

{*******************************************************}
{                                                       }
{       This unit is part of the VISPDF VCL library.    }
{       Written by R.Husske - ALL RIGHTS RESERVED.      }
{                                                       }
{       Copyright (C) 2000-2008, www.vispdf.com         }
{                                                       }
{       e-mail: [e-mail]                      }
{       http://www.vispdf.com                           }
{                                                       }
{*******************************************************}

program GeneratingInMemory;
{$APPTYPE CONSOLE}
uses
  SysUtils, Graphics, Classes, VPDFDoc;

var
    VPDF: TVPDF;
    MemStream: TMemoryStream;
    OutputStream: TFileStream;
begin
    VPDF:= TVPDF.Create(nil);
    try
        MemStream := TMemoryStream.Create;            // Create memory stream
        try
            VPDF.OutputStream := MemStream;           // Set output stream
            VPDF.Compression := cmFlateDecode;        // Set flate compression

            VPDF.BeginDoc;                                          // Create PDF file
            VPDF.CurrentPage.TextOut(10, 10, 0, 'Hello world !!!'); // Print text
            VPDF.EndDoc;                                            // Close PDF file

            OutputStream := TFileStream.Create( '.\Memory.pdf', fmCreate ) ;  // Create output filestream
            try
                OutputStream.CopyFrom( MemStream, MemStream.Size );           // Copy from memory
            finally
                OutputStream.Free;                                            // Close output filestream
            end;
        finally
            MemStream.Free;                            // Create memory stream
        end;
    finally
        VPDF.Free;
    end;
end.