Delphi dicas

Abrir gaveta ou acionar gaveta - bematch e epson

//epson



procedure TForm1.Button6Click(Sender: TObject);

var F : TextFile;

begin

        AssignFile(F,Edit1.Text);

        Rewrite(F);

        Writeln(F,chr($1B)+'p'+chr($0)+chr($25)+chr($250));  //EPSON

        CloseFile(F);

end;





//bemathc



procedure TForm1.Button5Click(Sender: TObject);

var F : TextFile;

begin

        AssignFile(F,Edit1.Text);

        Rewrite(F);

        Writeln(F,#27#118); //bematch

        CloseFile(F);

end;