Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

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

 
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 потока надо передавать указатель на блок памяти, а не указатель на объект другого потока!


 
mdw ©   (2003-11-14 13:22) [2]

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



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

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

Наверх




Память: 0.47 MB
Время: 0.029 c
1-1080130745
dik
2004-03-24 15:19
2004.04.11
Функция UpCase


1-1082465675
Tornado
2004-04-20 16:54
2004.04.11
почему не работает OEM_CHARSET в TListView ?


3-1082013863
ksa2002
2004-04-15 11:24
2004.04.11
Ошибка при присвоение значения переменной procedure в inter base


1-1079945390
Layner
2004-03-22 11:49
2004.04.11
Как вытащить время, сколько работает windows?


8-1070934935
maxfiles
2003-12-09 04:55
2004.04.11
Как можно определить длительность qt и mov ролика?