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);