Type
Tmyhelper =class helper for tmediaplayer
Public
Procedure loadfromstream(stream:tstream)
Ebd;
في الإجراء
Procedure tmyhelper.loadfromstream(stream: tstream);
Var
S: tfilestream;
Filename:tfilename;
Begin
S:= tfilestream.create(filename,fmopenread);
Try
//S.read( s,sizeof(s));//loadfromstream
Finally
S.free;
End;
وان كان loadfromfile
يكون كاتالي
Procedure tmyhelper.loadfromfile(const filename: tfilename);
Var
S: tfilestream;
Begin
S:=tfilestream.create(filename,openread);
Try
//S.copyfrom(s,sizeof(s));//loadfromstream
Finally
S.free;
End;
لم أعرف الكود الدي يجعلني ٱحمل الى المتغير ستريم
