![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
читаю файл [D6, XP]
Marat © (2007-03-06 14:17:00)Здравствуйте, мастера. Мне необходимо считать текстовый файл в шестнадцатиричном виде, т.е. должен получиться аналог нажатия в Norton Commander клавиш F3 и F4. Не подскажете, как это можно осуществить.
Marat (2007-03-11 10:53:00) [1]Спасибо большое! Классная вещь!
Loginov Dmitry (2007-03-11 08:55:00) [2]На вот, бедитор покури:
http://kladovka.net.ru/download.cgi?id=246
Marat (2007-03-11 07:50:00) [3]Столько всего начитался про потоки, но все равно остановился.
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 без всяких ошибок?
Германн (2007-03-07 21:03:00) [4]
> Anatoly Podgoretsky © (07.03.07 20:24) [18]
>
> > Elen (06.03.2007 16:38:15) [15]
>
> > посылают без объяснений...
>
> А оно тебе надо?
>
Если начнут посылать "с объяснениями", то это будет уже схоже с форумами футбольных фанатов :)
Anatoly Podgoretsky (2007-03-07 20:24:00) [5]> Elen (06.03.2007 16:38:15) [15]
> посылают без объяснений...
А оно тебе надо?
ASoft (2007-03-07 04:30:00) [6]перед 8 мартом мужики злые, обычно... :)
Игорь Шевченко (2007-03-06 16:40:00) [7]Elen © (06.03.07 16:38) [15]
> А я и так знаний набираюсь. По своему, своими методами
Замечательно. А давай ты недобранные знания не будешь в ответах приводить, людям вроде как помогать надо, а не засорять мозги
Elen (2007-03-06 16:38:00) [8]
> Игорь Шевченко © (06.03.07 16:33) [14]
А я и так знаний набираюсь. По своему, своими методами. Жалко что тут вечно посылают без объяснений...
Игорь Шевченко (2007-03-06 16:33:00) [9]Elen © (06.03.07 15:40) [12]
Ты не хочешь отдохнуть от форума, знаний поднабраться ?
Ega23 (2007-03-06 15:42:00) [10]
> (От буквоеды!)
Архангельский вот тоже Synchronize(Work) в больших чувствах написал...
Elen (2007-03-06 15:40:00) [11]
> Джо © (06.03.07 15:36) [11]
Не ну читать конечно не каждый байта сразу все, а преобразовыватьь в цикле побайтно :) (От буквоеды!)
Джо (2007-03-06 15:36:00) [12]> [10] Elen © (06.03.07 15:35)
> Или с изучения AssignFile...Reset...BlockRead...CloseFile
> :) (Старый добрый Паскаль!)
И не советовать подобного:
>>[5] Elen © (06.03.07 14:47)
>> Думаю тебе нужно читать каждый байти преобразовывать его через IntToHex
;>
Elen (2007-03-06 15:35:00) [13]
> Начать с изучения класса TFileStream
Или с изучения AssignFile...Reset...BlockRead...CloseFile :) (Старый добрый Паскаль!)
Сергей М. (2007-03-06 14:54:00) [14]
> Marat © (06.03.07 14:51) [7]
> не знаю как начать
Начать с изучения класса TFileStream
Ega23 (2007-03-06 14:54:00) [15]
> что преобразовать можно я понял. я не знаю как начать
TFileStream + F1
Marat (2007-03-06 14:51:00) [16]что преобразовать можно я понял. я не знаю как начать
Сергей М. (2007-03-06 14:47:00) [17]
> вот мне и нужно считать этот файл в таком виде.
>
\xB\x1Ђ`\x10\x7\x1\x1E\x1780\x7\x1\x1E\x17: i \x22r7‚%яяяяя \x2Ѓ
И это, по последнему постановлению правительства, называется "шестнадцатеричный вид" ?!
Поле чудес в стране дураков - иначе не назовешь)
Elen (2007-03-06 14:47:00) [18]
> Marat © (06.03.07 14:42) [3]
Думаю тебе нужно читать каждый байт и преобразовывать его через IntToHex
Ega23 (2007-03-06 14:45:00) [19]ну и?
Marat (2007-03-06 14:42:00) [20]неправильно сформулировал. Сам файл при просмотре через блокнот выглядит так: "\xB\x1Ђ`\x10\x7\x1\x1E\x1780\x7\x1\x1E\x17: i \x22r7‚%яяяяя \x2Ѓ ...". А если в NC, то 0000000 0B 07 80... вот мне и нужно считать этот файл в таком виде.