Страница 1 из 1
BlockRead не могу разобраться !
Добавлено: 03 авг 2004, 01:30
Hellspawn
Всем привет вот замучился уже объясните ! Нужно прочитать из exe файла блок в 16 (array of byte) формате, размер которого определяю я и потом перевести это в строку для дальнейшей работы. Нужен работающий пример на Delphi !!!
Procedure BlockWrite (var F: File; var Buf; Count: Integer [; var AtmTransferred: Integer]); Я понял 1-файл, 2- буфер, 3 - ?
Добавлено: 03 авг 2004, 11:04
Romeo
3 - количество байт, которые нужно прочесть.
P.S. Я думаю, что вопрос нужно перенести в Делфийский форум. Если так посчитает ещё кто-либо из кураторов - он там и окажется.
Добавлено: 03 авг 2004, 12:01
AiK
Зависит от продолжения вопросов. Может и в "Решите мне задачу"
. СЗОТ.
Добавлено: 16 авг 2004, 01:39
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.