Работа с графическим планшетом wacom stu-300 средствами Делфи

Posted by obzor under Delphi

Есть у кого пример работы с планшетом типо 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;

тема на форуме

Похожие статьи

• Генерация и синтез звуковых волн
• Взять кадр из видео без остановки видео потока (BASSVIDEO)
• Авто переключение с трека на трек при воспроизведении (TMediaPlayer)
• Быстрое отражение изображения в Делфи
• Сравнение изображений
• как обрезать изоображение в формате jpeg
• Ластик для имиджа image1
• Громкость определенного момента времени
• Какой планшет купить для школы?
• Проигрывание видео, как сделать на весь экран?