델파이의 서버에 대한 액세스 위반

Question

TMemoryStream을 통해 간단한 클라이언트 및 서버 수신/전송 데이터를 쓰려고했습니다. 클라이언트의 버튼을 누를 때 btnTestClick 오류가 발생합니다. Access violation at address 005D5581 in module 'Client.exe'. Write of adress 00000000. 내가 뭘 잘못 했니?

Btw 클라이언트 서버 연결이 정상적으로 작동합니다. 얇은 사다리꼴 IdTCPClient1Connected 기능이 'Client Connected!'으로 작성되었습니다.

클라이언트 코드

procedure TForm1.btnTestClick(Sender: TObject); 
var 
    msRecInfo: TMemoryStream; 
    arrOf: array of Integer; i:integer; 
begin 
    for i := 0 to 10 do 
    arrOf[i]:=random(100); 

    msRecInfo:= TMemoryStream.Create; 

    try 
    msRecInfo.Write(arrOf, SizeOf(arrOf)); 
    idTCPClient1.IOHandler.Write(msRecInfo); 
    finally 
    msRecInfo.Free; 
    end; 

end; 

end 

서버 코드

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext); 
var 
    msRecInfo: TMemoryStream; 
    arrOf: array of Integer; i:integer; 
begin 
    msRecInfo:= TMemoryStream.Create; 
    try 
    AContext.Connection.IOHandler.ReadStream(msRecInfo, -1, False); 

    msRecInfo.Position := 0; 
    msRecInfo.Read(arrof, SizeOf(arrof)); 
    finally 
    memo1.Lines.Add(IntToStr(arrOf[1])); 
    msRecInfo.Free; 
    end; 
    //AContext.Connection.IOHandler.ReadStream(msRecInfo, SizeOf(arrOf)); 
    //msRecInfo.Read(arrOf, sizeOf(arrOf)); 
end; 

Answer 1

당신은 당신이 그것을 위해 어떤 요소를 할당 한 전에 동적 배열로 쓰기 시작. 동적 배열은 다른 언어에서 익숙해 진 것처럼 자동으로 확장되지 않습니다. 먼저 길이를 설정해야합니다. 동적 배열의 길이를 설정하지 않은 경우

, 그것은 당신이 주소 0

에서 액세스 위반을 얻을 왜 그렇게처럼 btnTestClick 방법을 변경 설명 널 포인터가 될 것입니다 :

var 
    msRecInfo: TMemoryStream; 
    arrOf: array of Integer; 
    i: integer; 
begin 
    SetLength(arrOf, 11); 
    for i := 0 to 10 do 
    arrOf[i] := Random(100);