| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

CopyFrom

Евгений ©   (2003-05-19 20:02:00) 

В Delphi у TFileStream есть процедура CopyFrom. Существует ли аналог в KOL у PStream. Если есть другой способ, опишите.
Заранее благодарен.

---

mdw   (2003-05-20 11:45:00) [1]

Есть функции Stream2Stream, Stream2StreamEx, Stream2StreamExBufSz

---

Евгений   (2003-05-19 23:34:00) [2]

Спасибо. Работает. Нужно обязательно добавить в KOL.

---

Gandalf   (2003-05-19 22:29:00) [3]

Вроде нет... Попробуй так:

function CopyFrom(Dest,Source: PStream; Count: Int64): Int64;
const
MaxBufSize = $F000;
var
BufSize, N: Integer;
Buffer: PChar;
begin
if Count = 0 then
begin
Source.Position := 0;
Count := Source.Size;
end;
Result := Count;
if Count > MaxBufSize then BufSize := MaxBufSize else BufSize := Count;
GetMem(Buffer, BufSize);
// try
while Count <> 0 do
begin
if Count > BufSize then N := BufSize else N := Count;
Source.Read(Buffer^, N);
Dest.Write(Buffer^, N);
Dec(Count, N);
end;
// finally
( Buffer, BufSize) [1]

Вроде нет... Попробуй так:

function CopyFrom(Dest,Source: PStream; Count: Int64): Int64;
const
MaxBufSize = $F000;
var
BufSize, N: Integer;
Buffer: PChar;
begin
if Count = 0 then
begin
Source.Position := 0;
Count := Source.Size;
end;
Result := Count;
if Count > MaxBufSize then BufSize := MaxBufSize else BufSize := Count;
GetMem(Buffer, BufSize);
// try
while Count <> 0 do
begin
if Count > BufSize then N := BufSize else N := Count;
Source.Read(Buffer^, N);
Dest.Write(Buffer^, N);
Dec(Count, N);
end;
// finally
FreeMem(Buffer, BufSize);
end;
end;

---

Наверх