Menu Biblos

 

SDK - Kit de développement

Les développeurs de logiciels d'assistance qui souhaitent offrir à leurs utilisateurs la possibilité d'imprimer en braille peuvent désormais le faire très facilement : il leur suffit de suivre quelques instructions simples.

Quelques avantages de l'intégration de l'impression braille de Biblos

Biblos est toujours installé dans le dossier système « Programmes » : ..\DIGRANDE\BIBLOS5
Le dossier « Programmes » doit toujours être obtenu à l'aide des fonctionnalités du système, sans jamais utiliser de chemins prédéfinis. Biblos peut donc être lancé en exécutant le fichier « Biblos.exe ».
Si le chemin ou le fichier exécutable n'existe pas, cela signifie que Biblos n'est pas installé sur le système. Vérifier la présence du fichier « Biblos.exe » est un moyen simple de savoir si Biblos est installé. Un exemple de code permettant d'obtenir le chemin d'installation de Biblos, lorsqu'il est présent, figure à la fin de ce document.
Il est également possible de lancer Biblos en utilisant uniquement son nom dans l'interpréteur de commandes du système. Par exemple, ouvrez la fenêtre « Exécuter » de Windows et saisissez la commande « Biblos ». Cela lancera Biblos. Le nom « Biblos » peut également être utilisé avec l'instruction API « ShellExecute ».

Afin d'automatiser l'ouverture et l'impression en braille des documents, « Biblos.exe » accepte certains paramètres :

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

Comment intégrer l'impression en braille dans son propre logiciel

Lorsque l'utilisateur clique sur la commande d'impression en braille

Une fonction Delphi qui retourne le chemin de Biblos 5, s'il est installé


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;


Une fonction Delphi qui retourne true si Biblos est en cours d'exécution


Uses
WinApi.Windows;

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