Ecf Epson - Problema Delphixe5 (Unicode)

[Atilio]

Boa tarde pessoal, podem me ajuda com uma rotina da ECF Epson? No delphi 2007 eu abria cupom fiscal assim:

If (vImpressoraECF = 'EPSON') then

begin

  Int_Retorno := EPSON_Fiscal_Abrir_Cupom(Pchar(vCPFCNPJ), '', '', '', 2);

end;

Ao migrar meu software para DelphiXE5 (unicode) a variável vCPFCNPJ era do tipo String e eu a mudei para AnsiString porque essa mesma rotina chama as impressoras fiscais Bematech e Daruma e ambas ECF no DelphiXE5 precisam dessa variável sendo AnsiString. No entanto se eu tento executar a função acima sem o PChar dá erro conforme escrevi abaixo:

  Int_Retorno := EPSON_Fiscal_Abrir_Cupom( vCPFCNPJ, '', '', '', 2);

  --> erro: incompatible types: PWideChar e AnsiString;

Alguém pode me orientar como devo chamar essa função? Lembrando que vCPFCNPJ agora é do tipo AnsiString. SE eu deixar o Pchar() a rotina compila sem erros mas o correto não seria eu retirar?

Grato a todos !

[Daniel Simoes]

Aparentemente você não está usando o ACBrECF....

 

Acho que poucas pessoas poderiam lhe ajudar sobre a DLL do fabricante nesse fórum... Melhor tentar ajuda com o fabricante, sei que eles possuem exemplos em Delphi

[Atilio]

Valeu amigo, fonte disponível em Delphi XE3 em http://global.latin.epson.com/br/Inventario/Epson-TM-T81FBIII/Drivers-e-Suporte

[Desempenho]

Em 26/02/2014 at 18:28, Atilio disse:

Boa tarde pessoal, podem me ajuda com uma rotina da ECF Epson? No delphi 2007 eu abria cupom fiscal assim:

If (vImpressoraECF = 'EPSON') then

begin

  Int_Retorno := EPSON_Fiscal_Abrir_Cupom(Pchar(vCPFCNPJ), '', '', '', 2);

end;

Ao migrar meu software para DelphiXE5 (unicode) a variável vCPFCNPJ era do tipo String e eu a mudei para AnsiString porque essa mesma rotina chama as impressoras fiscais Bematech e Daruma e ambas ECF no DelphiXE5 precisam dessa variável sendo AnsiString. No entanto se eu tento executar a função acima sem o PChar dá erro conforme escrevi abaixo:

  Int_Retorno := EPSON_Fiscal_Abrir_Cupom( vCPFCNPJ, '', '', '', 2);

  --> erro: incompatible types: PWideChar e AnsiString;

Alguém pode me orientar como devo chamar essa função? Lembrando que vCPFCNPJ agora é do tipo AnsiString. SE eu deixar o Pchar() a rotina compila sem erros mas o correto não seria eu retirar?

Grato a todos !

    if pCPF = '../' then
      result := EPSON_Fiscal_Abrir_Cupom(PAnsiChar(pCPF), PAnsiChar( copy( pNome, 1,25)),
        PAnsiChar(cEndereco), '', 1)
    else
      result := EPSON_Fiscal_Abrir_Cupom(PAnsiChar(pCPF), PAnsiChar(copy( pNome, 1,25)),
        PAnsiChar(cEndereco), '', 2);