Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 13-06-2019
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.058
Poder: 16
newtron Va camino a la fama
Problema al pasar función de D2007 a Berlín

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
__________________
Be water my friend.
Responder Con Cita
  #2  
Antiguo 13-06-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 29.275
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
¿Has probado: Device, Driver, Port : array[0..255] of ansichar; ?
Responder Con Cita
  #3  
Antiguo 13-06-2019
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.058
Poder: 16
newtron Va camino a la fama
Cita:
Empezado por Casimiro Notevi Ver Mensaje
¿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
__________________
Be water my friend.
Responder Con Cita
  #4  
Antiguo 13-06-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 29.275
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
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.
Responder Con Cita
  #5  
Antiguo 13-06-2019
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.133
Poder: 15
movorack Va camino a la famamovorack Va camino a la fama
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;
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita
  #6  
Antiguo 14-06-2019
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.058
Poder: 16
newtron Va camino a la fama
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
__________________
Be water my friend.
Responder Con Cita
  #7  
Antiguo 14-06-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 29.275
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
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())
Responder Con Cita
  #8  
Antiguo 14-06-2019
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.058
Poder: 16
newtron Va camino a la fama
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
__________________
Be water my friend.
Responder Con Cita
  #9  
Antiguo 14-06-2019
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.133
Poder: 15
movorack Va camino a la famamovorack Va camino a la fama
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.
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita
  #10  
Antiguo 15-06-2019
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.058
Poder: 16
newtron Va camino a la fama
Cita:
Empezado por movorack Ver Mensaje
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
__________________
Be water my friend.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problema transacciones IBX + Delphi Berlin lavtaro Conexión con bases de datos 16 04-06-2018 15:29:09
Problema con proyecto en Delphi Berlin newtron Varios 13 26-05-2017 20:09:26
Error "Incompatible types" al pasar de Delphi 2007 a Delphi Berlin newtron Varios 4 21-02-2017 13:46:59
Problema con el IDE D2007 diegofhernando Varios 3 13-06-2008 00:29:49
pasar un puntero a una funcion baby Varios 2 21-05-2007 13:10:22


La franja horaria es GMT +2. Ahora son las 05:25:22.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi