ماهي طريقة تشغيل bass.dll مع دلفي 2009 فما فوق

[mehdus]

[b][b][b]بسم الله و الصلاة و السلام على خير خاق الله و بعد :
منذ مدة وأنا أحاول معرفة طريقة تشغيل ملف الباس.دلل bass.dll وذلك لأني حملت الكود المصدري لمشغل موسيقى متواضع من أحد المنتديات العربية و هو مبرمج ب دلفي 7 و أنا **** العمل على دلفي 2009 و لكني عندما أضغط على مفتاح التطبيق يعمل المشغل و لكن بعدما أختار الملف المراد تشغيله تخرج رسالة تخبرني أنه لا يستطيع تشغيل الملف + المسار الدي يوجد به الملف , علما أن هذا المشكل لا يحدث بتاتا مع دلفي 7 يعني أشغل الملف مع دلفي 7 فيعمل تمام و لكن مع دلفي 2009 يخبرني بالخطأ أفيدونا بارك الله فيكم

[/b][/b][/b]

[yassine_hell]

ممكن صورة للخطا؟
+
متاكد انك وضعت bass.pas , bass.dcu , bass.bpg في مجلد /lib للدلفي؟؟؟

[mehdus]

متاكد اني وضعت bass.pas , bass.dcu , bass.bpg في مجلد /lib للدلفي

و هذا رابط الصورة للخطأ.

كود :

http://data.imagup.com/6/1117969436.png

[yassine_hell]

هل جربت اغنية اخرى؟
وممكن source ؟؟

[mehdus]

أخي جربت حوالي الخمس عشرة أغنية و لكن دائما نفس رسالة الخطأ

[TF6M]

- ممكن ترفق الكود (جزء منه طبعا) ؟ , للمتابعة ...

[mehdus]

هاهو الكود أخي :

uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
bass,
dialogs, stdctrls, buttons, comctrls, menus, xpman, extctrls, filectrl;

type
tmainform = class(tform)
mmenu: Tmainmenu;
file1: Tmenuitem;
open1: Tmenuitem;
n1: Tmenuitem;
exir1: Tmenuitem;
odialog: Topendialog;
help1: Tmenuitem;
about1: Tmenuitem;
lstname: Tlistbox;
lstpath: Tlistbox;
panel2: Tpanel;
bitbtn1: Tbitbtn;
bitbtn2: Tbitbtn;
bitbtn3: Tbitbtn;
xpmanifest1: Txpmanifest;
panel1: Tpanel;
label1: Tlabel;
openfolder1: Tmenuitem;
procedure openfile(sender: Tobject);
procedure formcreate(sender: Tobject);
procedure appexit(sender: Tobject);
procedure bitbtn1click(sender: Tobject);
procedure bitbtn2click(sender: Tobject);
procedure about1click(sender: Tobject);
procedure lstnameclick(sender: Tobject);
procedure openfolder1click(sender: Tobject);
private
{ private declarations }
public
{ public declarations }
filepath : String ;
c : Dword ;
end;

var
mainform: Tmainform;

implementation

{$r *.dfm}
uses un0strs, opendirectory;
procedure tmainform.openfile(sender: Tobject);
var
i: Integer;
begin

if odialog.execute then
for i:= 0 to odialog.files.count -1 do
begin
lstpath.items.add(odialog.files[i]);

lstname.items.add(extractfilename(odialog.files[i]));
end;

end;

procedure tmainform.formcreate(sender: Tobject);
begin

if (hiword(bass_getversion) <> bassversion) then
begin
messagebox(0,n0_invalidbasslib_error, nil, mb_iconerror) ;
halt ;
end;


if not bass_init(-1, 44100, 0, handle, nil) then
begin
messagebox(0,n0_audioinitia_error, nil, mb_iconerror) ;
halt ;
end;

filepath := '' ;

odialog.filter:=n0_supportedext;
end;

procedure tmainform.appexit(sender: Tobject);
begin
bass_channelstop(c) ;
close ;
end;

procedure tmainform.bitbtn1click(sender: Tobject);
begin
try
bass_channelplay(c, false) ;
except
messagebox(0,pchar(format(n0_failplay_error,[filepath])), nil, mb_iconerror);
exit ;
end;
end;

procedure tmainform.bitbtn2click(sender: Tobject);
begin
bass_channelstop(c) ;
end;

procedure tmainform.about1click(sender: Tobject);
begin
messagebox(0, 'n0player audio player version '+n0_playerversion,'about n0player', mb_ok);
end;

procedure tmainform.lstnameclick(sender: Tobject);
begin
if lstname.itemindex=-1 then exit;
filepath := lstpath.items.strings[lstname.itemindex] ;

bass_channelstop(c) ;
bass_musicfree(c) ;

c := bass_streamcreatefile(false, pchar(filepath), 0, 0, 0) ;

if c = 0 then
begin
messagebox(0,pchar(format(n0_failplay_error,[filepath])), nil, mb_iconerror);
// messagebox(0,n0_failplay_error, nil, mb_iconerror) ;
exit ;
end;

label1.caption := lstname.items.strings[lstname.itemindex] ;
end;

procedure tmainform.openfolder1click(sender: Tobject);
begin
opendir.showmodal;
end;

end.

[mohfa]

من الصورة يظهر انك لم تحمل المشروع كاملا , فالمشروع تما انشائه في منتدى

كود :

www.arabteam2000-forum

المشروع يعمل على دلفي 2009 .
رابط المشروع :

كود :

http://www.arabteam2000-forum.com/index.php?showtopic=172495

والسلام عليكم

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

واضح انه لديك مشلكة يونيكود Unicode