Автор | Сообщение |
|
Отправлено: 30.07.12 14:40. Заголовок: Адаптация кода C++ в КаВо
Добрый день! Найдётся ли специалист, который сможет мне помочь адаптировать код C++ в CA-Visual Objects? Общие представления у меня есть, но некоторые вещи у меня не получаются. Заранее благодарен.
| |
|
Ответов - 25
, стр:
1
2
All
[только новые]
|
|
|
Отправлено: 30.07.12 14:41. Заголовок: Тут возникает нескол..
Тут возникает несколько вопросов. Является ли интерфейс подключения объектных модулей на С/С++ в CAVO таким же, как в Clipper? Или же в CAVO свои интерфейсные функции для передачи аргументов и возвращаемых значений? Насколько мне известно семейство типов данных в CAVO было существенно расширено по сравнению с Clipper, а значит должны быть новые интерфейсные функции. Нужно ли включать код на С++ или же на С? Дело в том, что в С++ создаются длинные имена функций, зависящие от компилятора. Я не имел дело с CAVO, поэтому ничего не могу сказать. В Google имеются форумы по CAVO. Например, [url=https://groups.google.com/forum/?hl=ru&fromgroups#!forum/comp.lang.clipper.visual-objects]здесь[/url]
| |
|
|
Отправлено: 30.07.12 15:13. Заголовок: Там же, в Google ест..
Там же, в Google есть и второй подобный [url=https://groups.google.com/forum/?fromgroups#!forum/comp.lang.clipper]форум[/url]
| |
|
|
Отправлено: 30.07.12 15:19. Заголовок: Добрый вечер! Спас..
Добрый вечер! Спасибо за наводки на форумы. Скажу сразу: интерфейсные функции не нужны. Это не нужно. Суть такова: есть DLL, а в КаВо есть возможность использовать DLL-ки, сделанные в среде С/С++ Пример: есть Win32 API-функция CopyFileA, а я её хочу использовать, но под именем CopyFile. Чтобы её использовать, мне достаточно написать следующее: _DLL FUNC CopyFile(lpExistingFileName AS PSZ, lpNewFileName AS PSZ, bFailIfExists AS LOGIC); AS LOGIC PASCAL:KERNEL32.CopyFileA#48 После этого, я её спокойно использую. Как бы суть понятна... У меня есть DLL-ка RFIDAPI32PC.dll и пример работы с ней, написанный на C++. В этом примере применяются функции из этой .dll-ки. Никакого вывод на экран (вывод я сделаю потом, как будет надо). И всё хорошо, но у меня есть некоторое недопонимание и ошибки... В частности, например, там (насколько я понял) используется Unicode, а в КаВо стандартно он не используется... Поэтому и хотелось бы разобрать код с человеком, который имеет опыт перевода (адаптации) кода из Си в КаВо. На этом форуме я увидел несколько человек, которые ранее работали с КаВо. Возможно они имеют некоторый опыт. Поэтому и написал это сообщение сюда.
| |
|
|
Отправлено: 30.07.12 15:21. Заголовок: Приведи здесь пример..
Приведи здесь примеры вызовов этих функций из RFIDAPI32PC.dll с одной стороны. И с другой стороны опиши возможные в Каво типы данных и т.д. которые можно употреблять в _DLL FUNC и вообще синтаксис приведи. В принципе, ситуация в любом случае не патовая, даже если средствами Каво нужные типы невыразимы. В таких случаях пишется прокладочная dll на том же С или Delphi, которая принимает типы "удодные" и переводит их в нужные.
| |
|
|
Отправлено: 30.07.12 15:22. Заголовок: lopp007 Посмотрите ..
lopp007 Посмотрите ftp.cavo.com удаленный каталог /pubcavo/resources пароль anonymous для доступа использую TOTALCOM там есть примеры работы c Unicode
| |
|
|
Отправлено: 30.07.12 15:23. Заголовок: 2 Avseev: каталог та..
2 Avseev: каталог такой знаю, может носом тыкнёте в примеры? Буду премного благодарен. 2 Sergey Spirin: я об этом вчера уже думал. К сожалению, я не пишу на C++ и знакомого, чтобы помог проверить тоже нет... Кроме того, обнаружились ошибки в описании функций - чуток продвинулся дальше... Сможете мне помочь проверить пару функций? У меня есть пример (должен быть рабочим), исходники. Мне нужно узнать, что видно у вас (в С++) и сравнить с тем, что видно у меня (в КаВо). Может, там есть ещё одна ошибка и проблема не в unicode... Ну, а если в unicode, то тогда бы я попросил момочь мне сделать прокладку по двум функциям. Этот же вопрос я адресую и Сыроежке.
| |
|
|
Отправлено: 30.07.12 15:23. Заголовок: loop007 пишет: ци..
loop007 пишет: цитата: | У меня есть пример (должен быть рабочим), исходники. Мне нужно узнать, что видно у вас (в С++) и сравнить с тем, что видно у меня (в КаВо). Может, там есть ещё одна ошибка и проблема не в unicode... Ну, а если в unicode, то тогда бы я попросил момочь мне сделать прокладку по двум функциям. |
| Вы можете самостоятельно проверить эти функции, установив у себя на машине любой компилятор С/С++. Сейчас много есть свободно распространяемых компиляторов. Например, можно установить Microsoft Visual C++ 2010 Express Edition, либо любой другой. В любом случае полезно иметь под рукой С/С++ компилятор, так как Clipper-производные пакеты всегда предполагают интерфейс с С. Если у вас будут возникать ошибки компиляции, то вы можете вынести их сюда, на форум, на обсуждение. Либо если вам не понятен какой-то фрагмент кода, вы также можете его вынести на обсуждение на форуме.
| |
|
|
Отправлено: 30.07.12 15:27. Заголовок: loop007 пишет: то ..
loop007 пишет: цитата: | то тогда бы я попросил момочь мне сделать прокладку по двум функциям. |
| Индивидуально вряд ли кто помогать будет. А коллективно, может и подскажем/наведем. Поэтому выкладывай здесь описание функции в dll, пример ее вызова в С++, и как пытаешься вызвать в каво, с комментариями об специфичных типах каво. Посмотрим...
| |
|
|
Отправлено: 30.07.12 16:43. Заголовок: Давайте попробуем.....
Давайте попробуем... Function Prototype const TCHAR * WINAPI RFID_GetCommandStatusText(int stat); Parameters stat Status code returned by an RFID API function call. Return Values Returns a human readable string representing the RFID API’s integer error code. Вот, что на самом деле (взял из рабочего примера на Visual Studio 2005: => RFID_GetCommandStatusText(hReader, dwStatus) (Т.е., я уже узнал, что там не один, а два параметра :)) Перенёс в КаВо вот так: _DLL FUNC RFID_GetCommandStatusText( hReader AS PTR, dwStatus AS DWORD ) ; AS PSZ PASCAL:RFIDAPI32PC.RFID_GetCommandStatusText#148 Но возвращает она мне только первую букву сообщения… То ли это функция глючная, то ли я глючу :)) Идём дальше: bool ConfigureTCPIP(HANDLE hReader, TCHAR *ptszIPAddress, WORD wPort) { bool bSuccess = FALSE; DWORD dwItems = 1; DWORD dwStatus = RFID_SUCCESS; dwStatus = RFID_SetCapCurrValue(hReader, RFID_DEVCAP_IP_PORT, &dwItems, sizeof(wPort), &wPort); IF(dwStatus == RFID_SUCCESS) { dwItems = (DWORD)wcslen(ptszIPAddress) + 1;// + 1 for null dwStatus = RFID_SetCapCurrValue(hReader, RFID_DEVCAP_IP_NAME, &dwItems,; dwItems * sizeof(ptszIPAddress[0]), ptszIPAddress); Function Prototype RFID_SetCapCurrValue(HANDLE hReader, DWORD dwCapId, DWORD *pdwNumItems, DWORD dwValueBufSize, LPVOID pvValueBuf); Parameters hReader Handle to open RFIDAPI. dwCapId Id of capability being referenced. pdwNumItems Number of items that can fit into pvValueBuf. dwValueBufSize Size of pvValueBuf in BYTES. pvValueBuf Buffer that receives default value. Return Values If the function succeeds, the return value is RFID_SUCCESS. If the function fails, an "RFID_XXXX" error code is returned. Comments The API assumes that pvValueBuf points to 1 or more items. Each item can be a BYTE, WORD, or DWORD (8, 16, or 32bit value). The API calculates an item's size as follows: ItemSize = *pdwNumItems / dwValueBufSize; The API correctly converts a smaller item into a larger item, but not vice-versa. That is, if the caller supplies an array of DWORDs to the API, and the Capability is an array of bytes, each byte is properly placed into the supplied DWORD array as DWORDs. The API cannot put a DWORD into a WORD or BYTE since these items are not large enough to hold DWORDs. Понятно, что в КаВо эта функция будет выглядеть типа так: _DLL FUNC RFID_SetCapCurrValue( hReader AS PTR, dwCapId AS DWORD, pdwNumItems AS DWORD PTR, dwValueBufSize AS DWORD, pvValueBuf AS PSZ) AS DWORD PASCAL:RFIDAPI32PC.RFID_SetCapCurrValue И как будет выглядеть следующий код в КаВо? bool ConfigureTCPIP(HANDLE hReader, TCHAR *ptszIPAddress, WORD wPort) { bool bSuccess = FALSE; DWORD dwItems = 1; DWORD dwStatus = RFID_SUCCESS; dwStatus = RFID_SetCapCurrValue(hReader, RFID_DEVCAP_IP_PORT, &dwItems, sizeof(wPort), &wPort); IF(dwStatus == RFID_SUCCESS) { dwItems = (DWORD)wcslen(ptszIPAddress) + 1;// + 1 for null dwStatus = RFID_SetCapCurrValue(hReader, RFID_DEVCAP_IP_NAME, &dwItems,; dwItems * sizeof(ptszIPAddress[0]), ptszIPAddress); FUNCTION ConfigureTCPIP( hReader AS PTR, ptszIPAddress AS PSZ, wPort AS WORD ) AS LOGIC PASCAL LOCAL bSuccess := FALSE AS LOGIC LOCAL dwItems := 1 AS DWORD LOCAL dwStatus := RFID_SUCCESS AS DWORD dwStatus := RFID_SetCapCurrValue( hReader, RFID_DEVCAP_IP_PORT, @dwItems, sizeof(wPort), @wPort); IF(dwStatus == RFID_SUCCESS) // dwItems = (DWORD)wcslen(ptszIPAddress) + 1;// + 1 for null // dwStatus = RFID_SetCapCurrValue(hReader, RFID_DEVCAP_IP_NAME, &dwItems,; // dwItems * sizeof(ptszIPAddress[0]), ptszIPAddress); Как переделать последние три строки – я не знаю… Для справки: соответствие цифровых типов Си и КаВо почти полное (нет LONG LONG и ещё некоторых) Указателей в КаВо два: PSZ и PTR PSZ - это указатель на строку с нулём в конце (строка с обязательным 0x00 в конце) а PTR - просто указатель на область памяти
| |
|
|
Отправлено: 30.07.12 16:44. Заголовок: loop007 , не в тему..
loop007 , не в тему, по оформлению: текст кода можно выделить и отметить как "Моноширинный шрифт" (кнопочка с цифрами "123"). Тогда намного лучше читается, можно отступы сделать.
| |
|
|
Отправлено: 30.07.12 16:45. Заголовок: Т.е., проблема с пон..
Т.е., проблема с пониманием (DWORD)wcslen(ptszIPAddress) и sizeof(ptszIPAddress[0]) ptszIPAddress - это строка в UNICODE (IP-адрес) но в ANSI (у меня только ANSI) 256.256.256.256 - длина 15 (+1) sizeof в КаВо будет или _SizeOf или просто SizeOf ptszIPAddress[0] - откуда [0]? Это связано с Unicode? Как это написать для ANSI?
| |
|
|
|
Отправлено: 30.07.12 16:46. Заголовок: Спасибо, текст сдела..
Спасибо, текст сделал моноширинным. Что-то ещё поправить? Объём не великоват?
| |
|
|
Отправлено: 30.07.12 16:53. Заголовок: loop007 пишет: Fun..
loop007 пишет: цитата: | Function Prototype const TCHAR * WINAPI RFID_GetCommandStatusText(int stat); Parameters stat Status code returned by an RFID API function call. Return Values Returns a human readable string representing the RFID API’s integer error code. Вот, что на самом деле (взял из рабочего примера на Visual Studio 2005: => RFID_GetCommandStatusText(hReader, dwStatus) (Т.е., я уже узнал, что там не один, а два параметра :)) Перенёс в КаВо вот так: _DLL FUNC RFID_GetCommandStatusText( hReader AS PTR, dwStatus AS DWORD ) ; AS PSZ PASCAL:RFIDAPI32PC.RFID_GetCommandStatusText#148 Но возвращает она мне только первую букву сообщения… То ли это функция глючная, то ли я глючу :)) |
| TCHAR может быть UTF-16, что скорее всего и функция возвращает. Попробуй конвертировать возврат WinAPi-функцией, например WideCharToMultiByte().
| |
|
|
Отправлено: 30.07.12 16:54. Заголовок: А что про (DWORD)wcs..
А что про (DWORD)wcslen(ptszIPAddress) и sizeof(ptszIPAddress[0]) скажете? что, почему и для чего делается? С WideCharToMultiByte пока не получается, т.к. длина возвращаемого значения - 1 Что-то где-то не там читаю...
| |
|
|
Отправлено: 30.07.12 16:55. Заголовок: Длину попробуй опред..
Длину попробуй определить с помощью lstrlenW(), она в kernel32. Остальное может вечером гляну, сейчас не могу.
| |
|
|
Отправлено: 30.07.12 16:56. Заголовок: loop007 пишет: А чт..
loop007 пишет: цитата: | А что про (DWORD)wcslen(ptszIPAddress) и sizeof(ptszIPAddress[0]) скажете? |
| Что именно здесь непонятно? (DWORD)wcslen(ptszIPAddress) - приведет к типу DWORD длину юникодной строки ptszIPAddress. sizeof(ptszIPAddress[0]) будет 2, если ptszIPAddress юникодная строка.
| |
|
|
Отправлено: 30.07.12 16:59. Заголовок: Sergey Spirin пишет:..
Sergey Spirin пишет: цитата: | (DWORD)wcslen(ptszIPAddress) - приведет к типу DWORD длину юникодной строки ptszIPAddress. sizeof(ptszIPAddress[0]) будет 2, если ptszIPAddress юникодная строка. |
| Именно это я и хотел услышать. А при ANSI sizeof(ptszIPAddress[0]) будет 1 Спасибо. Sergey Spirin пишет: цитата: | Длину попробуй определить с помощью lstrlenW(), она в kernel32. |
| Буковка W в конце названия функции обозначает, что это Unicode-функция, а значит, для КаВо это не подходит ... Всё равно, спасибо! Данную ситуация я как-то обойду. Последний вопрос по синтаксису: вот идёт получение handle hReader = OpenReader(TEXT("157.235.88.44"), 3000); а вот сама функция: /// Opens and establishs connection to a reader /// @param[in] tszNewIPAddressThe IP address of the reader /// @param[in] wPortThe TCP port of the reader HANDLE OpenReader(TCHAR tszNewIPAddress[32], WORD wPort) { Что значит TCHAR tszNewIPAddress[32], почему нельзя написать просто TCHAR tszNewIPAddress ? Что означают цифры 32? Я так подозреваю, что это длина в Unicode, а в ANSI это, наверное, будет 16... А без указания длины можно? Простите за дилетанские вопросы. Большая вам благодарность за долготерпение!
| |
|
|
Отправлено: 30.07.12 17:02. Заголовок: loop007 пишет: Бук..
loop007 пишет: цитата: | Буковка W в конце названия функции обозначает, что это Unicode-функция, а значит, для КаВо это не подходит ... |
| Что значит "не подходит"? У нее один параметр указатель, который у тебя есть. Вернет число. От того, что каво не содержит юникодные типы данных, это не означает, что ты не можешь вызвать функцию. loop007 пишет: цитата: | Что значит TCHAR tszNewIPAddress[32], почему нельзя написать просто TCHAR tszNewIPAddress ? |
| Здесь параметр определен как массив символов, а не как указатель на символ. Символов одинаково будет и в Ansi и в Unicode, а вот байтов такие массивы займут разное количество. P.S. Вообще, использование TCHAR и таких конструкций как TEXT(""), наводит на мысль, что должна быть ANSI-версия этой библиотеки. Ты уверен, что скачал нужное? Тип TCHAR обычно используется в случаях когда один код нужно компилировать в двух вариантах - Ansi и Unocode.
| |
|
|
Отправлено: 30.07.12 17:07. Заголовок: По первому ответу - ..
По первому ответу - принято. Уазатель он и есть указатель. Погорячился. Sergey Spirin пишет: цитата: | Здесь параметр определен как массив символов, а не как указатель на символ. Символов одинаково будет и в Ansi и в Unicode, а вот байтов такие массивы займут разное количество. P.S. Вообще, использование TCHAR и таких конструкций как TEXT(""), наводит на мысль, что должна быть ANSI-версия этой библиотеки. Ты уверен, что скачал нужное? Тип TCHAR обычно используется в случаях когда один код нужно компилировать в двух вариантах - Ansi и Unocode. |
| Вероятно, такая библиотека (ANSI) была ранее, но сейчас ничего не нашёл... Кроме того, старые библиотеки не поддерживают новые устройства (Motorola)... По поводу твоего объяснения что это не указатель, а массив... несколько в затруднении. Выходит, что TEXT() вернёт строку, которую передаём в функцию, но там её принимаем, как массив символов этой строки... Я правильно понял? Просто смотрю текст (примера): (Main) hReader = OpenReader(TEXT("157.235.88.44"), 3000); // Это строка но, в функции - это массив HANDLE OpenReader(TCHAR tszNewIPAddress[32], WORD wPort) при этом, в функции OpenReader тут же передаётся (без изменений) в функцию ConfigureTCPIP: IF(ConfigureTCPIP(hReader, tszNewIPAddress, wPort)) где, это вроде как указатель на строку: bool ConfigureTCPIP(HANDLE hReader, TCHAR *ptszIPAddress, WORD wPort) Это особенности синтаксиса Си, или я чего-то не понимаю?
| |
|
|
Отправлено: 30.07.12 17:08. Заголовок: loop007 пишет: Это..
loop007 пишет: цитата: | Это особенности синтаксиса Си, или я чего-то не понимаю? |
| Да я бы не сказал, что только Си, в Дельфи где-то также. Строка это и есть массив символов А указатель на строку это указатель на первый элемент массива - указатель на символ. В терминах Клиппера - "по ссылке и по значению".
| |
|
Ответов - 25
, стр:
1
2
All
[только новые]
|
|
|