Форум программистов [Powered by Invision Power Board]

Код



DWORD WINAPI CreateWindowKlient(void *Param)
{
HINSTANCE hInstance=GetModuleHandle(0);
//=======================запускаем окно клиента ============================

//==============================================================================



//===================================================================
    WNDCLASSEX wClass;
    ZeroMemory(&wClass,sizeof(WNDCLASSEX));
    wClass.cbClsExtra=NULL;
    wClass.cbSize=sizeof(WNDCLASSEX);
    wClass.cbWndExtra=NULL;
    wClass.hbrBackground=(HBRUSH)COLOR_WINDOW;
    wClass.hCursor=LoadCursor(NULL,IDC_ARROW);
    wClass.hIcon=NULL;
    wClass.hIconSm=NULL;
      wClass.hInstance=hInstance;
    wClass.lpfnWndProc=(WNDPROC)WinProcNetwork;
    wClass.lpszClassName="Window Class";
    wClass.lpszMenuName=NULL;
    wClass.style=CS_HREDRAW|CS_VREDRAW;

    if(!RegisterClassEx(&wClass))
    {
    }

    hWndConnect=CreateWindowEx(NULL,"Window Class","Windows Async Client",WS_OVERLAPPEDWINDOW,200,200,640,480,NULL,    NULL,hInstance,NULL);

    if(!hWndConnect)
    {}

        ShowWindow(hWndConnect,nShowCmd);

    MSG msg;
    ZeroMemory(&msg,sizeof(MSG));


//===================Производим открытие порта..======================

// Set up Winsock
WSADATA WsaDat;
DWORD NetworkResult=WSAStartup(MAKEWORD(2,2),&WsaDat);
if(NetworkResult!=0)
{return 0;}



    SOCKET sServerListen, sClient;
    struct sockaddr_in localaddr, clientaddr;
    HANDLE hThread;
    DWORD dwThreadId;
    int iSize;

    sServerListen = socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
    if (sServerListen == SOCKET_ERROR)
    {
        MessageBox(0, "Can't load WinSock", "Error", 0);
        return 0;
    }

    ULONG ulBlock;
    ulBlock = 1;
    if (ioctlsocket(sServerListen, FIONBIO, &ulBlock) == SOCKET_ERROR)
    {
        return 0;
    }

    localaddr.sin_addr.s_addr = htonl(INADDR_ANY);
    localaddr.sin_family = AF_INET;
    localaddr.sin_port = htons(StrToInt(Form1->Edit1->Text));

    if (bind(sServerListen, (struct sockaddr *)&localaddr, 
        sizeof(localaddr)) == SOCKET_ERROR)
    {
        MessageBox(0, "Can't bind", "Error", 0);
        return 1;
    }
    
    WSAAsyncSelect(sServerListen,hWndConnect, WM_USER+1, FD_ACCEPT);
    listen(sServerListen, 4);




//=====================================================================

    while(GetMessage(&msg,NULL,0,0))
    {
        TranslateMessage(&msg);
        DispatchMessage(&msg);
    }

    return 0 ;
}


LRESULT CALLBACK WinProcNetwork(HWND hWnd,UINT msg,WPARAM wParam,LPARAM lParam)
{
SOCKET ClientSocket;
    switch(msg)
    {
        case WM_CREATE:
        {break;}
        case WM_DESTROY:
        {
            PostQuitMessage(0);
            shutdown(wParam,SD_BOTH);
            closesocket(wParam);
            WSACleanup();
            return 0;
        }

        case WM_SOCKET:
        {
            if(WSAGETSELECTERROR(lParam))
            {
                        shutdown(wParam,SD_BOTH);
                        return DefWindowProc(hWnd,msg,wParam,lParam);
                        }

            switch(WSAGETSELECTEVENT(lParam))
            {


                               case FD_CONNECT :
                                {
                                ClientSocket = accept(wParam, 0, 0);
                    WSAAsyncSelect(ClientSocket,hWndConnect, WM_USER+1,FD_READ | FD_WRITE | FD_CLOSE);
                                break;}

                case FD_READ:
                        {break;}

                case FD_CLOSE:
                {closesocket(wParam);break;}
            }
               }
    }

    return DefWindowProc(hWnd,msg,wParam,lParam);
}





void __fastcall TForm1::Button3Click(TObject *Sender)
{
DWORD GOid;
HANDLE Thread1Network = CreateThread(NULL,0,CreateWindowKlient,0,0,&GOid);
}
//---------------------------------------------------------------------------