Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

читаю файл [D6, XP]


Страницы:   1 2

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... вот мне и нужно считать этот файл в таком виде.


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо