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 ?
- Rejestracja:prawie 11 lat
- Ostatnio:prawie 11 lat
- Postów:4
0
Delphi 
- Rejestracja:prawie 20 lat
- Ostatnio:około 8 godzin
- Lokalizacja:Gorlice
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.
edytowany 1x, ostatnio: kAzek
- Rejestracja:prawie 11 lat
- Ostatnio:prawie 11 lat
- Postów:4
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... )
flowCRANE
Pamiętaj o tym, by pomocne posty plusować (po prawej stronie posta jest łapka), a ten najważniejszy post zaakceptować (pod łapką jest ptaszek) - w ten sposób zakańcza się wątki na tym forum;
flowCRANE
Widzę, że trzy posty wysłałeś - usunąłem duplikaty;
- Rejestracja:prawie 11 lat
- Ostatnio:prawie 11 lat
- Postów:4
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.
- Rejestracja:prawie 11 lat
- Ostatnio:prawie 11 lat
- Postów:4
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!
- untitled.JPG (110 KB) - ściągnięć: 223
edytowany 1x, ostatnio: compaqdel
Zrób sobie nawigowanie po wszelkich menu za pomocą klawiszy strzałek - będzie bardziej profesjonalnie :)