Q&A

  • 왜 않되는지 고수님들 부탁해여...
procedure TForm1.Button2Click(Sender: TObject);

var

b : TBlobstream;

m : TMemoryStream ;

begin

b := TBlobStream.Create(Tblobfield(Table1.Fields[0]),bmReadWrite);

try

m := TMemorystream.Create ;

try

m.CopyFrom(b, b.size);

m.SaveToFile('c:구자료adim01.avi') ;

Mediaplayer1.filename := 'c:구자료adim01.avi';

finally

m.Free ;

end;

finally

b.Free ;

end;

end;

//im01.avi size가 0이 됩니다.



//또하나 Blobfield(avi나 mpg file을 load했음)의 내용을 바로 play 시키는 방법은 없나여 ? 고견 기다립니다....

0  COMMENTS