Discussion :

[Sapajou]

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

#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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

lu1=*qsdfbbb*
fin

- Avec le source AVEC Readln

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

lu1=**
fin

- Si je fais EXECUTER dans Delphi j'ai le message:

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

[Sapajou]

Bonjour,
Merci Cl@udius, très bonne présentation. J'ai plus de chance d'avoir une réponse.