Q&A

  • MemoryStream에 올라와 있는 JPEG이미지를 저장하기.
MemoryStream에 이미지를 로드했습니다..



이걸 FileStream.Write를 이용해서 저장할 수 있는 방법이 궁금합니다..



FileStream.Write(MemoryStream,Length(MemoryStream)); <--이런식으로 하면



에러가 나더라구요...



답변해 주시면 감사하겠습니다.



참고로 아래는 소스..

var

FileStream : TFileStream;

MemoryStream : TMemoryStream;

JpegImage : TJpegImage;



begin

MemoryStream := TMemoryStream.Create;

JpegImage := TJpegImage.Create;

FileStream := TFileStream.Create('NUMBER.DAT',fmCreate);

JpegImage.LoadFromFile(FileListBox1.FileName);

JpegImage.SaveToStream(MemoryStream);



FileStream.Write(MemoryStream,Length(MemoryStream));



MemoryStream.Free;

FileStream.Free;

JpegImage.Free;



end;

1  COMMENTS
  • Profile
    최용일 2000.08.17 20:19
    안녕하세요. 최용일입니다.



    TMemoryStream은 Memory란 속성에 데이타를, Size란 속성에 그 크기를 가지고 있습니다



    FileStream.Write(MemoryStream.Memory^, MemoryStream.Size);



    ^^ 항상 즐코하세요.



    초보 wrote:

    > MemoryStream에 이미지를 로드했습니다..

    >

    > 이걸 FileStream.Write를 이용해서 저장할 수 있는 방법이 궁금합니다..

    >

    > FileStream.Write(MemoryStream,Length(MemoryStream)); <--이런식으로 하면

    >

    > 에러가 나더라구요...

    >

    > 답변해 주시면 감사하겠습니다.

    >

    > 참고로 아래는 소스..

    > var

    > FileStream : TFileStream;

    > MemoryStream : TMemoryStream;

    > JpegImage : TJpegImage;

    >

    > begin

    > MemoryStream := TMemoryStream.Create;

    > JpegImage := TJpegImage.Create;

    > FileStream := TFileStream.Create('NUMBER.DAT',fmCreate);

    > JpegImage.LoadFromFile(FileListBox1.FileName);

    > JpegImage.SaveToStream(MemoryStream);

    >

    > FileStream.Write(MemoryStream,Length(MemoryStream));

    >

    > MemoryStream.Free;

    > FileStream.Free;

    > JpegImage.Free;

    >

    > end;