Quand je le disais qu'il y avait des choses à améliorer ...
Juste quand je viens de poster le code (je ne l'avais pas encore relu avant ... dommage)

procedure TMainForm.sbtSynthKeyClick(Sender: TObject);
var
  I,x : integer;

begin
  I := TSpeedButton(Sender).Tag - 500;
  if aVol[1] = MAXVOL then
  aPos[I] := 0;
  aVol[I] := MAXVOL;
  isKeyDown[I] := true;    

  for x := 0 to ComponentCount - 1 do
    if Components[x] is TSpeedButton then
      if (Components[x] as TSpeedButton).Name = 'sbtSynthKey'+ IntToStr(I+1) then begin
        (Components[x] as TSpeedButton).Down :=true;
      end;
end;

Pourquoi n'ai je pas fait simplement : TSpeedButton(Sender).Down := true;

Ceci restera un mystère :D peut-être que je découvrais ComponentCount ...
L'application est surtout faite pour être "utilisée"

je poste ce code tout de même pour contribuer à la vie de DelphiFR.com qui est en déclin je trouve ... de quoi relancer la machine en quelques sortes    

Désolé du double post

la lib BASS (de mémoire mais je pense) dans ce zip est une ancienne version, je te conseille de télécharger la dernière version à cette adresse " www.un4seen.com ".

Certaines fonctions utilisées dans ce programme n'existent plus dans la nouvelle version (la syntaxe a un peu changée)

Nicolas

Il te suffit de capturer ton micro dans un HSTREAM via un callback (voir l'aide à ce sujet, en particulier les HRECORD), après tu pourras réaliser avec ton HSTREAM n'importe quelle opération du style : augmenter/diminuer le son, la panoramique,...,ajouter des effets ...  


Nicolas

Salut Francky,

Je viens de (re)découvrir tes composants Music Pro hier et j'ai à peine le temps de les étudier que tu nous sort un logiciel comme celui-ci! C'est vraiment fait exprès pour embêter Madame ça ( ben oui, je vais encore passer combien d'heures à décortiquer tout ça moi ^^ ) !

En tout cas je salue l'effort tant au niveau de la programmation (c'est un sacré boulot) qu'au niveau du logiciel (c'est beau, c'est complet et il y a même un fichier d'aide pour conforter le fait que je vais rester scotché un bon bout de temps derrière ... et puis de toute façon il fait trop chaud dehors :) ).

En tout cas merci de partager le fruit de tes efforts à la communauté ;)  

Nico

Salut,

je n'ai ni regardé le code (j'ai plus delphi et je passe a autre chose) , ni même exécuté mais je salue l'idée.

Salut  

Salut routry,

1°) Si t'as carte mère supporte l'ASIO, je te conseille de passer à cette solution ci
http://www.delphifr.com/codes/PEDALE-MULTI-EFFETS-BASS-ASIO_49832.aspx

c'est la "suite" de cette source ci mais en supportant l'ASIO (latence diminué)

2°)Je vois pas ou est le problème : tu lances delphi, tu compiles, tu exécutes et voilà ;)

Maintenant je n'ai plus Delphi donc je ne peux t'aider plus (mais à priori il n'y a pas d'autres problèmes ... )

Maintenant si tu ne possède pas Delphi, tu ne peux pas tester ce code source ...

Celui ci http://www.delphifr.com/codes/PEDALE-MULTI-EFFETS-BASS-ASIO_49832.aspx possède un exécutable : livefx.ex_ qu'il faut renomer en livefx.exe ...

Nico

Salut,

j'aime bien ta source coté mise en œuvre j'aurais pas du tout fait comme toi mais bon ...
Serais tu me dire au juste quelle transformation fais tu sur les images ?

Ton image anaglyph = Image de Droite
puis tu retire le Rouge de ton image de droite
et tu "colles" ensuite ton image de gauche par dessus en ayant retirer au préalable le Vert et le Bleu.

Est-ce bien ça ?

J'ai vraiment du mal à m'y retrouver dans ton code (nom de variable + identation)

Merci

Nicolas  

la gestion des graves,médium et aiguë est faite dans ce source, il faut toucher à l'equaliseur ...

Nico

Un bon conseil, essaye d'en faire quelque chose d'utile (je ne parle pas du programme mais de l'utilisation de celui ci)

Si qq1 veut utiliser ceci dans un programme (ou même toi plus tard) tu devras changer qqch ds le code ...

Et un snippet serait plus approprié je pense ;)

Salut,

http://us.un4seen.com/files/bass24.zip

dans le zip, il y a un fichier d'aide ;)

voila