Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.11.2016, 19:33   #1
BARNEY
Участник клуба
 
Регистрация: 23.04.2009
Сообщений: 1,058
По умолчанию Графический планшет wacom stu-300

Добрый день, есть у кого пример работы с планшетом типо wacom stu-300 в delphi XE7.
Если вам человек помог, не стесняйтесь говорить спасибо (весы под аватаром)
BARNEY вне форума Ответить с цитированием
Старый 22.11.2016, 10:44   #2
BARNEY
Участник клуба
 
Регистрация: 23.04.2009
Сообщений: 1,058
По умолчанию

Решил проблему... примерно так
Код:
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;
Если вам человек помог, не стесняйтесь говорить спасибо (весы под аватаром)
BARNEY вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Делфи и графический планшет Дмитрий-кодер Общие вопросы Delphi 10 26.02.2013 15:33
Картинка размером 100*100 пикс должна перемещаться по сторонам квадрата размером 300*300 пикс kolomon2707 JavaScript, Ajax 3 07.05.2012 20:07
планшет Alexspirit Компьютерное железо 0 11.10.2011 13:08
Графичесуий планшет Sasha1994 Софт 2 23.03.2011 08:08
Компонент Wacom - Delphi Tablet Component 1.3 N0iD Компоненты Delphi 3 11.02.2011 02:44