Watch, Follow, &
Connect with Us

QualityCentral

Public Report
Report From: Delphi-BCB/VCL/Dialog Controls/TPrintDialog    [ Add a report in this area ]  
Report #:  72005   Status: Open
Function TPrinterDevice.IsEqual must test Case insensitive
Project:  Delphi Build #:  XE
Version:    15.0 Submitted By:   Francois Cossette
Report Type:  Basic functionality failure Date Reported:  3/6/2009 7:54:21 AM
Severity:    Commonly encountered problem Last Updated: 4/25/2013 6:03:31 PM
Platform:    All versions Internal Tracking #:   13631
Resolution: None (Resolution Comments) Resolved in Build: : None
Duplicate of:  None
Voting and Rating
Overall Rating: No Ratings Yet
0.00 out of 5
Total Votes: None
Description
When I use the Printer Select Dialog and I select a network printer this one is put in Uppercase. In the fonction TPrinterDevice.IsEqual system cannot find the printer because case is different.

Is there a workaround for this problem.
Steps to Reproduce:


Added by Sysop
<<<<<<<<<<<<<<<
there is a bug in the TPrinterDevice.IsEqual method. It goes like this (in Delphi 7):

function TPrinterDevice.IsEqual(ADriver, ADevice, APort: PChar): Boolean;
begin
  Result := (Device = ADevice) and ((Port = '') or (Port = APort));
end;

As you can see, the comparison (Device = ADevice) is case sensitive. That's not correct.

Consequence: in SetPrinter the old printer is not found if the case does not compare and a new printer is added, making the old one unreachable.
>>>>>>>>>>>>>>>
Workarounds
None
Attachment
None
Comments

Francois Cossette at 11/2/2010 8:25:33 AM -
Any progress on this issue that is 19 months old?

Tomohiro Takahashi at 11/2/2010 7:39:17 PM -
> When I use the Printer Select Dialog ...
Is the dialog TPrintDialog component of VCL?

> TPrinterDevice.IsEqual system cannot find the printer because case is different.
Could you tell us more detail about the issue?
Is there any bug in TPrinterDevice.IsEqual method of Printers unit?

Dick Boogaers at 11/3/2010 3:51:28 AM -
Yes there is a bug in the TPrinterDevice.IsEqual method. It goes like this (in Delphi 7):

function TPrinterDevice.IsEqual(ADriver, ADevice, APort: PChar): Boolean;
begin
  Result := (Device = ADevice) and ((Port = '') or (Port = APort));
end;

As you can see, the comparison (Device = ADevice) is case sensitive. That's not correct.

Consequence: in SetPrinter the old printer is not found if the case does not compare and a new printer is added, making the old one unreachable.

Tomohiro Takahashi at 11/3/2010 7:12:37 PM -
Thanks for the information. Delphi XE still has same issue.

Server Response from: ETNACODE01

Copyright© 1994 - 2013 Embarcadero Technologies, Inc. All rights reserved.