Релиб / Программирование / Delphi / Variant & stream / Latest Posts

RE: Variant & stream

propp — Mon, 09 Jul 2001 17:09:00 GMT

Я так ине понял и переделал с использование укащателя Tmemorystream.memory

RE: Variant & stream

zans — Mon, 09 Jul 2001 12:46:00 GMT

Проверил на 2 компах. Код без проблем.
Грузил JPG размером в 150Кило.
Может памяти не хватат или с системой что ?

Variant & stream

propp — Wed, 04 Jul 2001 16:29:00 GMT

var
stream:Tfilestream;
v:variant;
begin
stream:=TfileStream.create('c:\1.jpg',fmOpenRead);
V:=VarArrayCreate([0, stream.size - 1], varByte);
stream.read(v,stream.size); //здесь ошибка при исполнении
stream.free;
end;

Ошибка не возникает в том случае, если вместо
stream.size подставить константу, не большую 32.
Величина файла c:\1.jpg больше 10000 байт.

Как решить эту проблему? Или как скопировать по-другому из потока
именно в такой массив (со статическими массивами проблем нет)?