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

[Hellspawn]

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

Procedure BlockWrite (var F: File; var Buf; Count: Integer [; var AtmTransferred: Integer]); Я понял 1-файл, 2- буфер, 3 - ?

[Romeo]

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

P.S. Я думаю, что вопрос нужно перенести в Делфийский форум. Если так посчитает ещё кто-либо из кураторов - он там и окажется.

[AiK]

Зависит от продолжения вопросов. Может и в "Решите мне задачу" . СЗОТ.

[Hellspawn]

Вот разобрался !! а это для потомства 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.