Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 17.11.2016, 20:33   #1
BARNEY
Профессионал
 
Регистрация: 23.04.2009
Сообщений: 1,055
Репутация: 169

icq: 94-555555
По умолчанию Графический планшет wacom stu-300

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

icq: 94-555555
По умолчанию

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

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 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Делфи и графический планшет Дмитрий-кодер Общие вопросы 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 09:08
Компонент Wacom - Delphi Tablet Component 1.3 N0iD Компоненты Delphi 3 11.02.2011 03:44




20:50.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru