Application Console

Esse fragmento de codigo (coloque-o no .dpr) é utilizado em uma aplicacao que roda em coletores de dados (radio frequencia - roda via telnet) feita em delphi 7 e acessa banco de dados sql.

qq duvida,
Antonio Magno
magno@openminds.com.br



var
ConHandle : THandle; // Handle to console window
Coord : TCoord; // To store/set screen position
MaxX, MaxY : Word; // To store max window size
CCI : TConsoleCursorInfo;
NOAW : DWord; // To store results of some functions



//-----------------------------------------
// Get handle to console output
//-----------------------------------------
function GetConOutputHandle : THandle;
begin
Result := GetStdHandle(STD_OUTPUT_HANDLE)
end;

//-----------------------------------------
// Position cursor to X, Y
//-----------------------------------------
procedure GotoXY(X, Y : Word);
begin
Coord.X := X; Coord.Y := Y;
SetConsoleCursorPosition(ConHandle, Coord);
end;

//-----------------------------------------
// Clear Screen - fill it with spaces
//-----------------------------------------
procedure Cls;
begin
Coord.X := 0; Coord.Y := 0;
FillConsoleOutputCharacter( ConHandle, ´ ´, MaxX*MaxY, Coord, NOAW);
GotoXY(0, 0);
end;

//--------------------------------------
// Show/Hide cursor
//--------------------------------------
procedure ShowCursor(Show : Bool);
begin
CCI.bVisible := Show;
SetConsoleCursorInfo(ConHandle, CCI);
end;

//--------------------------------------
// Initialize global variables
//--------------------------------------
procedure Init;
begin
// Get console output handle
ConHandle := GetConOutputHandle;
// Get max window size
Coord := GetLargestConsoleWindowSize(ConHandle);
MaxX := Coord.X;
MaxY := Coord.Y;
end;




{
[]---------------------------------------------------------------[]
Main program - shows usage of some subroutines above and some
of console API functions
[]---------------------------------------------------------------[]
}
var
R : TSmallRect;
IBuff : TInputRecord;
IEvent : DWord;
Cod_Barras : String;
Opcao : String;
Matricula : String;
Endereco_Consultado : String;
Cod_Etiqueta : String;
qtde : string;
lin : integer;

Begin
Application.Initialize;
// a linha abaixo é utilizada pra acessar o banco de dados.....
// Application.CreateForm(TdmdMaster, dmdMaster);

Init;

ShowCursor(True);

GotoXY(5, 5);

Writeln(´Teste´);

end;