freepascal.ru

Код: Выделить всё

const
PageSize = 512;
ErGrSize = 512*1024{PageSize *page_count;};
var
Res: Boolean; //Результат выполнения функции. Принимает значение 1 в случае успешного выполнения и 0 в случае ошибки
myFileName: String; //Имя файла, выбираемое в файловом диалоге
FS: TFileStream;
iFileSize: Int64; // Размер открываемого дампа
page_count, i, g: Integer;
MyBuffer: array OF Byte;

begin

        Res := GetOpenFileName('Выбери меня!', myFileName, 'Dumps', 'Дампы (*.user)|*.user| Все файлы|*.*', 'user');

        SetLength(MyBuffer, ErGrSize); //объявляем PageBuffer (PageSize*page_count)
       
        setarraylength(PageBuffer, ErGrSize);

      
        //setarraylength(MyBuffer, ErGrSize);


                if (Res) then
                        begin
                     
                        AddMessage('Open file %s', [myFileName]);
                         FS := TFileStream.Create(myFileName, fmOpenRead or fmShareDenyWrite);
                        try                             
                                iFileSize := FS.Size;
                           
                                AddMessage('File size %d byte', [iFileSize]);
                               

                                for g:= 0 to (iFileSize div ErGrSize)-1  do     //filesize : 524288

                                                begin
                                           
                                                FS.Seek(g*ErGrSize, soFromBeginning);
                                                FS.Read(MyBuffer[0], ErGrSize);

......
                                             

Код: Выделить всё

  FS.Read(Pointer(MyBuffer)^, ErGrSize)
  //или
  FS.Read(PByte(MyBuffer)^, ErGrSize)


Нердик писал(а):Что я делаю не так?

Vadim писал(а):Вы в одну ячейку своего массива MyBuffer (MyBuffer[0]), которая у Вас задана размером в 1 байт, пытаетесь засунуть данные размером 512*1024.

iskander писал(а):принимает нетипизированный параметр.

iskander писал(а):А о чем?

Vadim писал(а):пытаетесь засунуть данные размером

Код: Выделить всё

......
MyBuffer: array OF Byte; // Обьявляем массив MyBuffer.

begin
         //При запуске скрипта открывается файловый диалог, в котором необходимо выбрать дамп
        Res := GetOpenFileName('Выбери меня!', myFileName, 'Dumps', 'Дампы (*.user)|*.user| Все файлы|*.*', 'user');

        SetLength(MyBuffer, ErGrSize);
       ........


iskander писал(а):Дык

Нердик писал(а):FS.Read(PByte(MyBuffer)^, ErGrSize) - ошибка [Error] (45:15): Unknown identifier 'PByte'

Добавлено спустя 22 минуты 37 секунд:
Обьявил - теперь и на строку с PByte - [Error] (45:20): Type mismatch

Vadim писал(а):не "дык", а всё печально

iskander писал(а):стимул к познанию непознанного.

Код: Выделить всё

// Читать текст из файла
Function R_LoadText(FN:String):String;
var
  ST:TStringList;
begin
ST:=TStringList.Create;
Result:='';
try
if FileExists(FN) then begin
  St.LoadFromFile(FN);
  Result:= ST.Text;
end;
finally
  st.Free;
end;
end;
.....
//---------------------------------------------------------//
// Настройка библиотеки функций доступных в скипте
procedure TRF1.PSScript1Compile(Sender: TPSScript);
begin
{----------------------------------------------}
With Sender do
begin
//Доступ к текстовым файлам
AddFunction(@R_LoadText ,'Function R_LoadText(FN:String):String;');
...
end
end;


Vadim писал(а):Это всё потому, что Вы нормальным русским языком не объяснили, где именно Вы программируете. В FreePascal PByte - это встроенный тип данных. Если у Вас его нет - Вы используете что-то другое. Начав с "олбанского" языка, Вы сделали помощь в Вашей проблеме невозможной.

Настаиваю, что у Вас ошибка исключительно логическая, ошибка разработчика. Необходимо сначала продумать логику Ваших действий и только потом садиться программировать.

Код: Выделить всё

const
PageSize = 512;
ErGrSize = 512*1024{PageSize *page_count;};
var
Res: Boolean; //Результат выполнения функции. Принимает значение 1 в случае успешного выполнения и 0 в случае ошибки
myFileName: String; //Имя файла, выбираемое в файловом диалоге
iFileSize: Int64; // Размер открываемого дампа
page_count, i, g: Integer;
MyBuffer: array {[0..ErGrSize]} OF byte; // Обьявляем массив MyBuffer.

begin
         //При запуске скрипта открывается файловый диалог, в котором необходимо выбрать дамп
        Res := GetOpenFileName('Выбери меня!', myFileName, 'Dumps', 'Дампы (*.user)|*.user| Все файлы|*.*', 'user');

        //SetLength(PageBuffer, ErGrSize); //объявляем PageBuffer (PageSize*page_count)
        // Устанавливаем размер буфера
        setarraylength(PageBuffer, ErGrSize);

        // Устанавливаем размер буфера
        setarraylength(MyBuffer, ErGrSize);


                if (Res) then //если файл выбран, то продолжаем выполнять скрипт, если нет, то переход на завершение
                        begin
                        //В лог выдаем сообщения об открытии файла
                        AddMessage('Open file %s', [myFileName]);
                        Res := iFileStreamCreate(myFileName, fmOpenRead or fmShareDenyWrite);
                        // Проверка
                                if not(Res) then Exit;

                                iFileSize := iFileStream.Size;
                                //В лог выдаем сообщение
                                AddMessage('File size %d byte', [iFileSize]);
                                // Последовательно, группа за группой считываем в буфер и сравниваем файл с дампом.

                                for g:= 0 to (iFileSize div ErGrSize)-1  do     //filesize : 524288

                                                begin
                                                // считали группу из файла
                                                iFileStreamSeek(g*ErGrSize, soFromBeginning);
                                                iFileStreamRead(0, ErGrSize);

                                                //AddMessage('Прочитали файл', []);
                                                // и выводим в лог
                                                //ArrayToLog(PageBuffer, 512);


                                                //AddMessage('Копируем в MyBuff', []);
                                                //Просто копируем из буфера в массив.
                                                for i:= 0 to ErGrSize-1 do
                                                MyBuffer [i] := PageBuffer [i];

                                                // и выводим в лог, проверяем
                                                //ArrayToLog(MyBuffer, 512);


                                                // Считать 1024 страниц начиная с g*1024
                                                //AddMessage('Читаю EMMC группу', []);
                                                ReadPage(g*1024, 1024); ////Какой раздел будет читаться зависит от того, какой файл был выбран для сохранения
                                                //ReadPage всегда читается только по 512 байт независимо от размера обьявленного PageBuffer



                                                //AddMessage('Тест PageBuffer', []);
                                                // и выводим в лог
                                                //ArrayToLog(PageBuffer, 512);
                                                // выводим сообщение в лог
                                                //AddMessage('Тест MyBuffer', []);
                                                // и выводим в лог
                                                //ArrayToLog(MyBuffer, 512);


                                                //AddMessage('Сравниваю буферы', []);
                                                for i:= 0 to (ErGrSize-1)  do
                                                        begin
                                                                if PageBuffer[i] <> MyBuffer[i] then break; //сравниваем в цикле блок данных, при первом несовпадении цикл прерывается
                                                        end;
                                                        if i = ErGrSize then  //если i = x, то все байты в массивах совпадают
                                                                        //AddMessage('переходим к проверке следующей группы №%d', [g])
                                                                        else AddMessage(' требуется перезапись группы, i = %d', [i]);
                                                end;
iFileStreamFree;
AddMessage('Проверка заврешена', [])
Time;
                        end
     end.