|
Gracias por responder Delphi.com.ar.
Te comento que ya probé hacer lo que me dijiste (el unansigned no lo toma porque no es variant).
La verdad que estoy bastante confundido con lo que pasa.
Te comento lo que probé:
En vez de declarar la variable PrnFisc local al procedimiento, la declaré en la sección private del form y en el formCreate hice lo siguiente:
procedure TfrmPrincipal.FormCreate(Sender: TObject);
begin
inherited;
PrnFisc := CreateComObject(CLASS_PrinterFiscal) as _PrinterFiscalDisp;
PrnFisc.PortNumber := 1;
PrnFisc.BaudRate := '9600';
MessageDlg('Creado', mtInformation, [mbOk], 0);
end;
Cuando inserto la linea MessageDlg('Creado', mtInformation, [mbOk], 0);, no tira el error, pero si la comento si lo tira.
" Error de aplicación : La instrucción en "0x21c14667" hace referencia a la memoria en "0x21c14667". La memoria no se puede "read"."
????? la verdad que estoy muy , pero muy confundido, ya no se que pensar ni hacer...
Por las pruebas que hice, indudablemente hay un problema con la asignación de memoria. Ahora, no se como resolverlo porque ni siquiera sé como empezar.... estoy desesperado...
Si se te ocurre algo más te lo voy a agradecer.
|