читаю файл

← →
Marat © (2007-03-06 14:17) [0]

Здравствуйте, мастера. Мне необходимо считать текстовый файл в шестнадцатиричном виде, т.е. должен получиться аналог нажатия в Norton Commander клавиш F3 и F4. Не подскажете, как это можно осуществить.

← →
Джо © (2007-03-06 14:25) [1]

Читаем, как нравится, например при помощи TFileStream.
Перевод в текстовую шестнадцатиричную строку — BinToHex, например.

← →
Ega23 © (2007-03-06 14:29) [2]

http://delphimaster.net/view/2-1173178891/

← →
Marat © (2007-03-06 14:42) [3]

неправильно сформулировал. Сам файл при просмотре через блокнот выглядит так: "Ђ`80: i 2r7‚%яяяяя Ѓ ...". А если в NC, то 0000000 0B 07 80... вот мне и нужно считать этот файл в таком виде.

← →
Ega23 © (2007-03-06 14:45) [4]

ну и?

← →
Elen © (2007-03-06 14:47) [5]

> Marat © (06.03.07 14:42) [3]

Думаю тебе нужно читать каждый байт и преобразовывать его через IntToHex

← →
Сергей М. © (2007-03-06 14:47) [6]

> вот мне и нужно считать этот файл в таком виде.
>

Ђ`80: i 2r7‚%яяяяя Ѓ

И это, по последнему постановлению правительства, называется "шестнадцатеричный вид" ?!

Поле чудес в стране дураков - иначе не назовешь)

← →
Marat © (2007-03-06 14:51) [7]

что преобразовать можно я понял. я не знаю как начать

← →
Ega23 © (2007-03-06 14:54) [8]

> что преобразовать можно я понял. я не знаю как начать

TFileStream + F1

← →
Сергей М. © (2007-03-06 14:54) [9]

> Marat © (06.03.07 14:51) [7]

> не знаю как начать

Начать с изучения класса TFileStream

← →
Elen © (2007-03-06 15:35) [10]

> Начать с изучения класса TFileStream

Или с изучения AssignFile...Reset...BlockRead...CloseFile :) (Старый добрый Паскаль!)

← →
Джо © (2007-03-06 15:36) [11]

> [10] Elen © (06.03.07 15:35)
> Или с изучения AssignFile...Reset...BlockRead...CloseFile
> :) (Старый добрый Паскаль!)

И не советовать подобного:
>>[5] Elen © (06.03.07 14:47)
>> Думаю тебе нужно читать каждый байт и преобразовывать его через IntToHex

;>

← →
Elen © (2007-03-06 15:40) [12]

> Джо © (06.03.07 15:36) [11]

Не ну читать конечно не каждый байт а сразу все, а преобразовыватьь в цикле побайтно :) (От буквоеды!)

← →
Ega23 © (2007-03-06 15:42) [13]

> (От буквоеды!)

Архангельский вот тоже Synchronize(Work) в больших чувствах написал...

← →
Игорь Шевченко © (2007-03-06 16:33) [14]

Elen © (06.03.07 15:40) [12]

Ты не хочешь отдохнуть от форума, знаний поднабраться ?

← →
Elen © (2007-03-06 16:38) [15]

> Игорь Шевченко © (06.03.07 16:33) [14]

А я и так знаний набираюсь. По своему, своими методами. Жалко что тут вечно посылают без объяснений...

Elen © (06.03.07 16:38) [15]

> А я и так знаний набираюсь. По своему, своими методами

Замечательно. А давай ты недобранные знания не будешь в ответах приводить, людям вроде как помогать надо, а не засорять мозги

← →
ASoft (2007-03-07 04:30) [17]

перед 8 мартом мужики злые, обычно... :)

> Elen (06.03.2007 16:38:15) [15]

> посылают без объяснений...

А оно тебе надо?

> Anatoly Podgoretsky © (07.03.07 20:24) [18]
>
> > Elen (06.03.2007 16:38:15) [15]
>
> > посылают без объяснений...
>
> А оно тебе надо?
>

Если начнут посылать "с объяснениями", то это будет уже схоже с форумами футбольных фанатов :)

Столько всего начитался про потоки, но все равно остановился.
procedure TConv_f.BitBtn1Click(Sender: TObject);
var Streaml, Stream2: TFileStream;
ByteBuf: array[0..2000] of byte;
sTemp: array[0..2000] of byte;
begin
if Not OpenDlg.Execute then Exit;
try
Streaml := TFileStream.Create(OpenDlg.FileName, fmOpenRead);
Streaml.ReadBuffer(ByteBuf, SizeOf(ByteBuf));
with Streaml do
try
Seek(0, 0);
while Position < Size do
begin
Read(sTemp, 1);

end;
finally
Free;
end;
finally
Streaml.Free;
end;
end;
Как забрать информацию из ByteBuf в массив sTemp без всяких ошибок?

На вот, бедитор покури:
http://kladovka.net.ru/download.cgi?id=246

Спасибо большое! Классная вещь!

читаю файл Найти похожие ветки