[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

27.03.2009, 16:17

KaZ@NoVa

Постоянный

Регистрация: 05.07.2008

Сообщений: 555

Провел на форуме:
3134311

Репутация: 1467

Отправить сообщение для KaZ@NoVa с помощью ICQ

Отправить сообщение для KaZ@NoVa с помощью AIM

Отправить сообщение для KaZ@NoVa с помощью Yahoo

Цитата:

Сообщение от Nightmarе

Так всё-же может кто подкинуть код как скопировать файл если он занят другим процэссом???
Вот например:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
infs,outfs: tfilestream;
begin
infs := tfilestream.create( edit1.text, fmopenread );
outfs := tfilestream.create( edit2.text, fmcreate );
infs.free;
outfs.free;
end;

При занятости файла уведомляет ошибочкой, может fmopenread можно на что то заменить? ЧТобы было только чтение, а не открытие файла.

Стоит попробовать заменить TFileStream на TMemoryStream и загружать методом loadFromFile вроде! Да кроме того кажется там есть флаг при открытии - fmRead!