Saisie télécommande ou clavier dans une DLL
Bonjour,
Je suis bien embêté, je voudrais installer un petit LCD AlphaCool 200x64 (emplacement 5 ''1/4) sur mon HTPC pour éviter d'allumer le plasma pour programmer l'enregistrement d'une émission de télé.
Il existe un logiciel qui gère cet écran, LCDHype. Il existe bien une instruction
%System.Input(GetCode/ReadCode.)
mais je n'ai pas réussit à obtenir de résultat. Un forum (Allemand et Anglais, Google est bien utile.) mais on ne peut plus s'inscrire.
Avec LCDHype il est également possible d'utiliser un Plugin sous la forme
%Assign(resultat,%UsePlugin(dossier du plugin, nom de la .DLL, fonction demandée)) .
Tous les Plugins et les exemples traitent des données CPU, ventilateur, disque dur ... ou de Winamp, mais aucun de saisie clavier ou mieux de télécommande.
Par défaut mon souhait, faire un Plugin tout simple pour récupérer le(s) caractère(s) saisi(s), de préférence télécommande.
Il y a une SDK prévue pour C++ et Delphi. Mais voilà quelles instructions ? J'ai cherché s'il y avait un source qui faisait cette fonction, je n'ai pas trouvé et pour moi tout cela c'est de l'hébreux.
Les données sont les suivantes:
- Compilateur Turbo Delphi 6
- LCDHype 0.6 (Peut être utilisé sans LCD, un cadre s'affiche sur l'écran)
- SCRIPT LCDHype
Citation:
#Header
/insert header code here/
%CleanUp.ClearInputBuffer(All)
%DefVar(lu1,Local='')
#EndHeader
#GfxMode
%Assign(lu1,%UsePlugin('lhplugin.dll',GetData))
'lu1=*'%lu1()'*'
%Common.CreateNewLine()
'fin'
#EndGfxMode
- Avec le source SANS Readln
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| function GetData(parameter : pchar) : TData;
var return : string;
c : integer;
s : string;
x : TData;
const f = #13;
begin
FillChar(x.data,sizeof(x.data),EOL);
return := '';
s:='';
return:='qsdf';
repeat
s:=s+'b'
until s='bbb';
return:=return+s;
for c:=0 to length(return)-1 do
x.data[c] := ord(return[c+1]);
result := x;
end; |
J'obtiens le résultat suivant sur le LCD
Citation:
lu1=*qsdfbbb*
fin
- Avec le source AVEC Readln
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| function GetData(parameter : pchar) : TData;
var return : string;
c : integer;
s : string;
x : TData;
const f = #13;
begin
FillChar(x.data,sizeof(x.data),EOL);
return := '';
s:='';
return:='qsdf';
repeat
readln(s)
until s=f;
return:=return+s;
for c:=0 to length(return)-1 do
x.data[c] := ord(return[c+1]);
result := x;
end; |
J'obtiens le résultat suivant sur le LCD
- Si je fais EXECUTER dans Delphi j'ai le message:
Citation:
Exception déclenchée à $7C812A5B. Classe d'exception EInOutError avec message 'Erreur E/S 6'. Processus lcdhype.exe (2460)
Si quelqu'un pouvait m'aider, ce serait formidable. J'ai des idées mais pas de pétrole !!
Merci d'avance.
Liens:
AlphaCool
http://www.pc-look.com/boutik/Prod_A...__5740_fr.html
LCDHype.
http://lcdhype.de/
SDK http://lcdhype.de/index.php?showforum=58
