Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Bin File

Автор: $ardaR 29.3.2005, 16:49

Привет народ!
Вообщем дело такое:
Есть прошивка от самсунга,мне надо что б прога открывало бы прошивку(уже умеет это делать smile

)и по конкретному адрессу(напр. 0х352F3C) выводил ровно 6 символов,и если надо что б он редактировал бы их сохронял в этот же бин!

var
Form1: TForm1;
f:file;
fname:string;
addr:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
assignfile(f,fname);
reset(f,1);
seek(f,<<тут как прописать адресс 0х352F3C?>>);

Заранее спасибо за ответ!

З.Ы, я вообще только начинаю! smile

Автор: _hunter 29.3.2005, 17:06

так и прописывай... только $352F3C

Автор: Guest 29.3.2005, 17:21

_hunter
так он мне выдаёт ошибку при открытии бин_А

Project Project1.exe raised exeption class EInOutError with message 'I/0 error 6'.

а какой компонент использовать для вывода инфы и редактирования,TEdit пойдет?

Автор: _hunter 29.3.2005, 17:35

а размер прошивки какой?

едит -- подойдет ( хотя смотря что нужно... )

Автор: $ardaR 29.3.2005, 17:38

а размер прошивки какой?

12 084 524 байт

едит -- подойдет ( хотя смотря что нужно... )

для показа 8 байт и при нужде редактировать их

Автор: _hunter 29.3.2005, 17:54

стоп. при открытии или при установке позиции?
+ весь код покажи потому как по приведенному коду у тебя fname -- пустая строка ( и соответственно открывать нечего )

Автор: $ardaR 29.3.2005, 17:56

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
GroupBox2: TGroupBox;
Label3: TLabel;
Label4: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
f:file;
fname:string;
addr:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
assignfile(f,fname);
reset(f,1);

closefile(f);

end;
end;
end.

Автор: _hunter 29.3.2005, 18:28

тогда все понятно ( все как я писал -- в имени файла -- пустая строка )
нужно так:
if OpenDialog1.Execute then
begin
assignfile(f,OpenDialog1.fileName);