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했음)의 내용을 이렇게 file로 한번 옮긴후 하지않고 DB에서 그 Data로바로 play 시키는 방법은 없나여 ? 고견 기다립니다....
를
m.CopyFrom(b,0)로 해보세요