안녕하세여. 타락임다..

코드는 딱히 에러날건 없는거 같은데... 에러가 난다면....

Create 함수 때문이예요..

Create 는 아직 클래스가 생성되기 전에 발생해요..

따라서 아직 채 생성되지 않은 클래스에서 메세지나 이벤트를 주고 받을수 없어요..

무슨말인지 알겠죠?

먼저 Create을 한후에 Active라는 property를 True 하면 CreateEvent하도록

했습니다. Create을 했으니  객체가 생성되었을 것 같고, 되야 할것 같은데....

여전히 같은 에러를 발생합니다.... 흐...  밑에 에러메세지도 첨부했습니다...

비주얼 C++ 닷넷에서는 잘 작동하는 것을 확인하였습니다.... 쩝.. 대충 봐도 같

은 소스인것 같은데....

<!--CodeS-->
unit pas_Socket;

interface

uses IdWinSock2, Windows;

type
   TAsyncSocket = class
       private
         m_WSADATA : TWSADATA;
         m_hServSock : TSOCKET;
         m_ServAddr : SOCKADDR_IN;

         m_hSockArray : array [0..wsa_maximum_wait_events - 1] of TSOCKET;
         m_hClntSock : TSOCKET;
         m_ClntLen : integer;
         m_ClntAddr : SOCKADDR_IN;

         m_hEventArray : array [0..wsa_maximum_wait_events - 1] of WSAEVENT;
         m_NewEvent : WSAEVENT;
         m_NetEvents : TWSANETWORKEVENTS;

         m_SockTotal : integer;
         m_Index : integer;
         m_Active : boolean;

         m_IpAddr : string;
         m_Port : Word;

         procedure Bind;
         procedure Load(Active : Boolean);
       public
         constructor Create(Host : string; Port : Word);
         procedure Listen;
         procedure Close;
         procedure Free;
       property Active : boolean read m_Active write Load;
   end;

implementation

{ TAsyncSocket }

procedure TAsyncSocket.Bind;
begin
   if IdWinSock2.bind(m_hServSock, @m_ServAddr, SizeOf(m_ServAddr)) = SOCKET_ERROR then
   begin
       Assert(True, 'Bind Error');
       exit;
   end;
end;

procedure TAsyncSocket.Close;
var i : integer;
begin
   for i := 0 to m_SockTotal - 1 do
   begin
       WSACloseEvent(m_hEventArray[i]);
       CloseSocket(m_hSockArray[i]);
   end;
end;

constructor TAsyncSocket.Create(Host : string; Port : Word) ;
begin
   m_SockTotal := 0;

   m_IpAddr := Host;
   m_Port := Port;

   if (WSAStartup(MAKEWORD(2, 2), m_WsaData) <> 0) then
   begin
       Assert(True, 'WSAStartUp Error');
       exit;
   end;

end;

procedure TAsyncSocket.Free;
begin
    WSACleanup;
end;

procedure TAsyncSocket.Listen;
begin
   if (IdWinSock2.listen(m_hServSock, 5) = SOCKET_ERROR) then
   begin
       Assert(True, 'Listen Error');
       exit;
   end;

   m_hSockArray[m_SockTotal] := m_hServSock;
   m_hEventArray[m_SockTotal] := m_NewEvent;
   Inc(m_SockTotal);
end;

procedure TAsyncSocket.Load(Active : boolean);
begin
    if (not m_Active) and (Active) then
    begin
        m_hServSock := Socket(PF_INET, SOCK_STREAM, 0);
        if (m_hServSock = INVALID_SOCKET) then
        begin
            Assert(True, 'Socket Error');
            exit;
        end;

        m_ServAddr.sin_family := AF_INET;
          m_ServAddr.sin_addr.S_addr := Inet_Addr(pChar(m_IpAddr));
        m_ServAddr.sin_port := HtoNs(m_Port);

        Bind;

        m_NewEvent := WSACreateEvent;
        if (WSAEventSelect(m_hServSock, m_NewEvent, FD_ACCEPT) = SOCKET_ERROR) then
        begin
            Assert(True, 'WSACeateEvent Error');
            exit;
        end;
    end
    else if (m_Active) and (not Active) then
    begin
        Close;
    end;


    m_Active := Active;
end;

end.
<!--CodeE-->

인터넷에서 구한 WinSock2.pas로 대체하니까 됩니다..