Не вполне уверен, что Вас это спасет, но если обявить массив как
var BP: array[0..XXX] of Byte;
(т.е. размер массива фиксирован) и убрать SetLength, то все три Ваши проблемы решаются. Можно даже как
var BP: array[0..XXX] of Char;
Тогда и в строку проще преобразовывать...
Здравствуйте, balykovdron, Вы писали:
B>Вот код. Вопросы:
B>1. Почему в конце возникает "Access Violation..."
B>2. Почему, если я ставлю BlockSize = больше чем 2К (например я хочу читать блоками по 64К = 65536, например для больших файлов), то ReadFile возвращает 'Fuck again'.
B>3. И если все успешно, то в BP оказываются считанные данные. У меня не получается загнать это в строку.
B>Подскажите уважаемые гуру что я делаю не так
B>B>procedure TForm1.Button1Click(Sender: TObject);
B>var
B> fSrc: string;
B> StartByte: integer;
B> BP : array of byte;
B> hFile, cRet, BytesWorked, BlockSize: Cardinal;
B> srcFileSize: DWORD;
B> bRet: Boolean;
B>begin
B> fSrc := 'C:\autoexec.bat';
B> hFile := CreateFile(PChar(fSrc), GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
B> srcFileSize := GetFileSize(hFile, nil);
B> //ShowMessage('File size = ' + IntToStr(srcFileSize) + ' Err = ' + IntToStr(GetLastError));
B> StartByte := 0;
B> BlockSize := 1024;
B> cRet := SetFilePointer(hFile, StartByte, nil, FILE_BEGIN);
B> SetLength(BP, Sizeof(byte) * BlockSize);
B> bRet := ReadFile(hFile, BP, BlockSize, BytesWorked, nil);
B> if BytesWorked > 0 then
B> ShowMessage('OK')
B> else
B> ShowMessage('Fuck again! :(');
B> CloseHandle(hFile);
B>end;
B>
