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

[[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 Noteví]

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