Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Bin File, Need Help! 
:(
    Опции темы
$ardaR
Дата 29.3.2005, 16:49 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Привет народ!
Вообщем дело такое:
Есть прошивка от самсунга,мне надо что б прога открывало бы прошивку(уже умеет это делать 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 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98



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


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Guest
Дата 29.3.2005, 17:21 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











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

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

а какой компонент использовать для вывода инфы и редактирования,TEdit пойдет?
  Вверх
_hunter
Дата 29.3.2005, 17:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98



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

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


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
$ardaR
Дата 29.3.2005, 17:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 29.3.2005

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



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

12 084 524 байт


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

для показа 8 байт и при нужде редактировать их
PM MAIL   Вверх
_hunter
Дата 29.3.2005, 17:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98



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


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
$ardaR
Дата 29.3.2005, 17:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 29.3.2005

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



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.
PM MAIL   Вверх
_hunter
Дата 29.3.2005, 18:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98



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


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.0463 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.