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;
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;