PDA

Просмотр полной версии : BlockRead не могу разобраться !



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

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

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

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

AiK
03.08.2004, 12:01
Зависит от продолжения вопросов. Может и в "Решите мне задачу" :). СЗОТ.

Hellspawn
16.08.2004, 01: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.