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

[[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