|
@@ -18,7 +18,7 @@ unit fppdfparser;
|
|
|
{$mode ObjFPC}{$H+}
|
|
{$mode ObjFPC}{$H+}
|
|
|
{$J-}
|
|
{$J-}
|
|
|
|
|
|
|
|
-{$DEFINE DEBUGSTREAMS}
|
|
|
|
|
|
|
+{ $DEFINE DEBUGSTREAMS}
|
|
|
{ $DEFINE DUMPSTREAMS}
|
|
{ $DEFINE DUMPSTREAMS}
|
|
|
|
|
|
|
|
interface
|
|
interface
|
|
@@ -827,7 +827,9 @@ function TPDFParser.ParseCMap(aStream : TStream) : TPDFCMap;
|
|
|
begin
|
|
begin
|
|
|
Result:=TPDFCMap.Create;
|
|
Result:=TPDFCMap.Create;
|
|
|
try
|
|
try
|
|
|
|
|
+{$IFDEF DEBUGSTREAMS}
|
|
|
SaveStreamToFile('parsecmap',aStream);
|
|
SaveStreamToFile('parsecmap',aStream);
|
|
|
|
|
+{$ENDIF}
|
|
|
ParseCMap(aStream,Result);
|
|
ParseCMap(aStream,Result);
|
|
|
except
|
|
except
|
|
|
Result.Free;
|
|
Result.Free;
|
Michaël Van Canneyt