Clisitef32I Delphi Xe2

[MAIK RYUGE]

      Estou com um problema para utilização da dll 'CliSiTef32I.dll'
após migração do nosso sistema para Delphi XE2, referente ao padrão
Unicode. Será que alguem ja teve um problema semelhante, que possa ajudar ?

 

[Daniel Simoes]

Qual é exatamente o seu problema ? 

Ocorre um A.V. ? Acentos errados ?  Não funciona o TEF ?

 

Por favor tente reproduzir o problema usando o projeto TEFDDemo... e se conseguir, envie o passo a passo

[MAIK RYUGE]

Segue abaixo o exemplo do problema ocorrido.


Metódo chamado:

function ContinuaFuncaoSiTefInterativo                (

                                                        var ProximoComando: Integer;
                                                        var TipoCampo: Integer;
                                                        var TamanhoMinimo: smallint;
                                                        var TamanhoMaximo: smallint;
                                                        pBuffer: PChar;
                                                        TamMaxBuffer: Integer;
                                                        ContinuaNavegacao: Integer
                                                      ): Integer; stdcall; far; external cCamDllSiTef;





Retorno:

pBuffer := '潃', '敮', '瑣', '湡', '潤', '匠', '呩', '晥

[Daniel Simoes]

Essa assinatura não se parece em nada com a dos fontes do ACBr...

 

Veja a do ACBrTEFDCliSiTef.pas

 

 

     xContinuaFuncaoSiTefInterativo : function (
                var ProximoComando: Integer;
                var TipoCampo: Integer;
                var TamanhoMinimo: smallint;
                var TamanhoMaximo: smallint;
                pBuffer: PAnsiChar;
                TamMaxBuffer: Integer;
                ContinuaNavegacao: Integer ): integer;
                {$IFDEF LINUX} cdecl {$ELSE} stdcall {$ENDIF} ;


 

[MAIK RYUGE]

Daniel,

 

      Acho que resolvi o problema, me baseando na classe ACBrTEFDCliSiTef, fiz algumas alterações das variaveis de pchar para pansichar no projeto e o buffer já esta retornando com os caracteres corretos.

 

Valeu!