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

Вниз

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

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

Наверх

Память: 0.45 MB
Время: 0.032 c