Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > Подключение модуля к проекту


Автор: Sanek123 9.5.2009, 14:24
Качнул Bass.dll там исходники разные. Взял один из них смотрел смотрел - ничего не понял выкинул лишний код - Работает.
Открываю новый проект кидаю имеющийся код:
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, spectrum_vis,
  ExtCtrls, StdCtrls, ComCtrls, Bass, CommonTypes;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    PaintBox1: TPaintBox;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Channel    : DWORD;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   BASS_Init(-1, 44100, 0, Application.Handle, nil);
   Spectrum    := TSpectrum.Create(PaintBox1.Width, PaintBox1.Height);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
    Channel := BASS_StreamCreateFile(FALSE, PChar('C:\Documents and Settings\Admin\Рабочий стол\Мин нет - Три слова.mp3'), 0, 0, 0);
    BASS_ChannelPlay(Channel, False);
    Spectrum.BackColor := CLBlack;
    Spectrum.Pen := ClWhite;
    Spectrum.Peak := ClRed;
    Spectrum.Width := 4;
    Spectrum.LineFallOff := 7;
    Spectrum.PeakFallOff := 1;
    Spectrum.DrawPeak := true;
    Spectrum.Res := 1;
    Spectrum.Height := 45;
    Spectrum.Mode :=1;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Bass_Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if BASS_ChannelIsActive(Channel) <> BASS_ACTIVE_PLAYING then Exit;
  //  BASS_ChannelGetData(Channel, @FFTFata, BASS_DATA_FFT1024);
  // Spectrum.Draw (PaintBox1.Canvas.Handle, FFTFata, 1, -1);
end;

end.

и все... Ничего не работает. Ругается на закомментированные строчки. Подключаю через Delphi модули: bass.pas, CommonTypes.pas, Spectrum_vis.pas. Может что-то еще нужно? Подскажите.

Автор: Alexeis 9.5.2009, 14:33
Нигде не вижу объявления FFTFata

Добавлено через 1 минуту и 43 секунды
  Вообще-то компилятор дает подробное пояснение по ошибке, где написано что переменная не определена.

Автор: Sanek123 9.5.2009, 14:36
это из модуля CommonTypes.pas
Код

unit CommonTypes;

interface
 uses Windows, Dialogs, Forms, Controls, StdCtrls, Classes, ExtCtrls, SysUtils;

  Type TWaveData = array [ 0..2048] of DWORD;
  Type TFFTData  = array [0..512] of Single;

implementation

end.

Автор: kami 9.5.2009, 19:02
Цитата(Sanek123 @  9.5.2009,  14:24 Найти цитируемый пост)
Ругается на закомментированные строчки.

Здесь телепатов нет.
Полный текст ругательства без вырезания цензурой в студию.

Автор: Alexeis 9.5.2009, 23:47
Цитата(Sanek123 @  9.5.2009,  13:36 Найти цитируемый пост)
это из модуля CommonTypes.pas

 И что? Вижу объявление типа TFFTData, объявление переменной FFTFata по прежнему нигде нет.

Добавлено через 2 минуты и 53 секунды
  Намекну, это скорее всего буфер хранящий результат преобразования фурье для текущего сигнала. Его нужно объявить у себя и передать в функцию для заполнения, а потом использовать для отрисовки спектра. 

Автор: Sanek123 10.5.2009, 11:07
и правда все гениальное - просто... не доглядел
Код

procedure TForm1.Timer1Timer(Sender: TObject);
var
 FFTFata : TFFTData;
begin
 if BASS_ChannelIsActive(Channel) <> BASS_ACTIVE_PLAYING then Exit;
    BASS_ChannelGetData(Channel, @FFTFata, BASS_DATA_FFT1024);
    Spectrum.Draw (PaintBox1.Canvas.Handle, FFTFata, 1, -1);
end;

Всем спасибо за помощь!

Автор: Нэраварин 17.6.2009, 12:07
Здравствуйте уважаемые форумчане!
У меня такой же вопрос по подключению модулей в Delphi, пожалуйста обьясните новичку все правила подключения модулей.
(поиском пользоватся умею гугль юзал но не нашёл так что в гугль не посылать!)

Собсно я знаю что для перекрёстного подключения нужно обьявить модули в Interface и Implementation. НО у меня возникает большая проблема с процедурами и их перенесением в модули. например у одного модуля есть форма у другого нету и второй(без формы) ругается на неизвестные компоненты которые находятся на форме у первого. Помогите разобраться пожалуйста. smile 
 smile 
 Если кому не лень пожалуйста покажите на примере закреплёной задачи как переносить в другой модуль(процедуру TForm1.Timer1Timer(Sender: TObject);) и закоментарьте важные моменты. Помогите одним словом новичку в освоении паскаля smile 

Автор: bems 17.6.2009, 19:18
Обработчики событий лучше бы были в том же модуле, что и компоненты, вызывающие события. Но совсем не нужно делать всу полезную работу прямо в обработчике. В нем можно просто вызывать одну (ну или две-три) процедуру из дрогого модуля, где и будет вся полезная работа

Автор: Нэраварин 18.6.2009, 14:22
 To bems 
Немог бы ты на примере прикреплёной задачи продемонстрировать? это а то я вобще ничего не понимаю  smile 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)