Текущий архив: 2007.06.17;
Скачать: CL | DM;
Вниз
Stream2Stream буз KOL Найти похожие ветки
← →
@!!ex © (2006-11-01 10:10) [0]Собственно есть модуль написанный под KOL.
KOL я по некторым причинам поставить не могу.
Вот так выглядит код в оригинале.
Подскажите, как переписать под стандартный Stream?
fRealWidth:=Items[i-1].fDataStream.Size div fMaxH;
for y:=1 to fMaxH do
begin
Items[i-1].fDataStream.Seek(Items[i-1].fDataStream.Size-y*fRealWidth,spBegin);
Stream2Stream(fTemp,Items[i-1].fDataStream,fRealWidth);
end;
← →
@!!ex © (2006-11-01 10:58) [1]Все. Разобрался.
CopyFrom отлично справляется.
Страницы: 1 вся ветка
Текущий архив: 2007.06.17;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.017 c
