Главная страница
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.069 c
7-1076317828
Димос
2004-02-09 12:10
2004.04.11
Как мне получить список логических дисков, имеющихся в системе?


1-1082902802
ss300
2004-04-25 18:20
2004.04.11
TBitBtn


3-1079504748
fika
2004-03-17 09:25
2004.04.11
Unicode


14-1082037100
ghg
2004-04-15 17:51
2004.04.11
вопрос про покрытие на мониторе


14-1082452488
Феликс
2004-04-20 13:14
2004.04.11
Импорт файла 1С