Menu Biblos

 

SDK - Kit de desenvolvimento

Os desenvolvedores de softwares assistivos que desejarem oferecer aos seus usuários a possibilidade de imprimir em Braille podem fazer isso hoje com extrema facilidade: basta seguir algumas instruções simples.

Algumas vantagens obtidas ao integrar a impressão em Braille do Biblos

O Biblos é sempre instalado na pasta de sistema "Programas": ..\DIGRANDE\BIBLOS5
A pasta "Programas" deve ser sempre obtida utilizando as funcionalidades do sistema, nunca por meio de caminhos predefinidos. Portanto, o Biblos pode ser iniciado executando o arquivo "Biblos.exe".
Se o caminho e o arquivo executável não existirem, significa que o Biblos não está instalado no sistema. Verificar a presença do arquivo "Biblos.exe" é útil para confirmar se o Biblos está instalado. No final deste documento há um exemplo de código para obter o caminho do Biblos, caso esteja presente.
Além disso, é possível iniciar o Biblos utilizando apenas seu nome no shell do sistema. Por exemplo, é possível abrir a janela "Executar" do Windows e digitar o comando "Biblos". Isso iniciará o Biblos. O nome "Biblos" também pode ser utilizado pela instrução da API "ShellExecute".

Para automatizar a abertura e a impressão em Braille de documentos, "Biblos.exe" aceita alguns parâmetros:

Biblos.exe -p "%1" "%2"

Como integrar a impressão em Braille ao seu software

Quando o usuário clica no comando de impressão em Braille

Uma função Delphi que retorna o caminho do Biblos 5, se instalado


uses
Winapi.Windows, Winapi.Shlobj, System.Sysutils;

Function getBiblosPath: string;

{}

Function getBP(cs: integer): string;
const
BiblosExe5 = 'digrande\biblos5\biblos.exe';
var
idl: pItemIdlist;
p: pChar;
begin
Result:= '';
Getmem(p,max_path);
Fillmemory(p,max_path,0);
if succeeded(shgetspecialfolderlocation(0, cs, idl)) then
if shgetpathfromidlist(idl,p) then
begin
Result:= IncludeTrailingPathDelimiter(string(p))+ BiblosExe5;
If fileExists(Result) = false then result:= '';
End;
Freemem(p,max_path);
End;

{}

Begin
Result:= getBP(csidl_program_files);;
If Result = '' then
Result:= getBP(csidl_program_filesx86);;
End;


Uma função Delphi que retorna true se o Biblos estiver em execução


Uses
WinApi.Windows;

Function IsBiblosRun: boolean;
begin
result:= not(FindWindow('TBiblosHidden',nil)=0);
end;