Bematech: Acessando os periféricos

Esta é nossa última edição do mini-curso sobre a programação do microterminal FIT Básico. Nesta edição, vamos usar funções de acesso às portas seriais e acessar periféricos conectados ao FIT Básico, como leitor de código de barras e impressora não fiscal, tendo uma idéia básica para depois poder evoluir no desenvolvimento.

por Iohannes Nakatani

procedure TForm1.Button7Click(Sender: TObject);
var
iRetorno: Integer;
tmp: Char;
buffer: String;
begin
application.MessageBox( "Leia o código de barras", "Informação", MB_ICONINFORMATION + MB_OK );
// Comando para ativar o FIT a retornar o código de barras
iRetorno := Bematech_FIT_LeituraCodigoBarras( strtoint( Edit1.Text ) );
if ( iRetorno = 0 ) then
begin
application.MessageBox( "Erro na execução do comando!", "ERRO", MB_ICONINFORMATION + MB_OK );
end
else
begin
// Rotina para a leitura byte a byte dos caracteres do cód. de barras
while ( tmp <> #13 ) do
begin
sleep( 100 );
tmp := Bematech_FIT_LerBuffer( strtoint( Edit1.Text ) );
buffer := buffer + tmp;
end;
Memo1.Text := buffer;
end;
end;

Private Sub Command7_Click()
Dim iRetorno As Integer
Dim buffer As String
Dim tmp As Byte

MsgBox "Leia o Cód. de Barras", vbInformation + vbOKOnly, "Atenção"

" Comando para leitura do código de barras"
iRetorno = Bematech_FIT_LeituraCodigoBarras(CInt(Text1.Text))

" Rotina para a leitura byte a byte dos caracteres do cód. de barras"
If iRetorno = 0 Then
MsgBox "Erro na execução do comando", vbInformation + vbOKOnly, "Atenção"
Else
buffer = ""
Do While (Chr(tmp) <> Chr(13))
Sleep (100)
tmp = Bematech_FIT_LerBuffer(CInt(Text1.Text))
buffer = buffer + Chr(tmp)
Loop
End If
List1.AddItem (buffer)
End Sub

procedure TForm1.Button8Click(Sender: TObject);
var
iRetorno: Integer;
tmp: String;
Serial: Byte;
iConta: Integer;
begin
tmp := Edit5.Text + #10 + #13;
if ( RadioButton3.Checked = True ) then
Serial := Ord( "S" )
else
Serial := Ord( "R" );

for iConta := 1 to length( tmp ) do
begin
// Comando para enviar o texto a ser impressora pela serial.
iRetorno := Bematech_FIT_EnviaSerial( strtoint( Edit1.Text ), Ord( tmp[ iConta ] ), Serial );
if ( iRetorno = 0 ) then
begin
ShowMessage( "Erro de Comunicação!" );
Exit;
end;
end;
end;

Private Sub Command8_Click()
Dim iRetorno As Integer
Dim Serial As Byte
Dim iConta As Integer

If Option3.Value = True Then
Serial = Asc("S")
Else
Serial = Asc("R")
End If

For iConta = 1 To Len(Text5.Text)
If (Bematech_FIT_EnviaSerial(CInt(Text1.Text), Asc(Mid(Text5.Text, iConta, 1)), Serial)) = 0 Then
MsgBox "Erro comunicação !", vbInformation + vbOKOnly, "Atenção"
iConta = Len(Text5)
End If
Next

" Para descarregar o buffer na impressora ( LF + CR )
iRetorno = Bematech_FIT_EnviaSerial(CInt(Text1.Text), 10, Serial)
iRetorno = Bematech_FIT_EnviaSerial(CInt(Text1.Text), 13, Serial)
End Sub