DiGrande.it

Non Vedenti, Braille e Tecnologie di Stampa

Questo sito usa Cookie per personalizzare contenuti e annunci, fornire funzionalità per social media e analizzare i collegamenti. Chiudendo questo banner o continuando la navigazione acconsenti al loro uso.
Leggi la Cookie Policy di DiGrande.it

Kit di sviluppo

Gli sviluppatori di software assistivi che volessero offrire ai propri utenti la possibilità di stampare in braille, oggi possono farlo con estrema facilità: basta seguire poche e semplici istruzioni.

Alcuni vantaggi che si ottengono integrando la stampa in braille di Biblos

Biblos viene sempre installato nella cartella di sistema dei "Programmi": ..\DIGRANDE\BIBLOS5
La cartella "Programmi" dovrebbe essere sempre ricavata avvalendosi delle funzionalità di sistema, mai usando percorsi preimpostati. Quindi Biblos può essere avviato lanciando il file eseguibile "Biblos.exe".
Se il percorso e il file eseguibile non esistono, significa che Biblos non è installato nel sistema. Controllare la presenza del file "Biblos.exe" è utile per verificare se Biblos è installato. In coda a questo documento è presente un esempio di codice su come ricavare il percorso di Biblos, se presente.
Inoltre, è possibile avviare Biblos utilizzando solo il suo nome nella shell di sistema. Per esempio, si può aprire la finestra "Esegui" di Windows e scrivere il comando "Biblos". Questo avvierà Biblos. Il nome "Biblos" può essere utilizzato anche dall'istruzione API "ShellExecute".

Al fine di automatizzare l'apertura e la stampa braille di documenti, "Biblos.exe" accetta alcuni parametri:

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

Come integrare la stampa in braille nel proprio software

Quando l'utente clicca sul comando di stampa in braille

Una funzione Delphi che ritorna il path di Biblos 5, se installato


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 funzione Delphi che ritorna true se Biblos è in esecuzione


Uses
WinApi.Windows;

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