Erro na Unit ACBRSAT

[Rodrigo Fernanda Octavio]

Pessoal boa tarde estou inicializando o desenvolvimento do SAT o exemplo esta funcionando corretamente agora quando tento emitir um cupom usando meu programa da um erro na unit ACBRSAT a linha com erro esta em negrito. Da access Violation

function TACBrSAT.EnviarDadosVenda(dadosVenda : AnsiString) : String ;
var
  NomeCFe, Retorno: String;
begin
  dadosVenda := Trim(dadosVenda);

  fsComandoLog := 'EnviarDadosVenda( '+dadosVenda+' )';
  if dadosVenda = '' then
     raise EACBrSATErro.Create('Parâmetro: "dadosVenda" não informado');

  // Dados deve sempre ser enviados em UTF8
  dadosVenda := ConverteXMLtoUTF8(dadosVenda);

  IniciaComando;

  if fsConfigArquivos.SalvarEnvio then
  begin
    NomeCFe := CalcCFeNomeArq( fsConfigArquivos.PastaEnvio,
                               fsConfigArquivos.PrefixoArqCFe +
                               FormatDateTime('YYYYMMDDHHNNSS',Now) + '-' +
                               IntToStrZero(numeroSessao, 6),
                               '-env');
    WriteToTXT(NomeCFe, dadosVenda, False, False);
  end;

  Retorno := '';
  if assigned(FOnEnviarDadosVenda) then
    FOnEnviarDadosVenda(dadosVenda, Retorno);

  if EstaVazio(Retorno) then
    Retorno := fsSATClass.EnviarDadosVenda( dadosVenda );

  Result := FinalizaComando( Retorno );

  DecodificaRetorno6000;
end 

 

[Daniel Simoes]

Provavelmente você está usando o Modelo errado (stdcall, cdecl)

[Rodrigo Fernanda Octavio]

Amigo muito abrigado, estou brigando ha pelo menos 5 dias

Resolvido