Проблема в том, что при открытии второго файла InFileR возникает исключение (не могу получить доступ к файлу, так как он занят другим процессом), которое я вижу в except, и после этого не выполняется FreeAndNil(InFileR);, т.е. на нем тоже возникает исключение.
Что я делаю не так? Во всех примерах в интернете с TFileStream в try выполняется create, а в finally выполняется Free. Собственно Free я тоже пробовал, результат тот же.

var
  InFileL,InFileR: TFileStream;
begin
  try
    try
      InFileL:=TFileStream.Create(NameL,fmShareDenyNone);
      InFileR:=TFileStream.Create(NameR,fmShareDenyNone);
  
  //действия с файлами (в частности сравнение контрольных сумм)

    except
      on E: Exception do ShowMessage(E.Message);
    end;
  finally
      FreeAndNil(InFileL);
      FreeAndNil(InFileR);
  end;

(читать всё…)

Пишу свой архиватор, алгоритм есть, но не могу получить двоичный код файла (читать всё…)

(читать всё…)

Появилась необходимость создавать файлы большого (до 10 ГБ) размера. Содержимое файла не имеет значения. Размер файла задается перед его созданием. Как реализовать? (читать всё…)

При нажатии на кнопку отчистить текстовый файл. (читать всё…)

То есть, для уничтожения информации (читать всё…)

(читать всё…)

Вообшем задача такая: есть удалённый компьютер, на нём программа которая делает скриншоты экрана по таймеру, и сжимает в поток. Я, на своём компьютере, когда хочу, подключаюсь к удалённому компьютеру, введя его IP, и принимаю потоки (скриншоты) его экрана.
В свою очередь поток разворачиваеться к примеру в компоненте Image и я вижу что происходит на удалённом компьютере практически в режиме реального времени… (читать всё…)

Мне нужно программно открыть текстовый документ, расположенный по заранее известному адресу — открыть для редактирования, ну или полностью заменить его. Насколько я понял из букварей Delphi, другая программа, которая открыла файл, может открыть его в режиме запрета доступа других программ к этому файлу. Значит, прежде чем открывать данный *.txt, нужно проверить, а есть ли у моей программы право его открывать для редактирования? (читать всё…)

(читать всё…)