[Dmitry_DM]

Я обращаюсь ко всем, а особенно к angvelem, так как именно он на мой взгляд знает решение проблемы.. Короче имеется плеер, имеется программа. Я хочу сделать вызов формы плеера кнопкой на форме основной программы. Я думал нет ничего проще. Казалось бы так и есть. Но в результате получилось нечто не предсказуемое. Плеер вышел из строя частично (визуализации нет, время проигрывания нет, полоса проигрывания не ползет) а так же при компиляции программы выдает ошибку access violetion, а дальше работает по вышеописанному. Я уже голову сломал, что еще можно сделать? Проблема в том, что в моей программе есть 2 доп. компонента, что бы можно было помочь разобраться в проблеме, нужно их установить. Это Alpha Controls и New Audio Components. Чтобы их установить, нужно закинуть приложенные папки в Borland\Delphi7\Lib и в Delphi - Tools - Environment Options - Library - Library Pach - добавить 2 папки (как на скрине ниже). А потом File - Open - из этих 2 папок открыть NewAC.dpk - Compile - Instal. Так же и для Alpha Controls. Только там открыть acntD7_R.dpk - Compile(без Instal), и acntD7.dpk - Compile - Instal. И потом открыть мой WavEncoder.dpr. В самой программе кнопка открытия находится на вкладке Utilits. Очень рассчитываю на вашу помощь, а то я уже 3 дня застопорился. А надо делать новый прогресс в основной задаче программы - шифрование wav файла, приведя колебания звука к равномерному закону распределения. Но это уже не важно.. Остальное скачать по ссылке http://us.ua/977995/

[angvelem]

Запустил как самостоятельное приложение - "полёт нормальный". Недостаток - подмигивает визуализация.

[Dmitry_DM]

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

Запустил как самостоятельное приложение - "полёт нормальный". Недостаток - подмигивает визуализация.

Я то понимаю, проблема в том, что не хочет плеер работать в моей программе. Вот и хочу спросить что делать??

[angvelem]

Так скажи, это появилось после подключения Alpha Controls?

[Dmitry_DM]

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

Так скажи, это появилось после подключения Alpha Controls?

Нет, это просто: я подключил форму вашего плеера и назначил открытие этой формы кнопке, расположенной на моей программе.
А Alpha Controls Я использую уже давно и проблем с ним некогда не было.

[angvelem]

Ну а как вызываешь? Много написал, но по существу так и ничего не сказал.

Никаких проблем при запуске:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, NIL, PChar('mp3player.exe'), '', '', SW_SHOWNORMAL);
end;

[Dmitry_DM]

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

Ну а как вызываешь? Много написал, но по существу так и ничего не сказал.

Никаких проблем при запуске:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, NIL, PChar('mp3player.exe'), '', '', SW_SHOWNORMAL);
end;

да это не то. То по старинке забыл убрать. Оно роли не играет. Вызывается форма так:

Код:

procedure TForm1.sButton1Click(Sender: TObject);
begin
Form_player.Show;
end;

[angvelem]

При чём тут "старинка". Я не знаю как у тебя вызывается, это я так вызов сделал. Через Show я не пробовал.

[Dmitry_DM]

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

При чём тут "старинка". Я не знаю как у тебя вызывается, это я так вызов сделал. Через Show я не пробовал.

Да к у меня такая строчка в программе была... Да, без проблем вызывает. Только мне форму надо открывать, а не скомпилированный exe.

[angvelem]

Сделал через Show - запускается и работает нормально.

[Dmitry_DM]

И при этом всем, при

Код:

procedure TForm1.sButton1Click(Sender: TObject);
begin
Form_player.Show;
end;

при нажатии на кнопку сначала access Violetion - ok - ok и открывается плеер с кучей ошибок... почему-то..

[Dmitry_DM]

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

Сделал через Show - запускается и работает нормально.

Отправьте проект! Если правда работает, то чудесно!

[angvelem]

Чего там отправлять?

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
  form_player.Show;
end;

ну и не забыть добавить mp3.pas в автооткрытие:
test.dpr

Код:

program test;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  mp3 in 'mp3.pas' {Form_player};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm_player, Form_player);
  Application.Run;
end.

[Dmitry_DM]

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

Чего там отправлять?

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
  form_player.Show;
end;

ну и не забыть добавить mp3.pas в автооткрытие:
test.dpr

Код:

program test;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  mp3 in 'mp3.pas' {Form_player};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm_player, Form_player);
  Application.Run;
end.

Это вы делали в моей программе или тестовой? В ново-созданной у меня тоже все отлично выходит и без ошибок

[angvelem]

Создал проект, поместил кнопку и вызываю.

В ново-созданной у меня тоже все отлично выходит и без ошибок

Значит ищи где косяк. Надеюсь в автосоздание добавить не забыл.