Как сделать вызов аналогичный данному в FoxPro "WinAPI" / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как сделать вызов аналогичный данному в FoxPro "WinAPI"

4 сообщений из 4, страница 1 из 1

Как сделать вызов аналогичный данному в FoxPro "WinAPI"

#35648316

НовичокAPI

Гость

Есть кусок из Delphi помогите перевести в Fox

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Type FT_Result = Integer;
var
	FT_Device_Count : DWord;
Const 
    FT_LIST_NUMBER_ONLY = $ 80000000 ;
    FT_DLL_Name = 'FTD2XX.DLL';
	FT_OK = 0 ;
implementation	
function FT_GetNumDevices(pvArg1:Pointer; pvArg2:Pointer; dwFlags:Dword):FT_Result; stdcall; External FT_DLL_Name name 'FT_ListDevices';

Собственно вызов
...
Result := FT_GetNumDevices(@FT_Device_Count,Nil,FT_LIST_NUMBER_ONLY);
...

...

Рейтинг:

0 / 0

12.11.2008, 10:00

| Ответить | Цитировать | Написать

Как сделать вызов аналогичный данному в FoxPro "WinAPI"

#35648878

Kruchinin Pahan

Участник

Откуда: Екатеринбург

Сообщения: 926

Рейтинг: 0 / 0

НовичокAPIЕсть кусок из Delphi помогите перевести в Fox

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Type FT_Result = Integer;
var
	FT_Device_Count : DWord;
Const 
    FT_LIST_NUMBER_ONLY = $ 80000000 ;
    FT_DLL_Name = 'FTD2XX.DLL';
	FT_OK = 0 ;
implementation	
function FT_GetNumDevices(pvArg1:Pointer; pvArg2:Pointer; dwFlags:Dword):FT_Result; stdcall; External FT_DLL_Name name 'FT_ListDevices';

Собственно вызов
...
Result := FT_GetNumDevices(@FT_Device_Count,Nil,FT_LIST_NUMBER_ONLY);
...

Код: plaintext

FT_LIST_NUMBER_ONLY = $ 80000000 ;

преобразуется в

Код: plaintext

#DEFINE FT_LIST_NUMBER_ONLY 0x80000000

Код: plaintext

function FT_GetNumDevices(pvArg1:Pointer; pvArg2:Pointer; dwFlags:Dword):FT_Result; stdcall;

преобразуется предоположим:

Код: plaintext

DECLARE LONG FT_ListDevices IN FTD2XX.DLL AS FT_GetNumDevices LONG@ pvArg1, LONG@ pvArg2, INTEGER dwFlags

Хотя, с LONG надо будет еще поиграться.

...

Рейтинг:

0 / 0

12.11.2008, 12:37

| Ответить | Цитировать | Написать

Как сделать вызов аналогичный данному в FoxPro "WinAPI"

#35648984

НовичокAPI

Гость

Вот такой код

Код: plaintext

1.
2.
3.
4.
5.

DevNum= 0 
ParNull=NULL
#DEFINE FT_LIST_NUMBER_ONLY 0x80000000
DECLARE long FT_ListDevices IN FTD2XX.DLL long @Par1,long @Par2,integer Par3
?FT_ListDevices(@DevNum,null,FT_LIST_NUMBER_ONLY)
?FT_ListDevices(@DevNum,@ParNull,FT_LIST_NUMBER_ONLY)

дает ошибку см.jpg
Data type mismatch

...

Рейтинг:

0 / 0

12.11.2008, 13:04

| Ответить | Цитировать | Написать

Как сделать вызов аналогичный данному в FoxPro "WinAPI"

#35649005

НовичокAPI

Гость

А это кусок из документации по использованию устройства в чем моя ошибка не пойму.
Устройство в системе есть дрова встали.

Код: plaintext

1.
2.
3.
4.
5.
6.

The examples that follow use these variables.
FT_STATUS ftStatus;
DWORD numDevs;
 1 . Get the number of devices currently connected
ftStatus = FT_ListDevices(&numDevs,NULL,FT_LIST_NUMBER_ONLY);
if (ftStatus == FT_OK)
{ // FT_ListDevices OK, number of devices connected is in numDevs } else { // FT_ListDevices failed }

...

Рейтинг:

0 / 0

12.11.2008, 13:11

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как сделать вызов аналогичный данному в FoxPro "WinAPI"

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/search_topic.php?author=promukk&author_mode=last_posts&do_search=1]:	0ms
get settings:	9ms
get forum list:	15ms
get settings:	11ms
get forum list:	15ms
get settings:	7ms
get forum list:	15ms
get settings:	10ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	61ms
get topic data:	14ms
get forum data:	3ms
get page messages:	50ms
get tp. blocked users:	3ms
others:	1452ms

total:	1687ms