Erros ao usar vari�veis do Tipo AnsiString, AnsiChar, PAnsiString, PAnsiChar;

08/12/2016

Bom dia, a todos.

Pessoal t� muito perdido para entender essas vari�veis, to ajustando o meu sistema com o SAT e resolvi usar as dlls dos fabricantes, Dimep, Tanca, Sweda, Elgin. Acontece que cada fabricante pede para declarar as fun��es de formas diferentes. Exemplos:

Fabricante X
Function EnviarDadosVenda(NumeroSessao:integer; CodAtivacao:AnsiString; Venda_XML: AnsiString): Pchar; stdcall; external dllsat.dll -

Fabricante Y
function EnviarDadosVenda(numeroSessao: integer; codigoDeAtivacao: PAnsiChar; �dadosVenda: PAnsiChar): PAnsiChar; stdcall; external 'SAT.dll' name 'EnviarDadosVenda'

Bom, quando vou passar as strings do meu programa para a fun��o, e tenho o retorno da fun��o volta cheio de caracteres diferentes, estranhos, o caracter (�) volta com um c�digo asc sem sentido , exemplo(�, �, ┌,) e assim por diante. Lendo aqui no f�rum descobri que tenho que converter strings para AnsiString, String para AnsiChar, mas na fun��o ta declarada com PAnsiChar, t� d�ficil n�o to conseguindo.

Algu�m saberia me indicar alguns artigos sobre essas convers�es ou alguns exemplos, estou precisando bastante.

Obrigado
Sandro �vila

Sandro �vila

Curtir t�pico + 0

Responder

Posts

09/12/2016

Ismael Machado

Voc� provavelmente utiliza o Delphi XE2 ou superior, correto?
Neste caso, voc� precisa sim converter o tipo String para AnsiString, caso contr�rio os acentos ficar�o todos errados. E para converter � realmente bem simples, basta declarar uma vari�vel deste tipo no escopo... Veja o exemplo:

var
  as: AnsiString;
  s: String;
begin
  s := 'exemplo';
  as := s; //Converte String para AnsiString
  MetodoQualquer(PAnsiChar(as)); //Chama um m�todo utilizando o ponteiro do AnsiString, ou seja, PAnsiChar.
end;

Isto deve funcionar

Responder

Gostei + 0