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
- Rejestracja:prawie 20 lat
- Ostatnio:2 minuty
- Lokalizacja:Gorlice
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.
- Rejestracja:prawie 11 lat
- Ostatnio:prawie 11 lat
- Postów:4
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... )


- Rejestracja:prawie 11 lat
- Ostatnio:prawie 11 lat
- Postów:4
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
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ęć: 239

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.