![]() |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
![]()
|
|
| $ardaR |
|
|||
|
Unregistered |
Привет народ!
Вообщем дело такое: Есть прошивка от самсунга,мне надо что б прога открывало бы прошивку(уже умеет это делать 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?>>); Заранее спасибо за ответ! З.Ы, я вообще только начинаю! |
|||
|
||||
| _hunter |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 15 Всего: 98 |
так и прописывай... только $352F3C
-------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
| Guest |
|
|||
|
Unregistered |
_hunter
так он мне выдаёт ошибку при открытии бин_А Project Project1.exe raised exeption class EInOutError with message 'I/0 error 6'. а какой компонент использовать для вывода инфы и редактирования,TEdit пойдет? |
|||
|
||||
| _hunter |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 15 Всего: 98 |
а размер прошивки какой?
едит -- подойдет ( хотя смотря что нужно... ) -------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
| $ardaR |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 29.3.2005 Репутация: нет Всего: нет |
а размер прошивки какой?
12 084 524 байт едит -- подойдет ( хотя смотря что нужно... ) для показа 8 байт и при нужде редактировать их |
|||
|
||||
| _hunter |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 15 Всего: 98 |
стоп. при открытии или при установке позиции?
+ весь код покажи потому как по приведенному коду у тебя fname -- пустая строка ( и соответственно открывать нечего ) -------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
| $ardaR |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 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. |
|||
|
||||
| _hunter |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 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... |
|||
|
||||
![]()
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |