Firemonkey (xe2) Problem mit BASS.DLL Netstream!

[EWeiss]

Hab jetzt kein Firemonkey..
Aber was mir auffällt

Delphi-Quellcode:

  if not DoRec then DoRec:=True else DoRec:=False;
  exit;

Warum nicht einfach.
DoRec := not DoRec

PS: dein Code mit Delphitags formatiert sollte besser aussehen

gruss

[himitsu]

Das ist aber kein Fehler in der Funktion.
Es ist maximal unnötig/unoptimal/unschön.

Genauso wie hier:

Zitat:

if panMainOut.Enabled then panMainOut.Enabled:=False;

das if ... then kann weg, da das in dem Enable-Setter sowieso schon/nochmal geprüft wird.
oder

Zitat:

if didgit_vol >= 1 then didgit_vol:= 1;

">" reicht, denn bei Gleichheit entspricht es dem zu setzenden Wert, was dann ja unnötig wäre, es nochmals zu setzen.

Zitat von EWeiss:

PS: dein Code mit Delphitags formatiert sollte besser aussehen

Einige Funktionen wären mit einer passenden Quelltextformatierung bestimmt auch übersichtlicher aussehn.



Ansonsten hab ich mir den unübersichtlichen Code jetzt nicht genauer angesehn, aber hab bis jetzt nichts wirklich Schlimmes entdeckt.
Aber wäre es nicht besser, hier mal eine Testanwendung anzuhängen? Damit man es auch mal praktisch ausprobieren zu können?
OK, abgesehn von 'Programmname'.
Rate mal, was man dort reinschreiben sollte?
Man sollte eben nicht immer alles nur blind kopieren.
Denn wenn das alle machen würden, dann hättst du Probleme, da du dann dein Programm nicht gleichzeitig laufen lassen könntest, wenn schon ein Programm eines anderen C&P-Programmieres läuft.

Ach ja, du willst aber jetzt nicht auf Firemonkey wechseln, um später mal später mal MAC, Linux und Co. unterstützen zu können?
Mit der Windows-BASS-DLL kommt man da zumindestens nicht sehr weit.

[EWeiss]

Zitat:

Das ist aber kein Fehler in der Funktion.

Habe ich auch nicht beanstandet

Zitat:

Es ist maximal unnötig/unoptimal/unschön.

Korrekt !

Zitat:

Mit der Windows-BASS-DLL kommt man da zumindestens nicht sehr weit.

Kann sich ja mal hier schlau machen!
Cross Platform Libraries with Firemonkey


gruss

[felitec]

Das der Quelltext teilweise unübersichtlich und unschön ist steht außer frage, ich habe mit dem Programm vor circa 6 Jahren in Delphi 6 begonnen als ich 13 Jahre alte war ^^

Firemonkey möchte ich Hauptsächlich wegen der Grafischen spielerreien nutzen, so blöd wie das auch klingt.

Falls wirklich keiner irgend nen Fehler findet, werde ich entweder noch ne "Probe-Exe" anhängen oder nen kompletten rewrite machen müssen :/

MfG und danke schonmal!

[himitsu]

Zitat von felitec:

Das der Quelltext teilweise unübersichtlich und unschön ist steht außer frage

Tipp: Soo viel Arbeit muß man sich nicht machen, aber kennst du schon das neue Strg+D ? (Quellcodeformatter)

[felitec]

Quellcode ist jetzt in Delphi Tags formatiert. Zusätzlich möchte ich noch sagen, das die folgenden Funktionen für das Wiedergeben eines Streams zuständig sind:

- InitBassPlugin
- StatusProc
- OpenUrl
- btPlayClick

MfG

[EWeiss]

Zitat:

Quellcode ist jetzt in Delphi Tags formatiert.

So ist es auf jedenfall besser lesbar.

Schon gesehen?
Here's a demo that works with Delphi XE2 and Firemonkey

gruss