Delphi向组件添加新过程

Question

我想向组件TMediaPlayer添加新过程。我不知道如何下载或阅读。这是我的尝试：

Type
  Tmyhelper =class helper for tmediaplayer
  Public
    Procedure loadfromstream(stream:tstream)
  End;


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;

Procedure 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;

Answer 1

我想从流中读取音频，视频我不知道代码在程序中如何加载流，例如，二进制文件Blob，谢谢