[paratrooper]

Здравствуйте.
Я не так давно начал изучать дельфи, опыта немного.
Есть такой вопрос: с помощью чего осуществляется доступ (обращение?) к другим файлам?

Пример: есть файл по адресу с:\games\game1\savegame1.sav

С помощью хекс-эдитора я нашел в этом сейв-файле золото персонажа. Как сделать так, чтобы программка на дельфи обращалась к файлу и выводила значение золота в поле для редактирования? Мне бы принцип понять, а уж силу, локость и т.д. я дальше сделаю сам.

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

Желание работать над проблемой, изучать матчасть, учиться ЕСТЬ.

[Drozh]

Открываешь файл Hex редактором, находишь то что нужно, и смотрешь адрес(смещение, Offset) для этой величины.
Далеше в делфи создаешь переменную типа file of byte и читаешь в нее файл, затем функцией Seek сдвигаешься на нужное смещение, читаешь текущий байт и выводишь

[Страдалецъ]

Делать это можно кучей способов, например так:

Код:

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

Var SaveFile: File of Byte;     B: Byte; begin AssignFile(SaveFile, 'c:\game\save.dat'); Reset(SaveFile); Seek(SaveFile,30); Read(SaveFile, B); B := 100; Seek(SaveFile,30); Write(SaveFile, B); CloseFile(SaveFile); end;

[AND_REY]

Можно ещё так:

Код:

1 2 3 4 5 6 7 8 9

Procedure ChengeByte(Name: String; B: Byte // B: DWORD); Var  F: TFileStream; Begin  F:= TFileStream.Create(Name, fmOpenWrite);  F.Position:= $100; //  F.Write(B, 1 // 4);  F.Free; end;

Admin: И где теги?

[Страдалецъ]

Код:

1	F.Write(B, 1 // 4);

Вы что, от такого кода новичка инфаркт хватит

[paratrooper]

Спасибо за подсказки, но не получается

вот листинг:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

unit save_game_editor3;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     Edit1: TEdit;     Label1: TLabel;     procedure FormActivate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure FormActivate(Sender: TObject); var  f : file of byte;   b : byte; begin  AssignFile(f, 'savefile00.sav');  Reset(f);  Seek(f, 186747);  Read(f, b);  Edit1.Text := f end;   end.

********
Решил начать с уровня персонажа, т.к. он занимает 1 байт (золото занимает 4 байта)
186747 ($02D97B) - это позиция (offset) в хекс-редакторе

[Страдалецъ]

Код:

1	Edit1.Text := f

Ну вы даете, вам два примера привели как это надо делать правильно, а вы идете своим путем, причем неправильным. Вы-же читаете значение в переменную B, так какого беса вы обращаетесь к f которое вообще типа файл. Кроме того B это байт, а Edit1.Text это стринг. Подружить напрямую два этих типа у вас невыйдет. Потому пробуйте так:

Код:

1	Edit1.Text := IntToStr(b)

[paratrooper]

Не надо раздражаться, я впервые этим занимаюсь, и до недавнего времени мне все это "read", "seek" и т.д. были на одно лицо. Я прочитал почти получебника Делфи, дошел до файлов, чтобы понять что этот листинг вообще означает, что мне написали. У меня даже получилось проделать все эти вещи с текстовым файлом! Но с сейвом - никак. К тому же я до сих пор нигде не могу найти описание функции seek. Не надо так реагировать, если б я был профи в этой области, я бы не стал к вам обращаться.

[PhoeniX]

seek(f, pos) - перемещение текущего положения "курсора" в файле f к позиции pos.
Delphi Help + небольшое знание английского. Сформулировал своими словами, ибо оригинальный вариант маленько запутанный.

[Страдалецъ]

Не надо раздражаться

Да я вроде и не раздражаюсь, слегка пожурил за очевидные ляпы.
Еще кое-что по вашему варианту. Вы пишете:

Код:

1	AssignFile(f, 'savefile00.sav');

'savefile00.sav' этот файл всегда будет искаться в каталоге откуда произошел запуск приложения, что в общем-то неплохо, но вот при написании программы (а у вас именно этот этап), каталоги могут сильно отличаться и соответственно будет ошибка открытия файла.
Далее, вы чуть ранее пишете:

********
Решил начать с уровня персонажа, т.к. он занимает 1 байт (золото занимает 4 байта)
186747 ($02D97B) - это позиция (offset) в хекс-редакторе

Имейте ввиду, что когда у вас дойдет дело до обработки Золота, которое занимает 4 байта вам надо будет читать в переменную типа DWord а не Byte, т.е. добавьте в описание переменную D: DWord и чтение золота будет так:

Код:

1	Read(SaveFile, D);

[paratrooper]

2 Страдалецъ
Благодарю. Теперь Ваши сообщения читать совсем приятно :-)

'savefile00.sav' этот файл всегда будет искаться в каталоге откуда произошел запуск приложения

Об этом я знал... Я в readme напишу: "разархивируйте в папку с сейвами".

Имейте ввиду, что когда у вас дойдет дело до обработки Золота, которое занимает 4 байта вам надо будет читать в переменную типа DWord а не Byte, т.е. добавьте в описание переменную D: DWord и чтение золота будет так:
Код:
Read(SaveFile, D);

Спасибо.

****************

Сейчас у меня проблема в другом... Удалось-таки написать код, который и читает из оффсета, и пишут туда же, (кстати, немало помучался с ошибкой "access denied", т.к. не знал про обязательную функцию FileMode := fmOpenReadWrite; после AssignFile) но сделать так, чтоб программа брала данные не из переменной В, а из edit1.text , которые пользователь туда вобьет и нажмет кнопку "сохранить и выйти", не получается.

Листинг

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

unit save_game_editor;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     Edit1: TEdit;     Label1: TLabel;     Button1: TButton;     procedure FormActivate(Sender: TObject);     procedure button1click(sender: tobject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   f : file of byte;   b : byte;   implementation   {$R *.dfm}   procedure TForm1.FormActivate(Sender: TObject); begin  AssignFile(f, 'savegame00.sav');  FileMode := fmOpenReadWrite;  Reset(f);  Seek(f, 186747);  Read(f, b);  //B := 50;  Seek(f, 186747);  Write(f, B);  CloseFile(f);  Edit1.Text := IntToStr(b) end;   procedure tform1.button1click(sender: tobject); begin  AssignFile(f, 'savegame00.sav');  FileMode := fmOpenReadWrite;  Reset(f);  Seek(f, 186747); ??? Edit1.Text := IntToStr(b) ??? Write(f, edit1.text[b]);  CloseFile(f); end;   end.

[Drozh]

Код:

1 2	Edit1.Text := IntToStr(b) Write(f, edit1.text[b]);

В этом коде вы вписываете Edit значение переменной b, а затем пытаетесь вытащить из строки edit1.text b'тый символ и записать его в файл типа байт! О_о

Нужно делать так

Код:

1 2	b := StrToInt(Edit1.Text); Write(f, b);

[paratrooper]

Имейте ввиду, что когда у вас дойдет дело до обработки Золота, которое занимает 4 байта вам надо будет читать в переменную типа DWord а не Byte, т.е. добавьте в описание переменную D: DWord и чтение золота будет так:

Код:

Вопрос первый: ошибка.
Incompatible types: byte and cardinal
Листинг:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

var   Form1: TForm1;   f : file of byte;   b : byte;   zol : dword;   implementation   {$R *.dfm}   procedure TForm1.FormActivate(Sender: TObject); begin  AssignFile(f, 'savegame00.sav');  FileMode := fmOpenReadWrite;  Reset(f);  Seek(f, 186747);  Read(f, b);  Seek(f, 186748); ??? Read(f, zol);  CloseFile(f);  Edit1.Text := IntToStr(b);  Edit2.Text := IntToStr(zol); end;

Вопрос второй (сделал по-своему): можно ли упростить код? И вопрос вдогонку: что делать, если побайтовый offset на 4 делиться не будет? (186748/4 = 46687, но так может быть не всегда)
Листинг:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

var   Form1: TForm1;   f : file of byte;   b : byte;   ff : file of cardinal;   zol : dword;   implementation   {$R *.dfm}   procedure TForm1.FormActivate(Sender: TObject); begin  AssignFile(f, 'savegame00.sav');  FileMode := fmOpenReadWrite;  Reset(f);  Seek(f, 186747);  Read(f, b);  AssignFile(f, 'savegame00.sav');  FileMode := fmOpenReadWrite;  Reset(ff);  Seek(ff, 46687);  Read(ff, zol);  //CloseFile(ff);  Edit1.Text := IntToStr(b);  Edit2.Text := IntToStr(zol); end;