fixed Delphi compilation

- broken by #395
synopse · May 5, 2021 · f3c4413 · f3c4413
1 parent bde05d1
commit f3c4413
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 4 deletions.
diff --git a/SynDBODBC.pas b/SynDBODBC.pas
@@ -1712,7 +1712,8 @@ procedure TODBCStatement.ExecutePrepared;
             end;
           ftDouble: begin
             CValueType := SQL_C_DOUBLE;
-            if (fDBMS = dMSSQL) and (VInOut=paramIn) and (double(VInt64) > -1) and (double(VInt64) < 1) then begin
+            if (fDBMS = dMSSQL) and (VInOut=paramIn) and
+               (PDouble(@VInt64)^ > -1) and (PDouble(@VInt64)^ < 1) then begin
               // prevent "Invalid character value for cast specification" error for numbers (-1; 1)
               // for doubles outside this range SQL_C_DOUBLE must be used
               ParameterType := SQL_NUMERIC;

diff --git a/SynPdf.pas b/SynPdf.pas
@@ -9949,7 +9949,7 @@ procedure TPdfEnum.HandleComment(Kind: TPdfGDIComment; P: PAnsiChar; Len: intege
 var Text: RawUTF8;
     W: integer;
     Img: TPdfImage;
-    ImgName: string;
+    ImgName: PDFString;
     ImgRect: TPdfRect;
 begin
   try
@@ -9975,7 +9975,7 @@ procedure TPdfEnum.HandleComment(Kind: TPdfGDIComment; P: PAnsiChar; Len: intege
       pgcJpegDirect:
       if Len>Sizeof(TRect) then begin
         SetString(Text,P+SizeOf(TRect),Len-SizeOf(TRect));
-        ImgName := 'SynImgJpg'+crc32cUTF8ToHex(Text);
+        ImgName := 'SynImgJpg'+PDFString(crc32cUTF8ToHex(Text));
         if Canvas.Doc.GetXObject(ImgName) = nil then
         begin
           Img := TPdfImage.CreateJpegDirect(Canvas.Doc,UTF8ToString(Text));

diff --git a/SynopseCommit.inc b/SynopseCommit.inc
@@ -1 +1 @@
-'1.18.6281'
+'1.18.6282'