VPF::Чтение флоппика - Форум программистов

Dimannn

Дата 13.10.2006, 00:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 14.4.2005
Где: Владимир

Репутация: нет
Всего: 1

Все приводят такой пример:
hFile:=CreateFile('\\.\A:',GENERIC_READ,FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

Говорят, что рабочий. И действительно, чё-то возвращает.

Но при попытке ReadFile(hFile,Buff,256,BytesRead,nil) возвращает: параметр задан неверно.
Почему это?

--------------------

Хотите быстро и без проблем опубликовать вашу программу в сети за 5 минут?
Тогда потратьте пару минут чтобы посмотреть, что предлагает OpenProject.org.ru

Romikgy

Дата 13.10.2006, 09:19 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

а дискета нормальная?
и попробуй поменять

Цитата(Dimannn @ 12.10.2006, 23:43

)

ReadFile(hFile,Buff,256,BytesRead,nil)

на

Код


ReadFile(hFile,Buff,512,BytesRead,nil)

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Yanis

Дата 13.10.2006, 09:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 13
Всего: 111

Dimannn
У меня всё нормально читается. Проверял так:

Код

var
  buf: array[1..1024] of byte;
  br: DWORD;
begin
  hFile := CreateFile('\\.\A:', GENERIC_READ,  FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  ReadFile(hFile, buf, Length(buf), br, nil);
  ShowMessage(SysErrorMessage(GetLastError));

  Memo1.Clear;
  for br := 1 to 1024 do
    Memo1.Lines.Text := Memo1.Lines.Text + IntToHex(buf[br], 2) + ' ';

  CloseHandle(hFile);
end;

--------------------

*щёлк*

Dimannn

Дата 13.10.2006, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 14.4.2005
Где: Владимир

Репутация: нет
Всего: 1

Мдя, странно. Там что, минимальный читаемый рамер есть?

А так всё заработало. Всем спасибо.

--------------------

Yanis

Дата 13.10.2006, 12:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 13
Всего: 111

Цитата(Dimannn @ 13.10.2006, 13:19

)

Мдя, странно. Там что, минимальный читаемый рамер есть?

Конечно есть. Размер кластера!

--------------------

*щёлк*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »