'Stream read Error'라는 에러 메세지가 나옵니다.
어디가 잘못된건가요?
소스는 아래와 같습니다.
고수님들 꼭 답변 부탁드립니다.
var
mStream : TMemoryStream;
buf : array[0..999999] of byte;
begin
mStream := TMemoryStream.Create;
try
if OpenDialog1.Execute then
begin
OpenDialog1.Files.SaveToStream(mStream);
mStream.Position := 0;
mStream.ReadBuffer(buf,1023); <== 이부분에서 에러 메세지가 나옵니다.
finally
mStream.Free;
end;
end;
mStream.ReadBuffer(buf,mStream.Size);
로 하시면 안될까염?