Indy 소켓 9에서 AccessViolation을받는 이유 IdTcpServer ServerExecute?

Question

첫 번째 질문 :

다음 루틴은 Indy 9 IdTcpServer.OnExecute 루틴의 올바른 구현입니까?

procedure TMyConnServer.ServerExecute(AContext: TIdPeerThread); 
var 
    buffSize: integer; 
    str:  string; 
begin 
    AContext.Connection.ReadFromStack(True, 600, False); 
    buffSize := AContext.Connection.InputBuffer.Size; 
    if (buffSize > 0) then 
    { Extract input buffer as string } 
    str := AContext.Connection.ReadString(buffSize); 

    { Notify connection object of received data } 
    if (AContext.Data <> nil) then 
    begin 
     TConnectionHandler(AContext.Data).Read(str); 
    end; 
    end; 
end; 

초 (실제로 더 중요한) 질문 :

지금 가끔 액세스 위반이 (주소 000000 읽기). 분명히 라인 :

AContext.Connection.ReadFromStack(True, 600, False); 

하지만 확인 AContext/연결/INPUTBUFFER/IOHandler = 전무는 전에 false 인 경우. 호출 후 (예외 발생 후) IOHandler는 nil입니다.

우리는 RAD 스튜디오/델파이 2007

Answer 1

당신이 설명처럼 IOHandler이 전무가 될 수있는 유일한 방법 인 경우 분리 (라는 응용 프로그램에서 다른 스레드)에 작업자 스레드가 실행 중일 때 연결.

Answer 2

음을 사용하고, 내가 가지고있는 가장 간단한에 OnExecute 핸들러는 다음과 같이한다. (변명 대신 델파이 C++,하지만 당신은 아이디어를 얻을 수 있습니다.

void __fastcall MyPanel::DoTCPExecute(TIdPeerThread * AThread) 
{ 
    AnsiString text =AThread->Connection->ReadLn(); 
    // now do something with text 
} 

내가 볼 수있는 유일한 명백한 문제는 당신이 완전한있을 때 결정하기 위해 데이터의 "타이밍"을 사용하려는 것입니다 문자열이 있습니다. 이것은 TCP가있는 실제 no-no입니다. 문자열의 첫 번째 바이트 만 있거나 한 번에 여러 개의 문자열을 모두 가질 수 있습니다 .TCP에서는 각 "보내기"가 단일 "수신으로 끝나는 것은 아닙니다 "다른 끝에서

다른 방법으로 문자열을"구분 "해야합니다 Readln은 줄 바꿈 문자를 종결 자로 사용합니다 - 다른 방법은 각 데이터 묶음 앞에 길이 필드를 붙이는 것입니다. 나머지 데이터를 읽습니다.

Answer 3

코드는 그렇게 작동하지만, 나는 그것이 깨끗한 옵션을 생각하지 않습니다 :

if (AContext.Connection.Connected) then 
    begin 
    try 
     AContext.Connection.ReadFromStack(false, 1, false); 
    except on E: EAccessViolation do 
     // ignore 
    end; 
    end; 
    buffSize := AContext.Connection.InputBuffer.Size;