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

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