Tfilestream

← →
Igit (2004-07-06 10:52) [0]

Здрастуйте, возникла у меня проблема:
использую classes, пытаюсь скомпилировать, а на этой сттрочке возникает ошибка
fs1 := tfilestream.create(paramstr(0)+"$", fmopenread);

"Undecleared identefier "fmopenread""

Как мне быть?

← →
z007 (2004-07-08 00:24) [1]

const
fmOpenRead = $0000;

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

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

← →
SPeller © (2004-07-08 06:20) [2]

А причем здесь KOL, если приведенный код полностью VCL-ный?

← →
Igit (2004-07-08 14:28) [3]

Я не знаю, программу пишу на 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... или надо совсем как-то по другому делать?

← →
fellix (2004-07-08 14:54) [4]

http://kol.mastak.ru/files/art/lessons11.htm

← →
Igit (2004-07-08 22:55) [5]

Большое спасибо. Признаюсь, мне стало стыдно что задаю вопрос, ответ на который был в "документации" =)

← →
Igit (2004-07-10 09:12) [6]

Ага, ничего я не понял =(

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

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

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

← →
Vladimir Kladov (2004-07-10 13:44) [7]

это не та конференция. В KOL нет CopyStream.

← →
z007 (2004-07-10 23:28) [8]

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

← →
Igit (2004-07-11 10:03) [9]

Ура, в KolZlib оказалось то что надо, теперь все работает.
Большое спасибо всем за помощь.

← →
Alekc (2004-07-11 15:14) [10]

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

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

Tfilestream Найти похожие ветки