Menú de Biblos

 

SDK - Kit de desarrollo

Los desarrolladores de software de asistencia que quieran ofrecer a sus usuarios la posibilidad de imprimir en braille ahora pueden hacerlo con extrema facilidad: basta con seguir unas pocas instrucciones sencillas.

Algunas ventajas de integrar la impresión en braille de Biblos

Biblos siempre se instala en la carpeta del sistema "Programas": ..\DIGRANDE\BIBLOS5
La carpeta "Programas" debe obtenerse siempre utilizando las funciones del sistema, nunca mediante rutas preestablecidas. Por tanto, Biblos puede iniciarse ejecutando el archivo "Biblos.exe".
Si la ruta y el archivo ejecutable no existen, significa que Biblos no está instalado en el sistema. Comprobar la presencia del archivo "Biblos.exe" es útil para verificar si Biblos está instalado. Al final de este documento se incluye un ejemplo de código para obtener la ruta de Biblos, si está presente.
Además, es posible iniciar Biblos utilizando únicamente su nombre en el shell del sistema. Por ejemplo, se puede abrir la ventana "Ejecutar" de Windows y escribir el comando "Biblos". Esto iniciará Biblos. El nombre "Biblos" también puede utilizarse mediante la instrucción API "ShellExecute".

Para automatizar la apertura y la impresión en braille de documentos, "Biblos.exe" acepta algunos parámetros:

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

Cómo integrar la impresión en braille en su propio software

Cuando el usuario hace clic en el comando de impresión en braille

Una función de Delphi que devuelve la ruta de Biblos 5, si está 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;


Una función de Delphi que devuelve true si Biblos está en ejecución


Uses
WinApi.Windows;

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