Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Программа и интерфейс
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 02.09.2012, 19:12
Dmitry_DM Dmitry_DM вне форума
Активный
 
Регистрация: 07.08.2012
Сообщения: 258
Версия Delphi: Delphi 7
Репутация: 11
По умолчанию Проблемма с приложением, написанным в Delphi

Здравствуйте! Есть такая проблема: есть приложение, написанное в delphi, оно открывает файл через opendialog, обрабатывает его. Затем я нажимаю снова "открыть" и, к примеру, передумал открывать и нажал "отмена". Но вместо того, чтобы opendialog закрылся, он закрывается и выполняется еще раз действие с раннее открытым файлом. Что можно сделать? Как завершить выполнение программы и подготовить ее к первоначальному состоянию?
Ответить с цитированием
  #2  
Старый 02.09.2012, 19:13
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

код покажи. так сложно сказать.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #3  
Старый 02.09.2012, 19:19
Dmitry_DM Dmitry_DM вне форума
Активный
 
Регистрация: 07.08.2012
Сообщения: 258
Версия Delphi: Delphi 7
Репутация: 11
По умолчанию

Цитата:
Сообщение от M.A.D.M.A.N.
код покажи. так сложно сказать.
Вы же знаете про какое я приложение говорю... Код огромный. Как мне его показать? Он на форум не помещается...
Можете посмотреть как эта ошибка выглядит. В последнем сообщении есть эта программа в этой теме: http://www.delphisources.ru/forum/sh...t=21946&page=4
Ответить с цитированием
  #4  
Старый 02.09.2012, 19:20
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

выложи минимальный проект воспроизводящий ошибку.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #5  
Старый 02.09.2012, 19:22
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Делаешь так:
Код:
if OpenDialog1.Execute then
begin
  // Пользователь нажал кнопку "Открыть", здесь делаем обработку файла OpenDialog1.FileName
end;
Ответить с цитированием
  #6  
Старый 02.09.2012, 19:23
Dmitry_DM Dmitry_DM вне форума
Активный
 
Регистрация: 07.08.2012
Сообщения: 258
Версия Delphi: Delphi 7
Репутация: 11
По умолчанию

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

Последний раз редактировалось Dmitry_DM, 02.09.2012 в 20:06.
Ответить с цитированием
  #7  
Старый 02.09.2012, 19:32
Dmitry_DM Dmitry_DM вне форума
Активный
 
Регистрация: 07.08.2012
Сообщения: 258
Версия Delphi: Delphi 7
Репутация: 11
По умолчанию

Цитата:
Сообщение от poli-smen
Делаешь так:
Код:
if OpenDialog1.Execute then
begin
  // Пользователь нажал кнопку "Открыть", здесь делаем обработку файла OpenDialog1.FileName
end;
Неа. Это не помогает...
Ответить с цитированием
  #8  
Старый 02.09.2012, 19:38
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

потому что:
Код:
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;
Ответить с цитированием
Этот пользователь сказал Спасибо YVitaliy за это полезное сообщение:
Dmitry_DM (02.09.2012)
  #9  
Старый 02.09.2012, 19:46
Dmitry_DM Dmitry_DM вне форума
Активный
 
Регистрация: 07.08.2012
Сообщения: 258
Версия Delphi: Delphi 7
Репутация: 11
По умолчанию

Цитата:
Сообщение от YVitaliy
потому что:
Все, помогло, спасибо! Тема закрыта.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

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

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:54.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter