Форум: "KOL";
Текущий архив: 2007.06.17;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "KOL";
Текущий архив: 2007.06.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.044 c