给个WSASend发包的例子

#include 

#include 

#include 

#include 



#define DATA_BUFSIZE 4096

#define SEND_COUNT   10



void __cdecl main() 

{

    WSADATA wsd;

    struct addrinfo *result = NULL,

        hints = {0};

    WSAOVERLAPPED SendOverlapped = {0};

    SOCKET ListenSocket = INVALID_SOCKET,

        AcceptSocket = INVALID_SOCKET;

    WSABUF DataBuf;

    DWORD SendBytes, Flags;

    char buffer[DATA_BUFSIZE];

    int err, rc, i;



    // Load Winsock

    rc = WSAStartup(MAKEWORD(2,2), &wsd);

    if (rc != 0) {

        fprintf(stderr, "Unable to load Winsock: %d\n", rc);

        return;

    }



    // Initialize the hints to obtain the 

    // wildcard bind address for IPv4

    hints.ai_family = AF_INET;

    hints.ai_socktype = SOCK_STREAM;

    hints.ai_protocol = IPPROTO_TCP;

    hints.ai_flags = AI_PASSIVE;



    rc = getaddrinfo(NULL, "27015", &hints, &result);

    if (rc != 0) {

        fprintf(stderr, "getaddrinfo failed: %d\n", rc );

        return;

    }



    ListenSocket = socket(result->ai_family, 

        result->ai_socktype, result->ai_protocol);

    if (ListenSocket == INVALID_SOCKET) {

        fprintf(stderr, "socket failed: %d\n", 

            WSAGetLastError());

        freeaddrinfo(result);

        return;

    }



    rc = bind(ListenSocket, result->ai_addr, 

        (int)result->ai_addrlen);

    if (rc == SOCKET_ERROR) {

        fprintf(stderr, "bind failed: %d\n", 

            WSAGetLastError());

        freeaddrinfo(result);

        closesocket(ListenSocket);

        return;

    }



    rc = listen(ListenSocket, 1);

    if (rc == SOCKET_ERROR) {

        fprintf(stderr, "listen failed: %d\n", 

            WSAGetLastError());

        freeaddrinfo(result);

        closesocket(ListenSocket);

        return;

    }



    // Accept an incoming connection request

    AcceptSocket = accept(ListenSocket, NULL, NULL);

    if (AcceptSocket == INVALID_SOCKET) {

        fprintf(stderr, "accept failed: %d\n", 

            WSAGetLastError());

        freeaddrinfo(result);

        closesocket(ListenSocket);

        return;

    }



    printf("Client Accepted...\n");



    // Create an event handle and setup an overlapped structure.

    SendOverlapped.hEvent = WSACreateEvent();

    if (SendOverlapped.hEvent == NULL) {

        fprintf(stderr, "WSACreateEvent failed: %d\n", 

            WSAGetLastError());

        freeaddrinfo(result);

        closesocket(ListenSocket);

        closesocket(AcceptSocket);

        return;

    }



    DataBuf.len = DATA_BUFSIZE;

    DataBuf.buf = buffer;



    for(i=0; i < SEND_COUNT ;i++) {



        rc = WSASend(AcceptSocket, &DataBuf, 1, 

            &SendBytes, 0, &SendOverlapped, NULL);

        if ( (rc == SOCKET_ERROR) && 

                (WSA_IO_PENDING != (err = WSAGetLastError()))) {

            fprintf(stderr, "WSASend failed: %d\n", err);

            break;

        }



        rc = WSAWaitForMultipleEvents(1, &SendOverlapped.hEvent, TRUE, INFINITE, TRUE);

        if (rc == WSA_WAIT_FAILED) {

            fprintf(stderr, "WSAWaitForMultipleEvents failed: %d\n", WSAGetLastError());

            break;

        }



        rc = WSAGetOverlappedResult(AcceptSocket, &SendOverlapped, &SendBytes, FALSE, &Flags);

        if (rc == FALSE) {

            fprintf(stderr, "WSASend operation failed: %d\n", WSAGetLastError());

            break;

        }



        printf("Wrote %d bytes\n", SendBytes);



        WSAResetEvent(SendOverlapped.hEvent);



    }



    WSACloseEvent(SendOverlapped.hEvent);

    closesocket(AcceptSocket);

    closesocket(ListenSocket);

    freeaddrinfo(result);



    WSACleanup();



    return;

}

procedure TForm1.SendCommand(); var k :Integer; str :string; SendBytes : DWORD; errorCode :Integer; PerIoData :LPPER_IO_OPERATION_DATA; lphEvents :LPWSAEVENT; dwFlags :DWORD; begin str := Trim(edtCommand.Text) + chr($D); dwFlags := 0; New(PerIoData); ZeroMemory(@(PerIoData.Overlapped), sizeof(OVERLAPPED)); ZeroMemory(@(PerIoData.Buffer), DATA_BUFSIZE+1); for k:= 1 to Length(str) do PerIoData.Buffer[k-1] := str[k]; PerIoData.DataBuf.buf := @PerIoData.Buffer; PerIoData.DataBuf.len := length(str); PerIoData.Overlapped.hEvent := WSACreateEvent(); if (WSASend(m_socket, @(PerIoData.DataBuf), 1, @SendBytes, dwFlags, @(PerIoData.Overlapped), nil) = SOCKET_ERROR) then begin if (WSAGetLastError() <> ERROR_IO_PENDING) then Memo1.Lines.Add('WSASend() failed'); end; lphEvents := @PerIoData.Overlapped.hEvent; if WSAWaitForMultipleEvents(1, lphEvents, True, WSA_INFINITE, False)= WSA_WAIT_EVENT_0 then begin self.Memo1.Lines.Add('WSASend() success'); .....开始调用WSARecv接收命令的返回值..... end else Memo1.Lines.Add('WSASend() failed'); end;