اقا من یه مثال ساده میخام که توش با media player دلفی کار شده باشه
مثلا من بتونم ادرس یه اهنگ سیسیتممو بدم ( با opendiag یا یه همچین چیزی) و اون برام اجراش کنه یعنی نمیخام ادرس رو تو سورس برنامه بدم مثلا بگم c://new folder/video.wmv
ممنون
Printable View
اقا من یه مثال ساده میخام که توش با media player دلفی کار شده باشه
مثلا من بتونم ادرس یه اهنگ سیسیتممو بدم ( با opendiag یا یه همچین چیزی) و اون برام اجراش کنه یعنی نمیخام ادرس رو تو سورس برنامه بدم مثلا بگم c://new folder/video.wmv
ممنون
سلامنقل قول:
تا حالا از اين امكان مخفي دلفي استفاده كردين : Help ؟
روي كنترل مدياپلير يه Ctrl+F1 بزنيد ، اكثر قسمتها داراي مثال هستند.
کد:procedure TForm1.OpenClick(Sender: TObject);
begin
OpenDialog1.DefaultExt := 'AVI';
OpenDialog1.Filename := '*.avi';
if OpenDialog1.Execute then
begin
MediaPlayer1.Filename := OpenDialog1.Filename;
MediaPlayer1.Open;
end;
end;
با NoneForce عزيز با هم پست داديم
حذف شود...
ممنون دوست گل و. عزیزنقل قول:
سلام
تا حالا از اين امكان مخفي دلفي استفاده كردين : Help ؟
روي كنترل مدياپلير يه Ctrl+F1 بزنيد ، اكثر قسمتها داراي مثال هستند.
چرا انقدر عصبانی همه که در حد شما delphi کار نکردن همه چی رو بدونن
بازم ممنون و اینکه اگه مثال دیگه ای کسی داره بزاره حتما به دردم می خوره
اقا این فقط پسوند avi رو اجرا میکنه من میخام هر پسوند audio و video دادی اجرا کنه
پس چی شد ؟
این همه حرفه ای ...............
اینو چه جوری حل کنم ؟
نقل قول:
اقا این فقط پسوند avi رو اجرا میکنه من میخام هر پسوند audio و video دادی اجرا کنه
سلام. تا حالا به اين كنترل نيازي نداشتم اما اين كد رو امتحان كنيد (براي پخش dat):
اگر تابع بالا را فقط يك بار اجرا كنيد، احتمالا دستور زير مشكلي پيش نمياره:کد:procedure Add_DAT_File_Support;
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\MCI Extensions',False) then;
if not Reg.ValueExists('dat') then
Reg.WriteString('dat','MPEGVideo')
finally
Reg.Free;
end;
end;
کد:MediaPlayer1.FileName := 'C:\MyMovie.dat';
اقا farhad گل ممنون
البته هنوز امحان نکردم ولی این فایلهای صوتی رو هم اجرا میکنه یا نه ؟
این تابه رو کجا باید فراخونی کنم ؟
ممنون می شم بیشتر منو راهنمایی کنی
نميدونمنقل قول:
البته هنوز امحان نکردم ولی این فایلهای صوتی رو هم اجرا میکنه یا نه ؟
formcreateنقل قول:
این تابه رو کجا باید فراخونی کنم ؟
ممنون fathad جان ولی فکر کنم راهی مثل این داشته باشه
OpenDialog1.Filename := '*.avi';
من میخام بدونم به جای *. avi میشه جوری نوشت که هم avi و هم mp3 و هم mpeg و....رو اجرا کنه
نمیدونم مثلا یه چی مثل این
; OpenDialog1.Filename := '*.avi'; and *.mp3 and *.mpeg