Crystal reports en 64 bits

[DavidSG4]

Muy buenas y gracias de antemano.
tengo una aplicación recién migrada de delphi 5 a XE 10 Berlin. tengo un problema con crpe32.

He instalado crystal reports 2008 runtime no encuentro una version posterior.

1 cuando ejecuto la aplicacion en modo 32 bits todo funciona bien hasta que cierro el listado he intento acceder a cualquier otro menú de la aplicación (me salta ese error tan feo que es la ventana de CPU)
2 Cuando ejecuto la aplicacion en modo 64 ni siquiera carga la dll crpe32.dll. en el código de abajo me lanza el error en la linea CREEngine:=loadlibrary(pchar(s1)) he instalado un runtime de sap para visutal studio pero nada

Saludos

function TCrpeEngine.PELoadCrpeDll(const CrpeLocation: string) : Bool;
var
  s1,s2 : string;
begin
  Result := False;
  s1 := Trim(CrpeLocation);
  CRDEngine :=LoadLibrary(PChar(s1));
  {If an error occured, set the flag}
  if (CRDEngine < HINSTANCE_ERROR) then
  begin
    CRDEngine := 0;
    s2 := SysErrorMessage(GetLastError);
    if Trim(s2) = '' then
      s1 := CRD_ERROR_LOADING + Chr(10) + 'Windows Error Number: ' + IntToStr(GetLastError)
    else
      s1 := CRD_ERROR_LOADING + Chr(10) +
        'Windows Error Number: ' + IntToStr(GetLastError) + ' - ' + Trim(s2);
    CRDEngineError(s1);
  end
  else
    Result := True;
end;

[Casimiro Noteví]

¿Has probado a cambiar string por ansistring, pchar por ansipchar, etc.?

[DavidSG4]

Pues la verdad es que no se me había ocurrido y puede ser que sea la causa. ¿como debería de hacer esto que propones?

Gracias

[Casimiro Noteví]

Empezado por DavidSG4

Pues la verdad es que no se me había ocurrido y puede ser que sea la causa. ¿como debería de hacer esto que propones?
Gracias

Donde pone string, lo cambias por ansistring, y donde pone pchar lo cambiar por ansipchar.
No tengo un delphi moderno unicode, pero supongo que esas serán sus reemplazos.

[DavidSG4]

¿pero esto lo tendría que hacer en toda la aplicación.?
Saludos

[Casimiro Noteví]

Empezado por DavidSG4

¿pero esto lo tendría que hacer en toda la aplicación.?
Saludos

Bueno, es que no sé exactamente cuál es el problema, yo te hablaba de la function que has puesto antes.