Вниз
Скачать: CL | DM;

Извлечение файла из несжатого архива.   Найти похожие ветки 

← →
AlexanderMS ©   (2006-06-02 16:51) [0]

Подскажите, пожалуйста, как мне "взять" часть байтов из некого нетипизированного файла и сохранить эту часть как отдельный файл (т. е. извлечь из несжатого архива). Но этих байтов столько, что выдаётся ошибка:

---------------------------
Project CSFEditor.exe raised exception class EOutOfMemory with message "Out of memory". Process stopped. Use Step or Run to continue.
---------------------------

Как быть? Могу привести код, но думаю, что можно сделать лучше. Я пробовал считать string из первого и сохранить её во второй через TMemoryStream.


← →
Рамиль ©   (2006-06-02 16:55) [1]

TFileStream


← →
AlexanderMS ©   (2006-06-02 17:01) [2]


> TFileStream


Тут в общем-то то же самое получается: тоже Stream, а потом сохраняется через SaveToFile. Мне нужно как-то "вырезать" из одного файла и "вставить" в пустой другой, а затем его сохранить. Но начало "вырезки" и "конец" могут быть в любых местах в первом файле. Read даёт OutOfMemory. Вот, не знаю как...


← →
Рамиль ©   (2006-06-02 17:05) [3]

Эх...
function CopyFrom(Source: TStream; Count: Int64): Int64;
для чего по твоему?
Устанавливаешь в исходном потоке Position на нужный байт, потом вызываешь CopyFrom во втором с нужным количеством байт.


← →
AlexanderMS ©   (2006-06-02 17:11) [4]


> Рамиль ©   (02.06.06 17:05) [3]


Благодарю, сейчас попробую.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.034 c
15-1148744593
bva
2006-05-27 19:43
2006.06.18
Delphi 2005


2-1148980350
duncat
2006-05-30 13:12
2006.06.18
Распечатать текст из Memo


4-1142853676
KALqYAN
2006-03-20 14:21
2006.06.18
CPU Usage


2-1149241522
Elen
2006-06-02 13:45
2006.06.18
Исчезает новосозданный компонент


15-1148282004
balepa
2006-05-22 11:13
2006.06.18
Начинающим нефурыкает ? или тока у меня




   Наверх