[Jcl-checkins-diff] SF.net SVN: jcl:[3509] trunk/jcl/source/vcl/JclPrint.pas

[<ou...@us...>]

Revision: 3509
          http://jcl.svn.sourceforge.net/jcl/?rev=3509&view=rev
Author:   outchy
Date:     2011-03-12 15:36:21 +0000 (Sat, 12 Mar 2011)

Log Message:
-----------
Mantis 5498: JclPrint.DirectPrint is not unicode compatible.

Modified Paths:
--------------
    trunk/jcl/source/vcl/JclPrint.pas

Modified: trunk/jcl/source/vcl/JclPrint.pas
===================================================================
--- trunk/jcl/source/vcl/JclPrint.pas	2011-03-12 15:32:28 UTC (rev 3508)
+++ trunk/jcl/source/vcl/JclPrint.pas	2011-03-12 15:36:21 UTC (rev 3509)
@@ -253,7 +253,7 @@
         EJclPrinterError.CreateRes(@RsNAStartPage);
       try
         // Send the data to the printer
-        if not WritePrinter(PrinterHandle, PChar(Data), Count, BytesWritten) then
+        if not WritePrinter(PrinterHandle, PChar(Data), Count * SizeOf(Char), BytesWritten) then
           EJclPrinterError.CreateRes(@RsNASendData);
       finally
         // End the page
@@ -270,7 +270,7 @@
     ClosePrinter(PrinterHandle);
   end;
   // Check to see if correct number of bytes written
-  if BytesWritten <> Count then
+  if BytesWritten <> Count * SizeOf(Char) then
     EJclPrinterError.CreateRes(@RsNATransmission);
 end;
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.