Error de 'El programa xxxx.exe dejo de funcionar' por array of ansichar

[masrmty]

Hola Casimiro,

Mira esta funcion la he utilizado para el tema de la facturacion electronica (Mexico) para generar el sello de la cadena, normalmente el valor que se requeria para esto es de 20,000 a 50,000.

Ahora ocupo esa misma funcion para el tema de la contabilidad electronica, solo que aqui los archivos a sellar son mucho mas grandes que una factura.

Esa funcion la compre hace como 4 años con alguien que vendia la solucion para la factura electronica, pero ya no tiene soporte.


Hola NlsGarcia,
La maquina en donde estoy haciendo eso es Windows Server Standar 2008 de 32 bytes.
He intentado hacer el array de manera dinamica pero marca error al compilar.

Saludos.

[ecfisa]

Hola masrmty.

Lo primero que noto es que el arreglo está declarado dentro de la función por lo que será almacenado en el stack, y dado su tamaño, no me extraña que haya desborde...

Intenta declarándolo como variable global oculta, dentro de la sección implemetation de la unidad donde resida la función:

Código Delphi [-]
...
implementation

var
  inbuf : array [0..500000000] of AnsiChar;

function CalculaSelloConBig(cadenaoriginal: string; Hash:THash; key: pEVP_PKEY): AnsiChar;
var
  outbuf: array [0..1024] of ansichar;
  ...
begin
  ...

Saludos

[masrmty]

Hola Ecfisa,

Con tu comentario ya funciono y le puse hasta 1,000,000,000 y funciona perfectamente.
Muchas gracias.

Tambien gracias a todos los que respondieron.

Saludos.