Keyhook - wParam und lParam in ASCII umwandeln

[erich.wanker]

OK .. Test funktioniert ..

Delphi-Quellcode:

function mylength(s: String): Integer;
var
  len: Integer;
begin
  len := 1;
  while s[len] <> #0 do
    inc(len);
  result := len-1;
end;

Delphi-Quellcode:

var
    zeit1,zeit2,zeit3,zeit4,zeit5,zeit6,zeit7,zeit8,zeit9,zeit10,zeit11,zeit12     :TTime;
    barcodestring       :String;
    barcodelaenge       :Integer;
    hilfestring         :String;

Delphi-Quellcode:

procedure TVersatile_main_handle.DllMessage(var Msg: TMessage);
begin

//*********************************************************
//*********************************************************
//*********************  Barcodesachen.....      **********
//*********************************************************
//*********************************************************

if (Msg.wParam >47) AND (Msg.wParam <58) then
begin
//das Ding ist eine Zahl

            zeit12 :=zeit11;
            zeit11 :=zeit10;
            zeit10 :=zeit9;
            zeit9  :=zeit8;
            zeit8  :=zeit7;
            zeit7  :=zeit6;
            zeit6  :=zeit5;
            zeit5  :=zeit4;
            zeit4  :=zeit3;
            zeit3  :=zeit2;
            zeit2  :=zeit1;
            zeit1  :=now;

     barcodestring:=barcodestring+char(Msg.wParam);

     if  mylength(barcodestring) > 12 then
     begin
     hilfestring:=copy(barcodestring,2,12); {-->}  barcodestring:= hilfestring;
     end;
memo1.Lines.Append('barcodestring= '+barcodestring);
     if  mylength(barcodestring) = 12 then
     begin
     // ich hab eine Anzahl von 12 Zahlen gesammelt
         if zeit1-zeit12 <3 then
         begin
         memo1.Lines.Append('***** Barcode : '+barcodestring);
         barcodestring:='';
         end;

     end;


end
else
begin
//das Ding ist KEINE Zahl
     barcodestring:='';
end;

[SirThornberry]

Du hast jetzt 99 Beiträge und ich dachte eigentlich da weiß man dann inzwischen das pushen innerhalb von 24 Stunden in der DP nicht erwünscht ist. Bitte unterlasse das zukünftig und verwende den "bearbeiten"-Button

Warum merkst du dir eigentlich 12 Zeiten? merke dir doch einfach nur eine Zeit bei Eintreffen des ersten Zeichens und wenn du das letzte Zeiten empfangen hast kannst du diese eine Zeit mit der aktuellen Zeit vergleichen.