初探WinInet网络api

//必须的头文件,而且要链接wininet.lib
#include <WinInet.h>
#define UM_SOCKET (WM_USER + 1)

void CNetTimeDlg::OnBnClickedOk()
{
	// TODO:  在此添加控件通知处理程序代码
	// CDialogEx::OnOK();
	// 使用winsocket,获取国际标准时间并设置系统时间
	WSADATA WSAData = { 0 };
	int iError = 0;
	iError = WSAStartup(MAKEWORD(2, 2), &WSAData);//我这里成功了,但是加载的是2.0版本,WSAData.szDescription可以查看
	if (iError != 0)
	{
		MessageBoxA(m_hWnd, WSAData.szDescription, "WSAStartup", MB_OK);
		return;
	}
	SOCKET sock = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
	if (sock == INVALID_SOCKET)
	{
		MessageBoxA(m_hWnd, WSAData.szDescription, "socket", MB_OK);
		WSACleanup();
		return;
	}
	iError = WSAAsyncSelect(sock, m_hWnd, UM_SOCKET, FD_READ | FD_CONNECT);
	if (iError != 0)
	{
		MessageBoxA(m_hWnd, WSAData.szDescription, "WSAAsyncSelect", MB_OK);
		WSACleanup();
		return;
	}
	sockaddr_in sa = { 0 };
	sa.sin_family = AF_INET;
	sa.sin_port = htons(37);
	sa.sin_addr.S_un.S_addr = inet_addr("132.163.4.101");
	connect(sock, (SOCKADDR*)&sa, sizeof(sa));
	if (WSAEWOULDBLOCK != (iError = WSAGetLastError()))
	{
		MessageBoxA(m_hWnd, WSAData.szDescription, "WSAGetLastError", MB_OK);
		closesocket(sock);
		WSACleanup();
		return;
	}
}

LRESULT CNetTimeDlg::OnSocket(WPARAM wParam, LPARAM lParam)
{
	WORD wEvent = WSAGETSELECTEVENT(lParam);
	WORD wError = WSAGETSELECTERROR(lParam);
	SOCKET sock = wParam;
	SYSTEMTIME stNew = {1900,1,0,1,0,0,0,};
	FILETIME ftNew;//The FILETIME structure is a 64-bit value representing the number of 100-nanosecond intervals since January 1, 1601 (UTC). 
	unsigned long ultime = 0;
	int isize = 0;

	switch (wEvent)
	{
	case FD_CONNECT:
		//MSG_PEEK标记不删除缓冲区数据,所以下次recv仍可以读取这次读到的数据,这里是防止非阻塞下读不到完整的4字节数据
		isize = recv(sock, (char*)&ultime, 4, MSG_PEEK);
		break;
	case FD_READ:
		isize = recv(sock, (char*)&ultime, 4, 0);
		ultime = ntohl(ultime);
		SystemTimeToFileTime(&stNew, &ftNew);
		*(LONGLONG*)(&ftNew) += (LONGLONG)pow(10.0,9) / 100 * ultime;
		FileTimeToSystemTime(&ftNew, &stNew);
		SetSystemTime(&stNew);
		break;
	}
	return 0;
}

void CNetTimeDlg::OnBnClickedFtp()
{
	// TODO:  在此添加控件通知处理程序代码
	// 使用WinInet访问ftp服务器并下载文件
	char szError[64] = { 0 };
	char szDir[MAX_PATH] = { 0 };
	DWORD len = MAX_PATH;
	HINTERNET hInternet = InternetOpen(NULL, INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0);
	if (hInternet == NULL)
	{
		sprintf(szError, "InternetOpen error : %d", GetLastError());
		MessageBoxA(m_hWnd, szError, "error", MB_OK);
		return;
	}
	HINTERNET hFtpSession = InternetConnectA(hInternet, "192.168.3.95", INTERNET_DEFAULT_FTP_PORT, "admin", "admin", INTERNET_SERVICE_FTP, 0, 0);
	if (hFtpSession == NULL)
	{
		sprintf(szError, "InternetConnectA error : %d", GetLastError());
		MessageBoxA(m_hWnd, szError, "error", MB_OK);
		InternetCloseHandle(hInternet);
		return;
	}
	if (!FtpSetCurrentDirectoryA(hFtpSession, "/test"))
	{
		sprintf(szError, "FtpSetCurrentDirectoryA error : %d", GetLastError());
		MessageBoxA(m_hWnd, szError, "error", MB_OK);
		InternetCloseHandle(hFtpSession);
		InternetCloseHandle(hInternet);
		return;
	}
	WIN32_FIND_DATAA finddata;
	HINTERNET hFind = FtpFindFirstFileA(hFtpSession, "*.txt", &finddata, 0, 0);
	if (hFind == NULL)
	{
		MessageBoxA(m_hWnd, "no find file", "error", MB_OK);
		InternetCloseHandle(hFtpSession);
		InternetCloseHandle(hInternet);
		return;
	}
	do
	{
		FtpGetFileA(hFtpSession, finddata.cFileName, finddata.cFileName, TRUE, FILE_ATTRIBUTE_NORMAL, FTP_TRANSFER_TYPE_BINARY, 0);
	} while (InternetFindNextFileA(hFind, &finddata));
	InternetCloseHandle(hFind);
	InternetCloseHandle(hFtpSession);
	InternetCloseHandle(hInternet);
}

github

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏杨建荣的学习笔记

通过shell定制dbms_advisor.quick_tune(r4笔记第15天)

在平时的调优工作中,在11g中的新特性sql monitor可以极大的简化性能监控的工作,对于执行时间超过5秒的sql语句都会记入v$sql_monitor中...

2874
来自专栏陈满iOS

iOS·宏封装线程锁小技巧

701
来自专栏编程之旅

iOS开发——FMDB的使用

今天决定给手上的项目加上一个数据库,用来进行数据持久化操作,关于在iOS端的数据持久化方式的差异,这里也就不再赘述,相信如果真实使用并且去感受过的人,有自己的评...

763
来自专栏乐沙弥的世界

Oracle Scheduler Chain 的用法

      Oracle CHAIN,也就是链,是将一串需要完成的作业连在一起,根据每一个步骤完成的不同结果来确定下面的哪一个动作需要被完成。实际上也就是if ...

691
来自专栏NetCore

Asp.Net Core使用NLog+Mysql的几个小问题

1074
来自专栏数据库新发现

Linux上配置Unix ODBC连接Oracle数据库

Oracle10g前,Oracle并不提供UNIX/Linux下的ODBC驱动,用的最为广泛的是UnixOdbc,UnixOdbc的配置不算复杂,但是如果不顺利...

592
来自专栏Hadoop实操

如何使用Sqoop2

通sqoop1一样,sqoop2同样也是在Hadoop和关系型数据库之间互传数据的工具,只不过sqoop2引入sqoop server,集中化管理connect...

1.1K8
来自专栏tiane12

DB2备份恢复流程

941
来自专栏10km的专栏

powershell:Join-Path连接多级子目录的方法

我们知道Join-Path可以用来创建路径,比如 Join-Path 'C:\Program Files' WindowsPowerShell 会把C:\Pr...

2077
来自专栏乐沙弥的世界

ORA-02409:超时:分布式事务处理等待锁定ORA-02063

ORA-02409:超时:分布式事务处理等待锁定ORA-02063 一、错误现象与环境     前端应用程序运行时出现下面的错误提示: 事件添加失败:O...

952

扫码关注云+社区