ساخت سیدی اموزشی با دلفی (فوری)

[omid_matrix3]

سلام به همه دلفی کاران عزیز
من می خوام یه سیدی اموزشی با دلفی بسازم و از همه این اموزش کلیپ تهیه کردم
حالا مشکلم اینکه تو سی دی چه جوری اینهارو مسیر دهی کنم
مثلا کلیپ در لینک
F:\amozesh delphi\13.avi زیر هست حالا که می خوام تو سیدی قرار بدم بجای \:F چی قرار بدم

با Multimedia Builder 4.8 ;کار میکردم این دستور <SrcDir>\ کارم رو راه می انداخت اما با دلفی؟
SrcDir>\amozesh delphi\13.avi>
کارایی که برای پخش کلیپ می کنم
1-بعد از ایجاد فرم از قسمت system یک mediapleyer1 میزارم تو فرم
2- روmediapleyer1 کلیک می کنم از منوی Object Inspector از FileName مسیر فایل رو انتخاب میکنم
F:\amozesh delphi\13.avi
3-AutoOpen را True می کنم
یا یک Button1 انتخاب می کنم روش کلیک می کنم و کد mediaplayer1.play; را می نویسم

[manvaputra]

دوست عزیز برای اینکار بهتره آدرس فیلمهاتون رو بصورت آدرس پوشه جاری در نظر بگیرید یا اینکه قبل از کاری درایو سی دی رام رو بدست بیارید و بقیه ماجرا

[Hsimple11]

ٍتوابع ExtractFilePath و ParamStr را در سایت جستجو کنید.

[mossaferin]

'Filename := ExtractFileDir(ParamStr(0)) + '\video\1.avi
البته این هم یه راهه برای بدست آوردن مسیر جاری و فایل مورد نظر

[hadisalahi2]

دوست عزیز اگه براتون نرم افزارش مهم نیست ، بهتون پیشنهاد میکنم از نرم افزار های AutorWare یا Director استفاده کنید ، چون امکاناتش برای این کارهای فوق العاده است و ولی اگه حتما باید با دلفی انجام بدید، باید مسیر فایلهاتون رو نسبی بدید با همون دستوراتی که دوستم آقای ابراهیم نژاد(Hsimple11 (http://barnamenevis.org/forum/member.php?u=14163)) گفتند
یا حق

[omid_matrix3]

با تشکر از همه
استاد که گیر داده با دلفی بنویسیم وگرنه multimedia bilder رو فول بلدم
من که هنوز موفق نشدم کاری بکنم
برای پیدا کردن cd rom تابه زیر رو میشه بکار برد


procedure TForm1.Button1Click(Sender: TObject);
var
n:byte;
drv:string;
drives :set of 0..25;
const
drt : array[0..6] of string = ('Unknown','Unknown','Floppy Disk',
'Local Drive','Network Drive','CD-Rom','Ram-Disk');
begin
integer(drives) := getlogicaldrives;
for n := 0 to 25 do
if n in drives then
begin
drv := char(n + ord('A')) + ':\';
if(drt[getdrivetype(pchar(drv))] = 'CD-Rom') then
Label1.Caption := 'Drive ' + drv + ' is the CD-Rom Drive';
end;
end;

[Mahmood_M]

در مولتی مدیا بیلدر برای اینکار از عبارت کلیدی <SrcDir> استفاده می شه ، که در واقع در زمان اجرای برنامه مسیر فعلی برنامه رو بر میگردونه و به جابی عبارت <SrcDir> قرار می ده ، شما هم باید در دلفی مسیر فعلی برنامه رو بدست بیارید و اون رو به ابتدای آدرس فایلهاتون اضافه کنید ...
یکی از توابعی که این کار رو می کنه تابع ExtractFilePath هست که آدرس نام فایلی که به عنوان ورودی بهش می دید رو بر می گردونه ، یعنی در کل آدرس فایل شما به صورت زیر میشه :
فرض کنید فایلهای ویدیوئی شما در پوشه ای به نام Video قرار دارند :


FileAddress := ExtractFilePath(Application.ExeName)+'\Video\MyVid eo.avi';

متغیر FileAddress رو به صورت String باید تعریف کنید ، Application.ExeName هم نام فایل اجرایی برنامه رو برمی گردونه ...

موفق باشید ...