BlockRead не могу разобраться !

Общие вопросы, не зависящие от языка реализации.

Модераторы: Duncon, Eugie, Romeo, Hawk

Ответить
Hellspawn
Сообщения: 5
Зарегистрирован: 01 авг 2004, 06:22
Откуда: Москва

BlockRead не могу разобраться !

Сообщение Hellspawn » 03 авг 2004, 00:30

Всем привет вот замучился уже объясните ! Нужно прочитать из exe файла блок в 16 (array of byte) формате, размер которого определяю я и потом перевести это в строку для дальнейшей работы. Нужен работающий пример на Delphi !!!

Procedure BlockWrite (var F: File; var Buf; Count: Integer [; var AtmTransferred: Integer]); Я понял 1-файл, 2- буфер, 3 - ?
Если тебе нравится девушка, поставь у нее на компьютере Windows 98. По крайней мере встречаться будете часто!

Аватара пользователя
Romeo
Сообщения: 3091
Зарегистрирован: 02 мар 2004, 17:25
Откуда: Крым, Севастополь
Контактная информация:

Сообщение Romeo » 03 авг 2004, 10:04

3 - количество байт, которые нужно прочесть.

P.S. Я думаю, что вопрос нужно перенести в Делфийский форум. Если так посчитает ещё кто-либо из кураторов - он там и окажется.
Entites should not be multiplied beyond necessity @ William Occam
---
Для выделения С++ кода используйте конструкцию [ code=cpp ] Код [ /code ] (без пробелов)
---
Сообщение "Спасибо" малоинформативно. Благодарность правильнее высказать, воспользовавшись кнопкой "Reputation" в виде звёздочки, расположенной в левом нижнем углу рамки сообщения.

Аватара пользователя
AiK
Сообщения: 2271
Зарегистрирован: 13 фев 2004, 18:14
Откуда: СПб
Контактная информация:

Сообщение AiK » 03 авг 2004, 11:01

Зависит от продолжения вопросов. Может и в "Решите мне задачу" :) . СЗОТ.
Даже самый дурацкий замысел можно воплотить мастерски

Hellspawn
Сообщения: 5
Зарегистрирован: 01 авг 2004, 06:22
Откуда: Москва

Сообщение Hellspawn » 16 авг 2004, 00:39

Вот разобрался !! а это для потомства 8)

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

procedure TForm1.Button1Click(Sender: TObject);
var
f : file;
Buff : Array[1..200] of Byte;
N : integer;
e:dword;
s:string;
b:byte;
begin
assignfile(f, '1.exe');
Reset(F, 1);
BlockRead(F, Buff, 200);
closefile(f);
  For n:=1 To Length(buff) do
  begin
  e:=buff[n];
  s:=s+inttohex(e,1);
  end;
  edit1.text:=s;
end;
end.
Если тебе нравится девушка, поставь у нее на компьютере Windows 98. По крайней мере встречаться будете часто!

Ответить