TEF

GUIGOR 31/03/2016 14:08:40
#460188

boa tarde
to começando a implatar o tef em vb6 no meu pdv entratando me deparei com a seguinte situação:
tenho uma variavel chamada
Global Buffer As String * 20000
onde ela me retorna os passo que a dll do sitef tem que fazer sendo que ela esta me retornando uma porção de espaços em branco conforme documento anexo, entao gostaria de saber como eu posso fazer para pegar somente o contudo.
abaixo vou passar o parametro que eu passo no tef.

Retorno = IniciaFuncaoSiTefInterativo(0, [Ô]1,00[Ô] & Chr(0), [Ô]12345[Ô] & Chr(0), [Ô]20150518[Ô] & Chr(0), [Ô]171200[Ô] & Chr(0), [Ô]Rubens[Ô] & Chr(0), Chr(0))
ProximoComando = 0
TipoCampo = 0
TamanhoMinimo = 0
TamanhoMaximo = 0
ContinuaNavegacao = 0
Resultado = 0
Buffer = String(20000, 0)
Do
Retorno = ContinuaFuncaoSiTefInterativo(ProximoComando, TipoCampo, TamanhoMinimo, TamanhoMaximo, Buffer, Len(Buffer), Resultado)
If (Retorno = 10000) Then
bufferlimpo = Trim(Buffer)


Select Case ProximoComando
Case 0
MensagemVisor = MensagemVisor & bufferlimpo

End Select

End If
Loop Until Not (Retorno = 10000)


ai ele sempre que me manda a mensagem no buffer sempre retorna com uma porção de espaço em branco. eu gostaria de deixar somente o que tem coisa.
dei uma olhada no manual na parte do buffer e ta o seguinte:

Esta interface pode ser utilizada por aplicações escritas nas mais variáveis linguagens de programação que aceitam campos binários. Dentre elas citamos: Delphi, Visual Basic, Visual C.
No caso de comprovantes, o delimitador que indica o final de uma linha é o caractere 0x0a (
em linguagem C).
Todas as rotinas chamadas pelo aplicativo de automação devem ser do tipo stdcall, ou seja, os parâmetros são empilhados da direita para a esquerda e a rotina chamada é responsável por removê-los da pilha. A convenção dos parâmetros é a seguinte:
char * => Buffer em texto ASCII terminado por zero binário.