Текущий архив: 2004.02.06;
Скачать: CL | DM;

Вниз

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

← →
Евгений   (2003-05-19 20:02) [0]

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

---

← →
Gandalf ©   (2003-05-19 22:29) [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
( 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;

---

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

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

---

← →
mdw ©   (2003-05-20 11:45) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.02.06;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c