안녕하십니까.
왜 이게 안되는지 모르겠는데 아시는분있음 갈켜주세요 ^_^
뭐냐하면요.
다음과 같은 Code입니다.
function Tform1.test : integer;
var
Array_Source : Array of Byte; // <--가변 Array;
FTestStream : TMemoryStream;
len : integer;
begin
FTestStream := TMemoryStream.Create;
FTestStream.LoadFromFile(Opendialog1.FileName);
len := FTestStream.size;
SetLength(Array_source,len);
FTestStream.ReadBuffer(Array_Source,len);
FTestStream.Free;
result := Array_Source[0];
이렇게 하면 Array_Source라는 가변 Array에 File의 값이 들어가야 하는거 아닌가요?
뭘 잘못했나요?
알려주시면 감사 하겠습니다
|