Mega Code Archive
Sesli film - sessiz film ve loop
//Delphi FAQs and TIs
uses MMSystem;
procedure SetMediaAudioOff(DeviceID : word);
var
SetParm : TMCI_SET_PARMS;
begin
SetParm.dwAudio := MCI_SET_AUDIO_ALL;
mciSendCommand(DeviceID,
MCI_SET,
MCI_SET_AUDIO or MCI_SET_OFF,
Longint(@SetParm));
end;
Procedure SetMediaAudioOn(DeviceID : word);
var
SetParm : TMCI_SET_PARMS;
begin
SetParm.dwAudio := MCI_SET_AUDIO_ALL;
mciSendCommand(DeviceID,
MCI_SET,
MCI_SET_AUDIO or MCI_SET_ON,
Longint(@SetParm));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
{Play AVI file silently}
MediaPlayer1.FileName := 'C:\TheWall\DELCAR2.AVI';
MediaPlayer1.Display := Panel1;
MediaPlayer1.Open;
MediaPlayer1.Play;
SetMediaAudioOff(MediaPlayer1.DeviceId);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
{Play AVI with sound}
MediaPlayer1.FileName := 'C:\TheWall\DELCAR2.AVI';
MediaPlayer1.Display := Panel1;
MediaPlayer1.Open;
MediaPlayer1.Play;
SetMediaAudioOn(MediaPlayer1.DeviceId);
end;
//ayrıca sonsuz kere çalıştırma kodu ise:
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
with MediaPlayer1 do
if NotifyValue = nvSuccessful then begin
Notify := True;
Play;
end;
end;
//Ekstra bilgileri görüntüleme
procedure TForm1.Button3Click(Sender: TObject);
begin
MediaPlayer1.TimeFormat := tfFrames;
ShowMessage('Number of frames = ' +
IntToStr(MediaPlayer1.Length));
MediaPlayer1.TimeFormat := tfMilliseconds;
ShowMessage('Number of milliseconds = ' +
IntToStr(MediaPlayer1.Length));
end;
//İlk Frame'i göstermek
procedure TForm1.Button4Click(Sender: TObject);
begin
Application.ProcessMessages;
MediaPlayer1.Open;
Application.ProcessMessages;
MediaPlayer1.Step;
Application.ProcessMessages;
MediaPlayer1.Previous;
end;