Forum: Multimedia
Delphi
by Nils_13,
20. Jun 2005
Ich hab einen AMD AThlon mit einer guten Grafikkarte, außerdem muss das Programm auch auf anderen Computern laufen. Bei mir sind es 100%, mit 50 ist es auch nicht besser.
ICh geb mich geschlagen, ich hatte noch einen anderen Timer laufen.
THX !!!
Forum: Multimedia
Delphi
by Nils_13,
20. Jun 2005
Beide Methoden sind sehr gut, thx.
Nur was kann ich dagegen machen, dass immer der Computer überfordert wird ?
Forum: Multimedia
Delphi
by Nils_13,
20. Jun 2005
Geht nicht: der linken Seite kann nichs zugewiesen werden.
Forum: Multimedia
Delphi
by Nils_13,
20. Jun 2005
procedure TForm1.DrawMyBars(LKanal, RKanal: Longword);
var i: integer;
begin
if BassDLLPlayer1.Status = sndPlaying then
begin
for i := 0 to LKanal do
p.Width := p.Width + 1;
// DrawGradient
for i := 0 to RKanal do
p2.Width := p2.Width + 1;
Forum: Multimedia
Delphi
by Nils_13,
20. Jun 2005
Und jetzt muss ich left und right-peak miteinander verbinden, nur wie mach ich das, + - / * geht natürlich nicht.
Forum: Multimedia
Delphi
by Nils_13,
20. Jun 2005
Schön, ich kenn mich damit nicht aus, deshalb frag ich ja auch nach, left peak steht für linken Lautsprecher und right peak für den rechten ?
Forum: Multimedia
Delphi
by Nils_13,
19. Jun 2005
Sry.
Ich wollte mich erstmal nicht mit der bass.dll rumschlagen und habe zum testen den 'bassdllplayer' benutzt.
Der Fehler tritt erst auf, wenn ich auf den 'open-button' klicke. Unten im Anhang der gesamte Code ... .
Erstmal danke für die vielen antworten ... .
Forum: Multimedia
Delphi
by Nils_13,
18. Jun 2005
Wenn ich ein Lied öffnen will tritt der Fehler auf.
Forum: Multimedia
Delphi
by Nils_13,
18. Jun 2005
private
{ Private-Deklarationen }
Max: Single;
{...}
var
data: TFFTData;
begin
data := BassdllPlayer1.GetFFTData;
Forum: Multimedia
Delphi
by Nils_13,
18. Jun 2005
warum kommt hier eine ungültige Gleitkommaoperation ?
{ ... }
if Data > max then
begin
Max := Data;
p.Width := Round(max);
end;
end;
p.Width := Round(Data);
Forum: Multimedia
Delphi
by Nils_13,
18. Jun 2005
Sorry, hab den Screenshot vergessen :oops:
Forum: Multimedia
Delphi
by Nils_13,
18. Jun 2005
Hi,
wie ist es möglich eine 'Visualissation' zu programmieren. Ich weiß nur, dass man die Farbe bei einer entsprechenden 'Weite' abgeändert wird (Paintbox). Nur wie mach ich das ? Komponenten gibt es anscheinend nicht.