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

3  COMMENTS
  • Profile
    나그네 2001.04.29 22:21
    m.CopyFrom(b, b.size);



    m.CopyFrom(b,0)로 해보세요



  • Profile
    김신제 2001.04.30 05:01
    나그네 wrote:

    > m.CopyFrom(b, b.size);

    > 를

    > m.CopyFrom(b,0)로 해보세요

    >

    고마워요. 밑에꺼 올린후에 DB에 다시 자료를 넣고 했더니 되네요.

    근데 화일 size가 크니까(약 90M) 메모리 부족현상이 생겨 실행이 안되네요.

    메모리를 거치지 않고 바로 실행할 순 없을까여 ? 마치 화일을 그냥 읽듯이...

    휴 초보자가 하려니 너무너무 힘드네여 흑흑 나이 탓인지 머리가 잘 안 도네여...

  • Profile
    김신제 2001.04.30 04:15
    나그네 wrote:

    > m.CopyFrom(b, b.size);

    > 를

    > m.CopyFrom(b,0)로 해보세요

    >

    그대로 해봤는데 역시 size는 0이 나오네요..휴...