Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Подключение модуля к проекту 
V
    Опции темы
Sanek123
Дата 9.5.2009, 14:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 22.10.2008

Репутация: нет
Всего: нет
Качнул 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. Может что-то еще нужно? Подскажите.
--------------------
Вас разыскивают бойцы 139-го порта...
PM MAIL   Вверх
Alexeis
Дата 9.5.2009, 14:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
Нигде не вижу объявления FFTFata

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


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Sanek123
Дата 9.5.2009, 14:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 22.10.2008

Репутация: нет
Всего: нет
это из модуля 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.

--------------------
Вас разыскивают бойцы 139-го порта...
PM MAIL   Вверх
kami
Дата 9.5.2009, 19:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

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

Здесь телепатов нет.
Полный текст ругательства без вырезания цензурой в студию.
PM MAIL WWW   Вверх
Alexeis
Дата 9.5.2009, 23:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
Цитата(Sanek123 @  9.5.2009,  13:36 Найти цитируемый пост)
это из модуля CommonTypes.pas

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

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


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Sanek123
Дата 10.5.2009, 11:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 22.10.2008

Репутация: нет
Всего: нет
и правда все гениальное - просто... не доглядел
Код

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;

Всем спасибо за помощь!
--------------------
Вас разыскивают бойцы 139-го порта...
PM MAIL   Вверх
Нэраварин
  Дата 17.6.2009, 12:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 46
Регистрация: 9.3.2009

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

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

Это сообщение отредактировал(а) Нэраварин - 17.6.2009, 12:08

Присоединённый файл ( Кол-во скачиваний: 8 )
Присоединённый файл  5_Proba.7z 10,97 Kb
PM MAIL   Вверх
bems
Дата 17.6.2009, 19:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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


--------------------
Обижено школьников: 8
PM MAIL   Вверх
Нэраварин
  Дата 18.6.2009, 14:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 46
Регистрация: 9.3.2009

Репутация: нет
Всего: нет
 To bems 
Немог бы ты на примере прикреплёной задачи продемонстрировать? это а то я вобще ничего не понимаю  smile 

Это сообщение отредактировал(а) Нэраварин - 18.6.2009, 14:22
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0551 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.