Zawsze pisałem aplikacje w delphi jako piękne kolorowe okienka wysiane na gotowej formie i komponentach. Znudziła mi się niedawno ta metoda. Zacząłem pisać aplikacje konsolowe i wpadłem na pomysł wykorzystania funkcji PlaySound. Dodałem bibliotekę , nawet grafikę z czcionki - menu zapętlane , regulacje głosu ,koloru czcionki. Jednym słowem git. Zmieściłem się w masie 390KB. Dźwięki odtwarza , ale niestety tylko wav. pomyślałem - dodam Mediapayera. dodałem więc "MPlayer1: TMediaPlayer;" wszystko pięknie , udana kompilacja (usesy też wziąłem pod uwagę "MPlayer")próba otwarcia muzyki w formacie jakimkolwiek i ... lipa. okienko robi mi "exita z błędem"
Czy taka operacja jest w ogóle możliwa ?
0
2
Poczytaj o bibliotece 'bass.dll'
2
MediaPlayer musi mieć rodzica więc trzeba coś w stylu:
program Project1;
{$APPTYPE CONSOLE}
uses
MPlayer;
var
MPlayer1: TMediaPlayer;
function GetConsoleWindow: Cardinal; stdcall; external 'kernel32.dll';
begin
MPlayer1:= TMediaPlayer.CreateParented(GetConsoleWindow);
MPlayer1.FileName:= 'd:\test.mp3';
MPlayer1.Open;
MPlayer1.Wait:= True;
MPlayer1.Play;
MPlayer1.Free;
end.
0
Dzięki . To jest odpowiedź z rozmachem : Na jedno i na drugie , jeszcze nie zadane pytanie(jak "zwracać się" do Konsoli , bo przecież nie Form... )
1
A co to znaczy "zwracać się"? Napisz konkretniej co chcesz uzyskać.
0
Dzięki ponowne (za usunięcie tripleposta i odpowiedź).
Problem został rozwiązany . Jak pisałem , jestem dalej przyzwyczajony do graficznych funkcji.
Zwracać się - chodziło mi o coś takiego :
Form1.caption.....
panel1.color..... (w konsoli usilnie próbowałem Console... :-) )itp. dopiero teraz wpadłem na zastosowanie Uchwycików (wstawiałem jako wartość 0-pulpitu).
Poza tym problem znikł bo odkryłem ,że nie da się tak bezpośrednio zwracać , tylko trzeba stosować polecenia i procedury , które zmienią np Napis na pasku....
Kod porównałem i ... Okazało się że nawet nie stworzyłem Mpayera(Create(self)). Podpowiedź o rodzicu była tutaj zbawieniem . Jak wrócę do domu , to sprawdzę czy działa. Dzięki serdeczne dla wszystkich.
0
Działa ! Działa ! działa ! Dzięk kAzek ! Z resztą dam sobie radę !
Myślę ,że temat zakończony . Teraz wypadało by rozdać łapki dla wszystkich , którzy wprowadzili coś do tematu (czyli wszyscy) Pozdrawiam! :)
W załączniku wrzucam mix screenów z aplikacji. Miodzio!