안녕하십니까? 저는 델파이 4를 이요 Window2000Server에 돌리는 델파이 소켓서버 프로그램을 운영하려고 프로그램을 하고 있는도 중...

procedure TFAgenServer.SvrSocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  aNode: PDataNode;
  strMsg: String;
begin
  New(aNode);
  strMsg := Socket.ReceiveText;
  aNode.FText := strMsg;
  aNode.FSocket := Socket;

  //Data가 처음(PS)부터 끝(PE)까지 제대로 전송되었는지 Check 후 Put data in data Queue
  if assigned(@strMsg) then begin
    if (strMsg[1] = PS) and (strMsg[Length(strMsg)] = PE) then begin
      FDataQueue.Input(aNode); ->요 부분에서 Access violation at address 00514813 in module '서버.exe' Read of address 00000000. 이란 에러가 나는데 도저희 해결 방법을 모르겠습니다. 고수님들의 도움을 부탁드립니다.
      //Send User define message
      if FDataQueue.Lock = False then
        try
          PostMessage(Handle, FA_TREAT, 0, 0);
        except on e: exception do
          mmStats.Lines.Add('error:' + e.Message + ' [IP:'+ Socket.RemoteAddress + ']');
        end;
    end else
      mmStats.Lines.Add('error:소켓('+strMsg+')'+
                        '이 제대로 전송되지 않았습니다. ' +
                        '[IP:' + Socket.RemoteAddress + ']');
  end;
end;

onclientread 이벤트에서
* 강민주님에 의해서 게시물 이동되었습니다 (2003-02-18 01:12)