Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Перевести структуру DISK_GEOMETRY в РВ / 7 сообщений из 7, страница 1 из 1
29.03.2011, 01:06
    #37186895
AIS
AIS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести структуру DISK_GEOMETRY в РВ
Для получения данных по комманде IOCTL_DISK_GET_DRIVE_GEOMETRY (значение см. winioctl.h) из функции DeviceIoControl есть структура:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
/*Delphi*/
DISK_GEOMETRY = packed record
    Cylinders : LARGE_INTEGER;
    MediaType : Integer;
    TracksPerCylinder : DWORD;
    SectorsPerTrack : DWORD;
    BytesPerSector : DWORD;
  end;
Как её адаприровыать к РВ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 07:54
    #37186988
Ikar
Ikar
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести структуру DISK_GEOMETRY в РВ
MSDNThe LARGE_INTEGER structure defines a 64-bit signed integer.

typedef struct _LargeInteger {
unsigned long hi;
long lo;
} LARGE_INTEGER;

hi: Upper 32 bits of the integer.

lo: Lower 32 bits of the integer.

For purposes of Microsoft Interface Definition Language (MIDL) compilation, the LARGE_INTEGER structure is equivalent to a 64-bit integer. Base representation of a 64-bit integer within the MIDL specification is as the __int64 or hyper types.

ИМХО:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
global type large_integer from structure
	unsignedlong	hi
	long		lo
end type

global type disk_geometry from structure
	LARGE_INTEGER	Cylinders
	integer		MediaType
	long		TracksPerCylinder
	long		SectorsPerTrack
	long		BytesPerSector
end type

Хотя, на счет "integer MediaType" могу обшибиться, не помню, на сколкьо РВ-шный Integer соответствует... Эксперементиовать надо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 22:08
    #37189040
Локшин Марк
Локшин Марк
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести структуру DISK_GEOMETRY в РВ
IkarХотя, на счет "integer MediaType" могу обшибиться, не помню, на сколкьо РВ-шный Integer соответствует... Эксперементиовать надо.
Integer Delphi = long PB.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2011, 00:34
    #37189207
AIS
AIS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести структуру DISK_GEOMETRY в РВ
Спасибо за советы, но чего-то все равно не выходит.
РВ10.5. Делаю так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
/*обращаюсь к диску*/
lul_hDisk = CreateFile( "\\.\C:", GENERIC_READ, FILE_SHARE_READ_OR_WRITE,  0 , OPEN_EXISTING,  0 ,  0 )
/*и так пробывал "\\.\PhysicalDrive0"*/
/*всегда - ОК*/

Constant ULong  IOCTL_DISK_GET_DRIVE_GEOMETRY =  458752 
DISK_GEOMETRY dg
lul_lpOutBuffer = uo_sizeof.sizeof(dg)

/*тест*/
If DeviceIoControl( lul_hDisk, IOCTL_DISK_GET_DRIVE_GEOMETRY,  0 ,  0 , dg, lul_lpOutBuffer, lul_lpBytesReturned,  0 ) =  0  Then
   Messagebox("GET_DRIVE_GEOMETRY", "INVALID_HANDLE_VALUE")
END
Вот тест не проходит, структура без данных.
Может где-то в другом месте ошибка?
т.к. в опытах с другими командами (IOCTL_STORAGE_GET_DEVICE_NUMBER, IOCTL_DISK_GET_LENGTH_INFO) информацию получаю, соответствующие структуры с данными.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2011, 00:54
    #37189224
Anatoly Moskovsky
Anatoly Moskovsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести структуру DISK_GEOMETRY в РВ
AISСпасибо за советы, но чего-то все равно не выходит.
Вы решили проверить наши телепатические способности? :)

Для начала приведите вашу декларацию для каждой структуры, декларацию внешней функции и значение которое вернула функция.
А также ваше значение lul_lpOutBuffer которое при правильном вызове должно быть равно 24.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2011, 00:55
    #37189225
AIS
AIS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести структуру DISK_GEOMETRY в РВ
А-а ё!

Всё заработало.
Всем большое спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2011, 01:11
    #37189239
AIS
AIS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести структуру DISK_GEOMETRY в РВ
Anatoly Moskovsky ,
да, значение lul_lpOutBuffer = 24.

P.S. создал новую структуру, как посоветовали, а в скрипте забыл имя поменять. :))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Перевести структуру DISK_GEOMETRY в РВ / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 270ms
Закрыть
start [/forum/topic.php?fid=15&mobile=1&tid=1335760]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 173ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 2ms
others: 9ms
total:  270ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]