Problema al pasar función de D2007 a Berlín

[[newtron]]

Hola a tod@s.


Tengo esta función para activar/desactivar la función "duplex" de las impresoras:

Código Delphi [-]
Function funcSetDuplex(Duplex : Boolean): Boolean;
{This procedure sets the current printer in duplex or simplex}
var
Device, Driver, Port : array[0..255] of char; {0..80 may not handle long
ports}
hDMode : THandle;
pMode, PDMode : PDevMode;
begin
  Result := False; {Initialize result to False, may be unnecessary}
  printer.GetPrinter(Device, Driver, Port, hDMode);
  if hDMode <> 0 then begin {got handle to Device Mode}
    pDMode := GlobalLock(hDMode);
    if pDMode <> nil then begin {set duplex if capable}
      if DeviceCapabilitiesA(Device, Port, DC_DUPLEX, nil, nil) = 1 then begin
        Result := True; {Printer can do Duplex}
        {DeviceCapsA returns 1 if parameter accepts or 0 if not}
        pDMode^.dmFields := pDMode^.dmFields or dm_Duplex;
        if Duplex
          then pDMode^.dmDuplex := dmDup_VERTICAL
          else pDMode^.dmDuplex := dmDup_SIMPLEX;
      end
      else Result := False; {return false if printer can't do Duplex}
      GlobalUnlock(hDMode);
    end; {end got pDMode}
  end; {end got handle to DevMode}
end;

Esto con mi Delphi 2007 va perfectamente pero estoy intentando pasarla a Delphi Berlin y me da el siguiente error al compilar:


Incompatible types: 'PAnsiChar' and 'array[0..255] or Char


señalando la variable "Device" de la linea "if DeviceCapabilitiesA(Device, Port, DC_DUPLEX, nil, nil) = 1 then begin"


Imagino que habrá que hacer alguna conversión de tipos de variable pero la verdad es que no doy con la tecla.


¿Alguien me puede iluminar?


Gracias y un saludo

[Casimiro Notevi]

¿Has probado: Device, Driver, Port : array[0..255] of ansichar; ?

[[newtron]]

Empezado por Casimiro Notevi

¿Has probado: Device, Driver, Port : array[0..255] of ansichar; ?

Si, y me dice:


Incompatible types: 'PWideChar' and 'array[0..255] of AnsiChar


Gracias y un saludo

[Casimiro Notevi]

Lo otro es que sean pansichar, pero no sé qué tipos son cada uno de los parámetros.
A ver si alguien que use esas versiones modernas puede ayudar.

[[movorack]]

Si, cambiaron los tipos de datos de los parámetros! Pues, de esta manera compila pero...

Código Delphi [-]
procedure TPrinter.GetPrinter(ADevice, ADriver, APort: PChar; var ADeviceMode: THandle);

function DeviceCapabilitiesA(pDriverName, pDeviceName, pPort: PAnsiChar;
  iIndex: Integer; pOutput: PAnsiChar; DevMode: PDeviceModeA): Integer; stdcall;

Function funcSetDuplex(Duplex: Boolean): Boolean;
var
  Device, DeviceName, Driver, Port: PWideChar;
  hDMode: THandle;
  pMode, PDMode: PDevMode;
begin
  {This procedure sets the current printer in duplex or simplex}
  Result := False; { Initialize result to False, may be unnecessary }
  printer.GetPrinter(Device, Driver, Port, hDMode);
  if hDMode <> 0 then
  begin { got handle to Device Mode }
    PDMode := GlobalLock(hDMode);
    if PDMode <> nil then
    begin { set duplex if capable }
      if DeviceCapabilitiesA(PAnsiChar(Device), PAnsiChar(DeviceName),
        PAnsiChar(Port), DC_DUPLEX, nil, nil) = 1 then
      begin
        Result := True; { Printer can do Duplex }
        { DeviceCapsA returns 1 if parameter accepts or 0 if not }
        PDMode^.dmFields := PDMode^.dmFields or dm_Duplex;
        if Duplex then
          PDMode^.dmDuplex := dmDup_VERTICAL
        else
          PDMode^.dmDuplex := dmDup_SIMPLEX;
      end
      else
        Result := False; { return false if printer can't do Duplex }
      GlobalUnlock(hDMode);
    end; { end got pDMode }
  end; { end got handle to DevMode }
end;

[[newtron]]

Gracias a los dos por contestar.


movorack, disculpa pero no entiendo tu respuesta.


En la unidad WinSpool de mi Delphi Berlín la función está declarada de la siguiente forma:

Código Delphi [-]

{$EXTERNALSYM DeviceCapabilitiesA}
function DeviceCapabilitiesA(pDevice, pPort: LPCSTR; fwCapability: Word;
  pOutput: LPSTR; DevMode: PDeviceModeA): Integer; stdcall;

o sea, las variables están como tipo LPCSTR pero no sé cómo hacer la declaración y la llamada.


Saludos

[Casimiro Notevi]

Mientras responde movorack...
Dices que la función es:

Código Delphi [-]
function DeviceCapabilitiesA(pDevice, pPort: LPCSTR; fwCapability: Word;   
    pOutput: LPSTR; DevMode: PDeviceModeA): Integer; stdcall;

Sin embargo, creo que la llamas con los parámetros cambiados de orden:

Código Delphi [-]
if DeviceCapabilitiesA(PAnsiChar(Device), PAnsiChar(DeviceName), 
          PAnsiChar(Port), DC_DUPLEX, nil, nil) = 1 then

Aparte de eso, lo mismo puede que funcione de la forma:
PAnsiChar(AnsiString())

[[newtron]]

Casimiro.


Ese código era una propuesta de movorack, yo lo estaba poniendo en el orden correcto. Por otro lado con tu última propuesta "PAnsiChar(AnsiString())" si que ha funcionado.


Gracias a los dos y un saludo

[[movorack]]

Hola, que mala costumbre la de nosotros los latinoamericanos de dormir mientras uds están trabajando

Lo que sucede es que en el Berlín que tengo instalado (Delphi Berlín 10.1 Update 2) están así:

Código Delphi [-]
{UNIT VCL.Printers}
procedure GetPrinter(ADevice, ADriver, APort: PChar; var ADeviceMode: THandle);

{UNIT WinApi.Windows}
{$EXTERNALSYM DeviceCapabilitiesA}
function DeviceCapabilitiesA(pDriverName, pDeviceName, pPort: LPCSTR;
  iIndex: Integer; pOutput: LPSTR; DevMode: PDeviceModeA): Integer; stdcall;

Pero, LPCSTR termina siendo del tipo PAnsiChar

Código Delphi [-]
{UNIT WinApi.Windows}
LPSTR = MarshaledAString;

{UNIT System}
_PAnsiChr = PAnsiChar;
MarshaledAString = _PAnsiChr;

y la duda es porque DeviceCapabilitiesA pide un parámetro llamado pDeviceName que en tu código original no veo.

[[newtron]]

Empezado por movorack

Hola, que mala costumbre la de nosotros los latinoamericanos de dormir mientras uds están trabajando

Aquí no trabajamos hombre, estamos todo el día de fiesta.


Pues es curioso porque mi versión es igualmente Berlín 10.1 Update 2 y se ve que esa función en particular la declara de forma diferente


De una forma o de otra lo solucioné con la propuesta de Casimiro.


Gracias y un saludo