delphi4arab منتديات دلفي للعرب

لقد صنعت ميديا بلير متكاملة وأحتاج فقط كيف استيراد مكاتب لتشغيل الصيغ
هل من معلومات حول هذا الموضوع وستجدون إن شاء الله الميديا الأسلامي الجديد المتكامل

السلام عليكم
لا أتذكر، فقط ابحث عن BASS في المنتدى والنت:

كود :
http://www.un4seen.com/

قد يفيدك هذا المشروع فكرة ومتابعة B.M.AbdelAziZ
فيه فكرة عن ربط مكتبة bass

بالتوفيق

السلام عليكم ورحمة الله

الأمر ليس "استيراد" بمعنة الكلمة وانما "دعم" صيغ الصوتيات و المرئيات
والاجابة متعلقة بكيفية برمجتك للMedia player وما استعملته من مكونات/مكتبات

موضوع له صلة: كيف تعمل جميع الصيغ في MediaPlayer
http://www.delphi4arab.net/forum/showthr...p?tid=5390

كود :
procedure TForm1.PlayLevelMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);

begin
 if ssLeft in Shift then
    begin
        with PlayLevel do begin
            Position := Round(X / (Width - 4) * Max);
            BASS_ChannelSetPosition(C, Position,BASS_POS_BYTE);

        end;

    end;
end;

ممكن شرح الكود

saozar ameen

kachwahed

mobile

محمد عبد العزيز

saozar ameen