Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Tfilestream

Igit © (2004-07-06 10:52:00)
Здрастуйте, возникла у меня проблема:
использую classes, пытаюсь скомпилировать, а на этой сттрочке возникает ошибка
fs1 := tfilestream.create(paramstr(0)+'$', fmopenread);

"Undecleared identefier 'fmopenread'"

Как мне быть?

Alekc (2004-07-11 15:14:00) [1]

> В демо-проектах к KolZLib есть вот что:
> function StreamCopy (Dest, Source: PStream; Count: DWord):
> DWord;

А в самом KOL есть Stream2Stream ;)

Igit (2004-07-11 10:03:00) [2]
Ура, в KolZlib оказалось то что надо, теперь все работает.
Большое спасибо всем за помощь.

z007 (2004-07-10 23:28:00) [3]
В демо-проектах к KolZLib есть вот что:
function StreamCopy (Dest, Source: PStream; Count: DWord): DWord;

Vladimir Kladov (2004-07-10 13:44:00) [4]
это не та конференция. В KOL нет CopyStream.

Igit (2004-07-10 09:12:00) [5]
Ага, ничего я не понял =(

Создал потоки. А вот как заменить

fs2.copyfrom(fs1,fs1.size - inc_filesize);

Не пойму. Я так понял, сначала надо прочитать в буфер а потом из него записать, а как этот буфер определить? Можно чтоб вместо буфера был файл?

Igit (2004-07-08 22:55:00) [6]
Большое спасибо. Признаюсь, мне стало стыдно что задаю вопрос, ответ на который был в "документации" =)

fellix (2004-07-08 14:54:00) [7]
http://kol.mastak.ru/files/art/lessons11.htm

Igit (2004-07-08 14:28:00) [8]
Я не знаю, программу пишу на KOL, classes добавил тоже специальный, для KOL... и не пойму почему код
fs1 := tfilestream.create(paramstr(0)+'$', fmopenread); try fs2 := tfilestream.create('paramstr(0)+'.exe'',fmopenwrite); try fs1.seek(size_exe,sofromend); fs2.copyfrom(fs1,fs1.size - inc_filesize); finally fs2.free; end; finally fs1.free; end;
Не работает в KOL... или надо совсем как-то по другому делать?

SPeller (2004-07-08 06:20:00) [9]
А причем здесь KOL, если приведенный код полностью VCL-ный?

z007 (2004-07-08 00:24:00) [10]
const
fmOpenRead = $0000;

Или кроме Classes добавить еще SysUtils. Но... действительно ли есть смысл использовать здесь еще и KOL?

Все-таки, скорее, или одно или другое.

Наверх

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