Графический планшет wacom stu-300

[BARNEY]

Добрый день, есть у кого пример работы с планшетом типо wacom stu-300 в delphi XE7.

[BARNEY]

Решил проблему... примерно так

var
  InputReport: Array[0..255] of Byte;
  BytesRead: DWORD;
  x_old, y_old, x_new, y_new: integer;
begin
  _IsFirstPoint := True;
  x_old := 0; y_old := 0;
  Repeat
    if Capabilities.InputReportByteLength > 0 then begin
      FillChar(InputReport, SizeOf(InputReport), #0);
      // Считываем данные с планшета
      if ReadFile(HidHandle, InputReport,
                  Capabilities.InputReportByteLength, BytesRead, nil) then
      begin
        _ExistsSign := True;
        x_new := (InputReport[3]*1000 + (1000*InputReport[4] div 256)) div 62 + 50;
        y_new := (InputReport[5]*1000 + (1000*InputReport[6] div 256)) div 62;
        if InputReport[1] > 128 then
        begin
          if _IsFirstPoint then
          begin
            x_old := (InputReport[3]*1000 + (1000*InputReport[4] div 256)) div 62 + 50;
            y_old := (InputReport[5]*1000 + (1000*InputReport[6] div 256)) div 62;      
            _IsFirstPoint := False;
          end;
          form1.imgSign.Canvas.MoveTo(x_old, y_old);
          form1.imgSign.Canvas.LineTo(x_new, y_new);
        end;
        x_old := x_new; y_old := y_new;
      end;
    end;
  Until Terminated;

end;