Проблема с потоками

← →
Deimos (2003-11-14 12:19) [0]

Пишу инсталятор для своей утилиты, в процессе надо скопировать файлы во временную папку
написал такую процедуру:

var
new,old:PStream;

procedure copyToWinSystem(Dummy: Pointer; Sender:PControl);
begin
if CheckDirectoryContent(GetTempDir+"wcdupd.exe",false,"wcdupd.exe")=true then
begin
old:=NewReadFileStream (getStartDir+"wcdupd.exe");
new:=NewWriteFileStream(GetTempDir+"wcdupd.exe");
new.Write(old,old.Size);
new.Free;
old.Free;
end;
end;

в результате в конечной папке (в моём случае c:\winnt\temp) находится exe-шник с тем-же именем и того-же размера что и исходный,
но набитый совершенно левым мусором... Что я делаю неправильно?

← →
SPeller © (2003-11-14 13:09) [1]

Нужно сначала прочитать в буфер твой файл, а уж потом из этого буфера писать. В параметр функции Write потока надо передавать указатель на блок памяти, а не указатель на объект другого потока!

Можно исползовать Stream2Stream(new, old, old.Size);

Проблема с потоками Найти похожие ветки