高分求救！！！！

Question

我在设计的时候出现了这么一个问题，看看那位高手能帮我解决这个问题啊，我在用流的时候出现了不能create文件的问题，原程序是：
procedure TForm1.DBImage1Click(Sender: TObject);
var
filestream:tmemorystream ;
begin
    filestream:=tmemorystream.create;
    (table1.fieldbyname('AVIÎļþ') as tblobfield).savetostream(filestream);
    filestream.savetofile('d:/a.avi');
    mediaplayer1.FileName:='d:/a.avi';
    mediaplayer1.DeviceType:=dtavivideo;
    mediaplayer1.Open;
    filestream.free;
end;

Answer 1

一切都是AVI文件惹的祸，如果是其他类型文件，则一切正常！