Пример из старых запасов, вроде работает. Сейчас пишу на Builder-e, там несколько иначе и проще.
Пример состоит из двух программ: сервер и клиент, у каждого по 3 файла:
tcp_serv.c:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
#include <windows.h>
#include <windowsx.h>
#include <string.h>
#include <winsock.h>
#include "tcp_serv.h"
LRESULT WINAPI WndProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam);
BOOL WndProc_OnCreate(HWND hWnd, LPCREATESTRUCT lpCreateStruct);
void WndProc_OnDestroy(HWND hWnd);
void WndProc_OnCommand(HWND hWnd, int id, HWND hWndCtrl, UINT codeNotify);
void WndProc_OnSize(HWND hWnd, UINT state, int cx, int cy);
void ServerStart(HWND hWnd);
void ServerStop(HWND hWnd);
void WndProc_OnWSAAccept(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam);
void WndProc_OnWSANetEvent(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam);
#define SERV_PORT 5000
#define IDS_STATUSBAR 802
#define WSA_ACCEPT (WM_USER+ 1 )
#define WSA_NETEVENT (WM_USER+ 2 )
HINSTANCE hInst;
char szAppName[] = "TCP/IP Server";
char szAppTitle[] = "TCP/IP Server";
//HWND hWndSB;
SOCKET srv_socket;
int acc_sin_len;
SOCKADDR_IN acc_sin;
SOCKADDR_IN local_sin;
#pragma argsused
int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
LPSTR lpCmdLine, int nCmdShow)
{
WNDCLASS wc;
HWND hWnd;
MSG msg;
hInst = hInstance;
hWnd = FindWindow(szAppName, NULL);
if (hWnd) return NULL;
memset(&wc, 0 , sizeof(wc));
wc.style = CS_HREDRAW | CS_VREDRAW;
wc.lpfnWndProc = (WNDPROC)WndProc;
wc.hInstance = hInst;
wc.hCursor = LoadCursor(NULL, IDC_ARROW);
wc.hbrBackground = (HBRUSH)(COLOR_WINDOW+ 1 );
wc.lpszMenuName = MAKEINTRESOURCE(IDR_MENU1);
wc.lpszClassName = szAppName;
if (!RegisterClass(&wc)) {
MessageBox(NULL, "Не удалось зарегистрировать класс окна", "", MB_OK);
return FALSE;
} // if
hWnd = CreateWindow(
szAppName,
szAppTitle,
WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT,
0 ,
CW_USEDEFAULT,
0 ,
NULL,
NULL,
hInst,
NULL);
if (!hWnd) {
MessageBox(NULL, "Не удалось создать окно", "", MB_OK);
return FALSE;
} // if
ShowWindow(hWnd, nCmdShow);
UpdateWindow(hWnd);
while (GetMessage(&msg, NULL, 0 , 0 )) {
TranslateMessage(&msg);
DispatchMessage(&msg);
} // while
return msg.wParam;
} // WndMain
//***************************************************************************
#pragma argsused
LRESULT WINAPI WndProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
switch (msg) {
case WSA_ACCEPT:
WndProc_OnWSAAccept(hWnd, msg, wParam, lParam);
break;
case WSA_NETEVENT:
WndProc_OnWSANetEvent(hWnd, msg, wParam, lParam);
break;
HANDLE_hWnd, WM_CREATE, WndProc_OnCreate;
HANDLE_hWnd, WM_DESTROY, WndProc_OnDestroy;
HANDLE_hWnd, WM_COMMAND, WndProc_OnCommand;
HANDLE_hWnd, WM_SIZE, WndProc_OnSize;
default: return DefWindowProc(hWnd, msg, wParam, lParam);
} // switch
return NULL;
} // WndProc
//***************************************************************************
#pragma argsused
BOOL WndProc_OnCreate(HWND hWnd, LPCREATESTRUCT lpCreateStruct)
{
int rc;
WSADATA WSAData;
//char szTemp[128];
rc = WSAStartup(MAKEWORD( 1 , 1 ), &WSAData);
if (rc != 0 ) {
MessageBox(hWnd, "Ошибка инициализации WSA", "", MB_OK);
return FALSE;
} // if
return TRUE;
} // WndProc_OnCreate
//***************************************************************************
#pragma argsused
void WndProc_OnDestroy(HWND hWnd)
{
WSACleanup();
PostQuitMessage( 0 );
FORWARD_WM_DESTROY(hWnd, DefWindowProc);
} // WndProc_OnDestroy
//***************************************************************************
#pragma argsused
void WndProc_OnCommand(HWND hWnd, int id, HWND hWndCtrl, UINT codeNotify)
{
switch (id) {
case IDM_EXIT:
DestroyWindow(hWnd);
break;
case IDM_START:
ServerStart(hWnd);
break;
case IDM_STOP:
ServerStop(hWnd);
break;
default:
MessageBox(hWnd, "Неизвесная команда", "Ошибка", MB_OK);
} // switch;
FORWARD_WM_COMMAND(hWnd, id, hWndCtrl, codeNotify, DefWindowProc);
} // WndProc_OnCommand
//***************************************************************************
#pragma argsused
void WndProc_OnSize(HWND hWnd, UINT state, int cx, int cy)
{
//SendMessage(hWndSB, WM_SIZE, cx, cy);
FORWARD_WM_SIZE(hWnd, state, cx, cy, DefWindowProc);
} // WndProc_OnSize
//***************************************************************************
#pragma argsused
void WndProc_OnWSAAccept(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
int rc;
if (WSAGETSELECTERROR(lParam) != 0 ) {
MessageBox(hWnd, "Ошибка соединения 1", "Ошибка", MB_OK);
WSAAsyncSelect(srv_socket, hWnd, 0 , 0 );
return;
} // if
acc_sin_len = sizeof(acc_sin);
srv_socket = accept(srv_socket, (LPSOCKADDR)&acc_sin, (int FAR *)&acc_sin_len);
if (srv_socket == INVALID_SOCKET) {
MessageBox(hWnd, "Ошибка соединения 2", "Ошибка", MB_OK);
return;
} // if
rc = WSAAsyncSelect(srv_socket, hWnd, WSA_NETEVENT, FD_READ|FD_CLOSE);
if (rc > 0 ) {
MessageBox(hWnd, "Ошибка WSAAsyncSelect", "Ошибка", MB_OK);
closesocket(srv_socket);
return;
} // if
} // WndProc_OnWSAAccept
//***************************************************************************
#pragma argsused
void WndProc_OnWSANetEvent(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
char szTmp[ 256 ];
int rc;
if (WSAGETSELECTEVENT(lParam) == FD_READ) {
rc = recv((SOCKET)wParam, szTmp, 256 , 0 );
if (rc) {
szTmp[rc] = 0 ;
MessageBox(hWnd, szTmp, "Принятые данные", MB_OK);
} // if
return;
} // if
if (WSAGETSELECTEVENT(lParam) == FD_CLOSE) {
MessageBox(hWnd, "Связь прервана", "Сервер", MB_OK);
} // if
} // WndProc_OnWSANetEvent
//***************************************************************************
#pragma argsused
void ServerStart(HWND hWnd)
{
struct sockaddr_in srv_address;
int rc;
srv_socket = socket(AF_INET, SOCK_STREAM, 0 );
if (srv_socket == INVALID_SOCKET) {
MessageBox(hWnd, "Ошибка при открытии сокета", "Ошибка", MB_OK);
return;
} // if
srv_address.sin_family = AF_INET;
srv_address.sin_addr.s_addr = INADDR_ANY;
srv_address.sin_port = htons(SERV_PORT);
if (bind(srv_socket, (LPSOCKADDR)&srv_address, sizeof(srv_address)) == SOCKET_ERROR) {
MessageBox(hWnd, "Адресная ошибка", "Ошибка", MB_OK);
closesocket(srv_socket);
return;
} // if
if (listen(srv_socket, 1 ) == SOCKET_ERROR) {
MessageBox(hWnd, "Ошибка при установке в режим приема", "Ошибка", MB_OK);
closesocket(srv_socket);
return;
} // if
rc = WSAAsyncSelect(srv_socket, hWnd, WSA_ACCEPT, FD_ACCEPT);
if (rc > 0 ) {
MessageBox(hWnd, "Ошибка WSAAsyncSelect", "Ошибка", MB_OK);
closesocket(srv_socket);
return;
} // if
MessageBox(hWnd, "Сервер запущен", "Информация", MB_OK);
} // ServerStart
//***************************************************************************
#pragma argsused
void ServerStop(HWND hWnd)
{
WSAAsyncSelect(srv_socket, hWnd, 0 , 0 );
if (srv_socket != INVALID_SOCKET) {
closesocket(srv_socket);
} // if
MessageBox(hWnd, "Сервер остановлен", "Информация", MB_OK);
} // ServerStop
tcp_serv.h
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
#define IDI_APPICON 101
#define IDI_APPICON_SM 102
#define IDR_MENU1 103
#define IDM_START 4001
#define IDM_EXIT 4002
#define IDM_STOP 4003
#ifdef APSTUDIO_INVOKED
#ifndef APSTUDIO_READONLY_SYMBOLS
#define _APS_NO_MFC 1
#define _APS_NEXT_RESOURCE_VALUE 106
#define _APS_NEXT_COMMAND_VALUE 4004
#define _APS_NEXT_CONTROL_VALUE 1000
#define _APS_NEXT_SYMED_VALUE 101
#endif
#endif
tcp_serv.rc
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
#include "tcp_serv.h"
#define APSTUDIO_READONLY_SYMBOLS
//#include "afxres.h"
#undef APSTUDIO_READONLY_SYMBOLS
IDR_MENU1 MENU DISCARDABLE
BEGIN
POPUP "&File"
BEGIN
MENUITEM "&Start server" IDM_START
MENUITEM "S&top server" IDM_STOP
MENUITEM SEPARATOR
MENUITEM "&Exit" IDM_EXIT
END
END
tcp_clnt.c
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
#include <windows.h>
#include <windowsx.h>
#include <string.h>
#include <winsock.h>
#include "tcp_clnt.h"
LRESULT WINAPI WndProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam);
BOOL WndProc_OnCreate(HWND hWnd, LPCREATESTRUCT lpCreateStruct);
void WndProc_OnDestroy(HWND hWnd);
void WndProc_OnCommand(HWND hWnd, int id, HWND hWndCtrl, UINT codeNotify);
void WndProc_OnSize(HWND hWnd, UINT state, int cx, int cy);
void SetConnection(HWND hWnd);
void SendMsg(HWND hWnd);
void WndProc_OnWSAAccept(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam);
void WndProc_OnWSANetEvent(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam);
#define SERV_PORT 5000
#define IDS_STATUSBAR 802
HINSTANCE hInst;
char szAppName[] = "TCP/IP Client";
char szAppTitle[] = "TCP/IP Client";
SOCKET srv_socket;
//int acc_sin_len;
//SOCKADDR_IN acc_sin;
SOCKADDR_IN local_sin;
SOCKADDR_IN dest_sin;
#pragma argsused
int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
LPSTR lpCmdLine, int nCmdShow)
{
WNDCLASS wc;
HWND hWnd;
MSG msg;
hInst = hInstance;
hWnd = FindWindow(szAppName, NULL);
if (hWnd) return NULL;
memset(&wc, 0 , sizeof(wc));
wc.style = CS_HREDRAW | CS_VREDRAW;
wc.lpfnWndProc = (WNDPROC)WndProc;
wc.hInstance = hInst;
wc.hCursor = LoadCursor(NULL, IDC_ARROW);
wc.hbrBackground = (HBRUSH)(COLOR_WINDOW+ 1 );
wc.lpszMenuName = MAKEINTRESOURCE(IDR_MENU1);
wc.lpszClassName = szAppName;
if (!RegisterClass(&wc)) {
MessageBox(NULL, "Не удалось зарегистрировать класс окна", "", MB_OK);
return FALSE;
} // if
hWnd = CreateWindow(
szAppName,
szAppTitle,
WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT,
0 ,
CW_USEDEFAULT,
0 ,
NULL,
NULL,
hInst,
NULL);
if (!hWnd) {
MessageBox(NULL, "Не удалось создать окно", "", MB_OK);
return FALSE;
} // if
ShowWindow(hWnd, nCmdShow);
UpdateWindow(hWnd);
while (GetMessage(&msg, NULL, 0 , 0 )) {
TranslateMessage(&msg);
DispatchMessage(&msg);
} // while
return msg.wParam;
} // WndMain
//***************************************************************************
#pragma argsused
LRESULT WINAPI WndProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
switch (msg) {
HANDLE_hWnd, WM_CREATE, WndProc_OnCreate;
HANDLE_hWnd, WM_DESTROY, WndProc_OnDestroy;
HANDLE_hWnd, WM_COMMAND, WndProc_OnCommand;
HANDLE_hWnd, WM_SIZE, WndProc_OnSize;
default: return DefWindowProc(hWnd, msg, wParam, lParam);
} // switch
//return NULL;
} // WndProc
//***************************************************************************
#pragma argsused
BOOL WndProc_OnCreate(HWND hWnd, LPCREATESTRUCT lpCreateStruct)
{
int rc;
WSADATA WSAData;
rc = WSAStartup(MAKEWORD( 1 , 1 ), &WSAData);
if (rc != 0 ) {
MessageBox(hWnd, "Ошибка инициализации WSA", "", MB_OK);
return FALSE;
} // if
return TRUE;
} // WndProc_OnCreate
//***************************************************************************
#pragma argsused
void WndProc_OnDestroy(HWND hWnd)
{
WSACleanup();
PostQuitMessage( 0 );
FORWARD_WM_DESTROY(hWnd, DefWindowProc);
} // WndProc_OnDestroy
//***************************************************************************
#pragma argsused
void WndProc_OnCommand(HWND hWnd, int id, HWND hWndCtrl, UINT codeNotify)
{
switch (id) {
case IDM_EXIT:
DestroyWindow(hWnd);
break;
case IDM_CONNECT:
SetConnection(hWnd);
break;
case IDM_SEND:
SendMsg(hWnd);
break;
default:
MessageBox(hWnd, "Неизвесная команда", "Ошибка", MB_OK);
} // switch;
FORWARD_WM_COMMAND(hWnd, id, hWndCtrl, codeNotify, DefWindowProc);
} // WndProc_OnCommand
//***************************************************************************
#pragma argsused
void WndProc_OnSize(HWND hWnd, UINT state, int cx, int cy)
{
FORWARD_WM_SIZE(hWnd, state, cx, cy, DefWindowProc);
} // WndProc_OnSize
//***************************************************************************
#pragma argsused
void SetConnection(HWND hWnd)
{
PHOSTENT phe;
//struct sockaddr_in srv_address;
//int rc;
srv_socket = socket(AF_INET, SOCK_STREAM, 0 );
if (srv_socket == INVALID_SOCKET) {
MessageBox(hWnd, "Ошибка при открытии сокета", "Ошибка", MB_OK);
return;
} // if
phe = gethostbyname("localhost");
if (phe == NULL) {
MessageBox(hWnd, "Ошибка в имени компьютера", "Ошибка", MB_OK);
closesocket(srv_socket);
return;
} // if
memcpy((char FAR *)&(dest_sin.sin_addr), phe->h_addr, phe->h_length);
dest_sin.sin_family = AF_INET;
dest_sin.sin_addr.s_addr = inet_addr("127.0.0.1");
dest_sin.sin_port = htons(SERV_PORT);
if (connect(srv_socket, (LPSOCKADDR)&dest_sin, sizeof(dest_sin)) < 0 ) {
MessageBox(hWnd, "Адресная ошибка", "Ошибка", MB_OK);
closesocket(srv_socket);
return;
} // if
MessageBox(hWnd, "Связь установлена", "", MB_OK);
} // ServerStart
//***************************************************************************
#pragma argsused
void SendMsg(HWND hWnd)
{
char szBuf[ 80 ];
lstrcpy(szBuf, "Проверка связи");
send(srv_socket, szBuf, lstrlen(szBuf), 0 );
} // ServerStop
tcp_clnt.h
1.
2.
3.
4.
5.
6.
7.
8.
#define IDI_APPICON 101
#define IDI_APPICON_SM 102
#define IDR_MENU1 103
#define IDM_START 4001
#define IDM_EXIT 4002
#define IDM_STOP 4003
#define IDM_CONNECT 4004
#define IDM_SEND 4005
tcp_clnt.rc
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
#include "tcp_clnt.h"
#define APSTUDIO_READONLY_SYMBOLS
//#include "afxres.h"
#undef APSTUDIO_READONLY_SYMBOLS
IDR_MENU1 MENU DISCARDABLE
BEGIN
POPUP "&File"
BEGIN
MENUITEM "&Connect" IDM_CONNECT
MENUITEM "&Send message" IDM_SEND
MENUITEM SEPARATOR
MENUITEM "&Exit" IDM_EXIT
END
END
|
