Cita:
Empezado por JoAnCa
no puse el codigo completo porque puse el enlace en el primer post |
Oh, es verdad. 
Revisando el código, da la impresión de que podría funcionar si cambias esta línea:
Código Delphi [-]Result:= Result + String(PChar(@Buffer));
por:
Código Delphi [-]Result:= Result + ANSIString(PANSIChar(@Buffer));
o simplemente:
Código Delphi [-]Result := Result + PANSIChar (@Buffer);
__________________
Tras casi seis años de trabajar para una empresa alemana como desarrollador Delphi, se vieron forzados a dejarme ir (temas presupuestales). Así que ahora estoy abierto a escuchar nuevas ofertas.
Última edición por Al González fecha: 08-09-2020 a las 06:30:00.
|