-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
9. Aug 2012
Wenn man also eher ein selbst festgelegtes alias z.B. 'player1' nimmt sollte das doch nicht zu lang werden, oder?
gruss
Edit:
beides ist für mich noch relativ Spanisch, MMIOProc sagt mir garnichts :?
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
8. Aug 2012
Okay, danke, sagt mir nichts, ich versuch mich mal schlau zu machen...
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
8. Aug 2012
Hey Leute,
ich grabe den Thread eben nochmal aus :)
Wenn ich meine Sounds nicht alle von der Festplatte sondern aus einer Ressourcendatei sound.res laden möchte,
funktioniert das auch mit der MCIPlayer-Unit und wie? :stupid:
So nach dem Motto:
{$R sound.res}
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
25. Jul 2012
Ich versteh schon :-D
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
25. Jul 2012
Super, so zusammengeschustert klappt alles :)
Top :thumb:
mich auch hehe :stupid:
Vielen Dank an alle Beteiligten von meiner Seite nochmal :dp:
EDIT:
Eine Frage noch: Was mache ich jetzt, Free oder Destroy?
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
25. Jul 2012
Okay.
Jetzt hat er nur noch ein Problem damit, dass das command ein PWideChar ist, aber alias ein string...
also zum Beispiel command := ('set '+ alias +' time format milliseconds wait'); wirft einen Fehler auf (Inkompatible Typen: 'PWideChar und 'String').
Hingegen command := PWideChar('open "' + fileName + '" type ' + dtype + ' alias ' + alias + ' wait'); erkennt er nicht als Fehler...
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
25. Jul 2012
Naja, ist sie doch, oder?
EDIT: Hab dein Edit nicht gesehen, sorry ;)
Das ist die MCIPlayer unit...
unit MCIPlayer;
interface
uses Windows, Messages, mmsystem, StrUtils, SysUtils, Dialogs;
type
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
25. Jul 2012
Erstmal Danke für die verständliche Erklärung.
Und ersetze alle !mciplayer! mit dieser Variable
Auch bei Destroy?
public
{ public-Deklarationen }
//...
destructor Destroy(alias: string); override;
end;
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
25. Jul 2012
Okay.
:gruebel: Also mit diesem Alias steh ich auf Kriegsfuß... ich hab das nie irgendwo gehabt und weiß damit dementsprechend leider auch nichts anzufangen...
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
25. Jul 2012
Mit dem assigned kann man was anfangen
if assigned(myMCIPlayer) then
myMCIPlayer.Destroy;
Damit lässt es sich dann auch lösen. Danke!
Kann man auch zwei MCIPlayer gleichzeitig erstellen? myMCIPlayer1 und myMCIPlayer2 oder so?
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
25. Jul 2012
Das mit dem Autoplay ist schon mal super, hätte ich auch drauf kommen können...
myMCIPlayer := TMCIPlayer.Create(ExtractFilePath(Paramstr(0)) + 'Sounds\Sound1.wav', 'waveaudio', True);
Dann benötigst du nur Create und Destroy..
Ja, das ist gut, nur das Problem ist für mich das Destroy...
Alternativ könntest du auch noch eine neue procedure einbauen
in der du close verwendest und die...
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
25. Jul 2012
Ich habe einfach alles nochmal in mein anderes Sample mit der Lautstärke reingeschrieben und ja, wie soll ich sagen, auf einmal höre ich Sounds :thumb:
Jetzt bin ich mir nur nicht ganz schlüssig, wie ich das am klügsten lösen soll.
Der Sinn war ja immer wenn der Sound ausgeführt werden soll, im Beispiel bei jedem Tastenschlag ins Editfeld immer im Wechsel SoundAbspielen1 und SoundAbspielen2...
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
25. Jul 2012
Ah okay, gut, stimmt natürlich.
Ein bisschen beunruhigend, mal schauen wie es sich auf anderen PC's verhält.
Riesen Dank für deine Hilfe erstmal :dp:
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
25. Jul 2012
Ja, ich will nur wave Dateien abspielen.
Warum höre ich dann bei menem eigenen Programm keinen Sound!? :shock:
:wiejetzt: Wie meinst du das?
Aktuell sieht's jetzt so aus:
Pfad := ExtractFilePath(Paramstr(0)) + 'Sounds\Sound1.wav';
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
25. Jul 2012
Soweit war ich zum Glück auch schon :)
Hast du mal die Datei ausprobiert die ich angehängt habe? Ich höre auch nach deinem Änderungsvorschlag keinen Sound, egal wie laut ich mein System drehe :?:
Ich schätze mal ich müsste dann statt mpegvideo waveaudio schreiben, richtig?
Desweiteren, wie kann man dabei die Lautstärke beeinflussen?
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
25. Jul 2012
Das sieht ja schon mal gut aus, danke EWeiss.
Ich brauch erstmal nur WAVE-Dateien.
Ich habe die MCIPlayer Unit so wie sie ist eingebunden und so benutzt:
unit uTest;
interface
uses
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
24. Jul 2012
Hallo EWeiss,
das Ding ist, ich brauche beides PlaySound und SendMCICommand.
Der Sound wird häufig schnell hintereinander wiedergegeben und soll sich dabei überlagern, so wie sich das Geräusch von den Tasten die du drückst überlagert (wenn du das schnell hintereinander machst). Dazu habe ich nicht viel gefunden und habe es so gelöst, dass immer abwechselnd der Sound mit PlaySound oder mit...
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
24. Jul 2012
Okay danke, das kannte ich noch nicht.
Auf jeden Fall ist das schon mal optimaler, aber der blöde Fehler kommt trotzdem...
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
24. Jul 2012
(Ich kann den letzten Post jetzt leider nicht mehr editieren und im Nachhinein ist der Thread-Name ungünstig gewählt...)
Ich bin leider immer noch ratlos...
In der Unit kann man ja ExtractFilePath(Application.ExeName) nicht verwenden, deshalb habe ich ja ExePfad als globale Variable, was ziemlich unschön ist... Könnte darin irgendwie der Fehler liegen?
Ich habe mal die relevanten...
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
23. Jul 2012
Super, danke für eure Hilfe!
Der Code sieht jetzt so aus:
//globale Variable in Hauptform, weil ich nicht wusste wie ich das anders lösen sollte
ExePfad := ExtractFilePath(Application.ExeName);
//in Extra Unit
procedure SoundAbspielen(sound: byte);
begin
SendMCICommand('open waveaudio shareable');
-
Forum: Programmieren allgemein
Delphi
by Dunkelbunt27,
22. Jul 2012
Hallo Delphi-PRAXIS,
Ich möchte einen variablen Pfad in folgender Prozedur einsetzen?
Normalerweise würde der Aufruf ja wie folgt aussehen:
Wenn man aber keinen festen Pfad angeben möchte, sondern den Pfad der in dem String "Pfad" gespeichert ist nutzen will, wie schreibt man das syntaktisch?
//Beispielsweise: