[Dmitry_DM]

Здравствуйте! Есть такая проблема: есть приложение, написанное в delphi, оно открывает файл через opendialog, обрабатывает его. Затем я нажимаю снова "открыть" и, к примеру, передумал открывать и нажал "отмена". Но вместо того, чтобы opendialog закрылся, он закрывается и выполняется еще раз действие с раннее открытым файлом. Что можно сделать? Как завершить выполнение программы и подготовить ее к первоначальному состоянию?

[M.A.D.M.A.N.]

код покажи. так сложно сказать.

[Dmitry_DM]

Сообщение от M.A.D.M.A.N.

код покажи. так сложно сказать.

Вы же знаете про какое я приложение говорю... Код огромный. Как мне его показать? Он на форум не помещается...
Можете посмотреть как эта ошибка выглядит. В последнем сообщении есть эта программа в этой теме: http://www.delphisources.ru/forum/sh...t=21946&page=4

[NumLock]

выложи минимальный проект воспроизводящий ошибку.

[poli-smen]

Делаешь так:

Код:

if OpenDialog1.Execute then
begin
  // Пользователь нажал кнопку "Открыть", здесь делаем обработку файла OpenDialog1.FileName
end;

[Dmitry_DM]

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

выложи минимальный проект воспроизводящий ошибку.

Проект удален по невостребованности.

[Dmitry_DM]

Сообщение от poli-smen

Делаешь так:

Код:

if OpenDialog1.Execute then
begin
  // Пользователь нажал кнопку "Открыть", здесь делаем обработку файла OpenDialog1.FileName
end;

Неа. Это не помогает...

[YVitaliy]

потому что:

Код:

procedure  TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
 if OpenDialog1.Execute then
begin
   MediaPlayer1.FileName:=OpenDialog1.FileName;
   MediaPlayer1.Open;
   MediaPlayer1.Play;
   LengthBar.Max:=MediaPlayer1.Length;
   LengthBar.Min:=MediaPlayer1.StartPos;
   Timer1.Enabled:=True;

end;————————>вот эту строку
  begin
    ClearWavInfo(WavInfo);
    tcDrawWav.Tabs.Clear;
    pbDrawWav.Invalidate;

    try
      ReadWavInfo(OpenDialog1.FileName, WavInfo);
    except
      ClearWavInfo(WavInfo);
      raise;
    end;

    sbTimePos.Position := sbTimePos.Min;
    sbTimePos.PageSize := 0;
    sbTimePos.Max := Max(WavInfo.NumSamples + sbTimePos.Min - 1, sbTimePos.Min);
    sbTimePos.PageSize := WavInfo.NumSamples div tbTime.Position;

    for i := 1 to WavInfo.WaveFormat.nChannels do
    begin
      tcDrawWav.Tabs.Add('Channel ¹' + IntToStr(i));
    end;

    pbDrawWav.Invalidate;
————————>нужно перенести сюда
  end;

[Dmitry_DM]

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

потому что:

Все, помогло, спасибо! Тема закрыта.