Помогите перевести c Delphi на C++ фрагмент

[-=Женек=-]

На Delphi:

procedure TMainForm.ShowRead(HidDev: TJvHidDevice; ReportID: Byte;
const Data: Pointer; Size: Word);

.......................
for I := 0 to Size - 1 do
Str := Str + Format('%.2x ', [Cardinal(PAnsiChar(Data)[I])]);

................

В билдере заголовок функции таков:

void __fastcall TForm1::HidCtlDeviceData(TJvHidDevice *HidDev, BYTE ReportID, const Pointer Data, WORD Size)

Как в билдере обратиться к конкретному элементу Data ? И, в идеале, вывеcти его строкой в Memo..

Спасибо.

[-=Женек=-]

Блин... так всегда.... два часа проковыряешься, бестолку, стоит только задать вопрос на форуме - тут же решение приходит в голову. Спасибо.

[-=Женек=-]

Не... поторопился я...
Вот эта конструкция (PAnsiChar(Data)[I]); дает мне символ с кодом, содержащимся в (Data)[I].
Кстати, почему (Data)[I], а не (Data[I]) ?

А как мне получить непосредственно код, то есть число unsigned char ?

[silly]

Сообщение от -=Женек=-

Кстати, почему (Data)[I], а не (Data[I])?

Нифига не понял. Вопрос не про приведение типа Pointer → PAnsiChar надо полагать?

Сообщение от -=Женек=-

А как мне получить непосредственно код, то есть число unsigned char ?

На delphi или на c++?

[Hopkroft]

-=Женек=-,
Может для начала заголовок нужно на этот поменять?
void __fastcall HidDevCtlDeviceData(TJvHidDevice *WorkDev, BYTE ReportID, const *Data, WORD Size);

И что у вас за тип Pointer? В билдере разве есть такой тип.
На вашем месте, я бы посмотрел готовые исходники на билдере для компонента jvHidDevice, а потом переделал бы их под свою задачу

[-=Женек=-]

Hopkroft,

На вашем месте, я бы посмотрел готовые исходники на билдере

ОЧень странный подход. Если вы хотите пронести шкаф в дверь, вы будете пилить дверной проем вместо того, чтобы разобрать шкаф?

бы их под свою задачу

Моя задача не конфликтует с jvHidDevice, просто отображение информации в примере от производителя не сходится с желаемым.

silly,

На delphi или на c++?

На С++.

[Hopkroft]

Сообщение от -=Женек=-

Hopkroft,

ОЧень странный подход. Если вы хотите пронести шкаф в дверь, вы будете пилить дверной проем вместо того, чтобы разобрать шкаф?

Не совсем понял аллегорию. У вас в поставке JVCL идёт 4 примера, работы с компонентом jvHidDevice. Вы их разобрали?

Сообщение от -=Женек=-

Моя задача не конфликтует с jvHidDevice, просто отображение информации в примере от производителя не сходится с желаемым.

Какая версия JVCL? И что-то мне подсказывает что возможно некорректность чтения вызвана программами по типу USB Safely Remove. У меня пару раз были проблемы с определением флешек, после того как пользовался "народными" поделками. Хотя Safely работает без нареканий.

UPD. А что за девайс хоть? Дома смогу посмотреть результат для джойстика XBox.
И чем Delphi не устраивает?

[-=Женек=-]

У вас в поставке JVCL идёт 4 примера, работы с компонентом jvHidDevice. Вы их разобрали?

Под C++ примеров нет. Все 4 примера - для Дельфи.

готовые исходники на билдере для компонента jvHidDevice, а потом переделал бы их под свою задачу

Так это уже сделано, есил вы не поняли. ПОлностью переделал один из примеров, застрял только на вышеуказанной переменной.

программами по типу USB Safely Remove

Хм... внешняя программа влияет на процесс компиляции, и вызывает ошибку компиляции? Что-то новенькое.

Я понимаю, что вы не телепат, но неужели непонятно, что если я пишу:

Вот эта конструкция (PAnsiChar(Data)[I]); дает мне символ с кодом, содержащимся в (Data)[I].
Кстати, почему (Data)[I], а не (Data[I]) ?

А как мне получить непосредственно код, то есть число unsigned char ?

..то значит я пытался изменить конструкцию строки,пытаясь получить unsigned char, но застрял на стадии компиляции?
У меня программа в микроконтроллере, вней что-то вроде:

unsigned char a;
a=0xEF;
Buffer[i]=a;
SendUsb();

А уже в компе, в компоненте JvHidDevice происходит некое шаманство, которое упаковывает полученные данные в const Pointer Data.
И если я записал в Buffer 0x30, то конструкция [Cardinal(PAnsiChar(Data)[I])] предстает на экране в виде строки "48", если использовать PAnsiChar(Data)[I], то это дает строку (символ) "0".

А я хочу нечто вроде:

unsigned char X;
X=Data[i];

как мне это реализовать?

[Hopkroft]

Сообщение от -=Женек=-

И если я записал в Buffer 0x30, то конструкция [Cardinal(PAnsiChar(Data)[I])] предстает на экране в виде строки "48", если использовать PAnsiChar(Data)[I], то это дает строку (символ) "0".
как мне это реализовать?

Всё правильно 48 это код 0, и 0x30 соответствует символ 0.

По идее вот так:

unsigned char x;
x=(unsigned char)(PAnsiChar(Data)[I]);

x при печати выведет 0.

Cardinal в Delphi это unsigned int в Buildere.

[Spectator]

там глюка, кажись.
именно с этим типом - AnsiChar, в дельфе он равен char'у, а в Builder - Short'у. Т.е. два байта.
Что делать - для начала вывести sizeof(AnsiChar) и посмотреть сколько выйдет. Если 2, то дело в этом.

[-=Женек=-]

Hopkroft,
Спасибо, но вот только PAnsiChar как то режет глаз.
Получилось вот так:

(int)(((unsigned char*)Data)[I] & 0xFF)

Spectator,

там глюка, кажись.
именно с этим типом - AnsiChar, в дельфе он равен char'у, а в Builder - Short'у. Т.е. два байта.
Что делать - для начала вывести sizeof(AnsiChar) и посмотреть сколько выйдет. Если 2, то дело в этом.

Вот шайтан - а глюк этот и правда есть. Вчера долго не мог понять, почему иногда в комп приходят 6-8-значные числа. Видать, когда число превышало 128. Пытался списать это на глюк контроллера, который на тот момент действительно сидел в его прошивке.

[Hopkroft]

-=Женек=-, тогда уж лучше
(unsigned int)(((unsigned char*)Data)[I] & 0xFF).
Без PAnsiChar смотрится лучше и нагляднее.

[-=Женек=-]

Hopkroft,

(unsigned int)(((unsigned char*)Data)[I] & 0xFF).

А вот так:

(unsigned int)(((unsigned char*)Data)[I] & 0xFF);

еще красивше )))))

[Hopkroft]

-=Женек=-, на unsigned int заменил, что-бы не было переполнения при чтении данных. Не зря же в Дельфёвом примере они использовали Cardinal (беззнаковый тип).

[-=Женек=-]

Cardinal

Не знал. думал какая-то фенечка библиотечная.

[Hopkroft]

-=Женек=-, кстати, а что за контроллер?

[-=Женек=-]

STM32F103VGT6

кстати, а почему приводится к типу int, а не char?
И зачем вообще приводить -я сделал просто (((unsigned char*)Data)[I] & 0xFF). - работает.
МОжет, при условии, что кроме unsigned char ничего не ожидается, приведение не нужно?

[Spectator]

во вы творите

Сообщение от -=Женек=-

STM32F103VGT6

кстати, а почему приводится к типу int, а не char?
И зачем вообще приводить -я сделал просто (((unsigned char*)Data)[I] & 0xFF). - работает.
МОжет, при условии, что кроме unsigned char ничего не ожидается, приведение не нужно?

к инту приводится потому что это стандартный тип для хранения таких данных. от char'а и даже от unsigned char'а надо сразу уходить. бо не забываем что иначе 3*100 = 44

[-=Женек=-]

Spectator,
Для микроконтроллеров пишу куда больше, чем для PC.
Привычка экономить на всем, дабы влезть в 1 кб ОЗУ, развилась еще когда я AVR юзал.

[Spectator]

Сообщение от -=Женек=-

Spectator,
Для микроконтроллеров пишу куда больше, чем для PC.
Привычка экономить на всем, дабы влезть в 1 кб ОЗУ, развилась еще когда я AVR юзал.

это я всё понимаю.
ты спросил - зачем, я тебе говорю - затем.

[-=Женек=-]

ты спросил - зачем, я тебе говорю - затем.

ууу... тогда почему не в long int? или в float, на всякий случай.
ИМХО, программист сам обязан контроллировать размерность данных.

[Spectator]

Сообщение от -=Женек=-

ууу... тогда почему не в long int? или в float, на всякий случай.
ИМХО, программист сам обязан контроллировать размерность данных.

патаму шта int - это более правильный тип. самый правильный, православный.
всё что меньше - мало, всё что больше - много.

[-=Женек=-]

Spectator,

патаму шта int - это более правильный тип. самый правильный, православный

Ага.... а char - обрезанный, значит, иудейский, стало быть?
А буддийский тип не подскажете? Который в памяти чакры открывает?

[silly]

Сообщение от -=Женек=-

И зачем вообще приводить -я сделал просто (((unsigned char*)Data)[I] & 0xFF). - работает.

Здесь по идее должно быть что-то вроде (unsigned int*)Data[i] (если там действительно два байта на символ), но нужно посмотреть определение PAnsiChar, поскольку судя по выводу гугла скорее всего Spectator путает его с PChar.

[-=Женек=-]

Продолжаю копать. Чего я не понял с самого начала, и не пойму сейчас - зачем & 0xFF?
Убрал - тоже работает.

[Spectator]

Сообщение от -=Женек=-

Продолжаю копать. Чего я не понял с самого начала, и не пойму сейчас - зачем & 0xFF?
Убрал - тоже работает.

Убирает всё что свыше одного байта. Если в байт и запихивать - совершенно без нужды. Если в инт - будет разница

int m = 0x101;
int n = m & 0xFF;

n=1;

[Hopkroft]

Сообщение от -=Женек=-

Продолжаю копать. Чего я не понял с самого начала, и не пойму сейчас - зачем & 0xFF?
Убрал - тоже работает.

конечно будет работать, приведением к типу unsigned char вы "обрезали" остальные данные.
А получилось вам сделать вот этот фрагмент

(((unsigned char*)Data)[I] & 0xFF).

т.к. компилятор смог преобразовать тип, вот и всё.
По-поводу того что int православнее в данном случае я бы поспорил. Если у Евгения, библиотека обрабатывает, по 1 байту из потока, зачем ему использовать int?
Где он выиграет?

[silly]

Э… Вы бы сначала разобрались кто из вас вообще первым предложил использовать int, а то здесь выходит спор без предмета спора.

[Hopkroft]

silly, первым int было предложено использовать в примере от создателей компонентов. Потом, оказалось что нужно работать с unsigned char, ну и понеслось))

[Spectator]

почему int самый православный тип. еще раз, хотя я уже объяснял.
по правилам и идее размерность (в байтах) инта должна быть равна разрядности процессора. это самый родной для процессора тип данных. для оперирования целыми числами с большей или меньшей размерностью процессор либо обрезает данные в регистрах, либо задействует память свыше одного регистра.
ПОЭТОМУ в случаях, когда не ТРЕБУЕТСЯ использовать более другой тип данных, нужно использовать именно int.