在项目中用到一个检测共享文件夹下新增图像，获取新增图像进行图像分类，下面代码监测共享文件下新图像的添加，读取新增图像进行路径，进行或许对图像操作。
#include "stdafx.h"
 #include "iostream"
 #include <iomanip>
#include <Windows.h>
#include <tchar.h>
#include <WinNetWk.h>
#include "stdio.h"
#pragma comment(lib, "Mpr.lib")
 using namespace std;
int _tmain(int argc, TCHAR **argv)
{
	TCHAR szPasswd[] = TEXT("90523");          //共享资源授权用户的密码
	TCHAR szUserName[] = TEXT("Administrator");        //共享资源授权的用户
	NETRESOURCE net_Resource;
	net_Resource.dwDisplayType = RESOURCEDISPLAYTYPE_DIRECTORY;
	net_Resource.dwScope = RESOURCE_CONNECTED;
	net_Resource.dwType = RESOURCETYPE_ANY;
	net_Resource.dwUsage = 0;
	net_Resource.lpComment = TEXT("");
	net_Resource.lpLocalName = TEXT("z:");  //映射成本地驱动器z:
	net_Resource.lpProvider = NULL;
	net_Resource.lpRemoteName = TEXT("\\\\192.168.3.168\\testShare”); // \\servername\共享资源名
	DWORD dwFlags = CONNECT_UPDATE_PROFILE;

	WNetCancelConnection2(net_Resource.lpLocalName, CONNECT_UPDATE_PROFILE, TRUE);

	return 1;

	DWORD dw = WNetAddConnection2(&net_Resource, szPasswd, szUserName, dwFlags);

switch (dw)
{
	case ERROR_SUCCESS:
		ShellExecute(NULL, TEXT("open"), TEXT("z:"), NULL, NULL, SW_SHOWNORMAL);
		break;
	case ERROR_ACCESS_DENIED:
		wprintf(TEXT("没有权访问！"));
		break;
	case ERROR_ALREADY_ASSIGNED:
		ShellExecute(NULL, TEXT("open"), TEXT("z:"), NULL, NULL, SW_SHOWNORMAL);
		break;
	case ERROR_INVALID_ADDRESS:
		wprintf(TEXT("IP地址无效"));
		break;
	case ERROR_NO_NETWORK:
		wprintf(TEXT("网络不可达!"));
		break;
}

  	 fileWatcher();

	return 0;

}



void fileWatcher()

{
	DWORD cbBytes;
    char file_name[MAX_PATH]; //设置文件名;
    char file_rename[MAX_PATH]; //设置文件重命名后的名字;
    char notify[1024];
    int count = 0; //文件数量。可能同时拷贝、删除多个文件，可以进行更友好的提示;
    TCHAR *dir = _T(“\\\\192.168.3.168\\testShare”);
    HANDLE dirHandle = CreateFile(dir,
        GENERIC_READ | GENERIC_WRITE | FILE_LIST_DIRECTORY,
        FILE_SHARE_READ | FILE_SHARE_WRITE,
        NULL,
        OPEN_EXISTING,
        FILE_FLAG_BACKUP_SEMANTICS,
        NULL);
    if (dirHandle == INVALID_HANDLE_VALUE) //若网络重定向或目标文件系统不支持该操作，函数失败，同时调用GetLastError()返回ERROR_INVALID_FUNCTION

    {
        cout << "error" + GetLastError() << endl;
    }
    memset(notify, 0, strlen(notify));
    FILE_NOTIFY_INFORMATION *pnotify = (FILE_NOTIFY_INFORMATION*)notify;
    cout << "Start Monitor..." << endl;
    while (true)
    {
        if (ReadDirectoryChangesW(dirHandle, &notify, 1024, true,

            FILE_NOTIFY_CHANGE_FILE_NAME | FILE_NOTIFY_CHANGE_DIR_NAME | FILE_NOTIFY_CHANGE_SIZE,
            &cbBytes, NULL, NULL))
        {
            //转换文件名为多字节字符串;
            if (pnotify->FileName)
            {
                memset(file_name, 0, strlen(file_name));
                WideCharToMultiByte(CP_ACP, 0, pnotify->FileName, pnotify->FileNameLength / 2, file_name, 99, NULL, NULL);
            }
            //获取重命名的文件名;
            if (pnotify->NextEntryOffset != 0 && (pnotify->FileNameLength > 0 && pnotify->FileNameLength < MAX_PATH))
            {
                PFILE_NOTIFY_INFORMATION p = (PFILE_NOTIFY_INFORMATION)((char*)pnotify + pnotify->NextEntryOffset);

                memset(file_rename, 0, sizeof(file_rename));

                WideCharToMultiByte(CP_ACP, 0, p->FileName, p->FileNameLength / 2, file_rename, 99, NULL, NULL);
            }
            //设置类型过滤器,监听文件创建、更改、删除、重命名等;
            switch (pnotify->Action)
            {
                case FILE_ACTION_ADDED:
                    count++;
                    cout << "count  = " << count << endl;
                    cout << setw(5) << "file add:" << setw(5) << file_name << endl;
                    break;
                case FILE_ACTION_MODIFIED:
                    cout << "file modified:" << setw(5) << file_name << endl;
                    break;
                case FILE_ACTION_REMOVED:
                    count++;
                    cout << count << setw(5) << "file removed:" << setw(5) << file_name << endl;
                    break;
                case FILE_ACTION_RENAMED_OLD_NAME:
                    cout << "file renamed:" << setw(5) << file_name << "->" << file_rename << endl;
                    break;
                default:
                    cout << "UNknow command!" << endl;
            }
        }
    }
    CloseHandle(dirHandle);

}

场景

局域网内知道一些设备的静态IP，需要通过代码去判断是否互通，类似于直接

用ping命令去ping设备的Ip，然后判断网络情况。

注：

博客：
https://blog.csdn.net/badao_liumang_qizhi

关注公众号

霸道的程序猿

获取编程相关电子书、教程推送与免费下载。

实现

方式一：

boolean status = InetAddress.getByName(ip).isReachable(1000);

status为true则代表通，为false则不通。

方式二：

int status =Runtime.getRuntime().exec("ping  "+ip).waitFor();

status为0则代表通，为1则代表不通。

                    
一、脚本功能

    判断IP是否占用，通过ping命令检测的方法，ping通则认为被占用，并且将结果分别输出到IP_yes.txt和IP_no.txt。



二、脚本编写
#!/bin/bash
#Check the network is online
ip_num=192.168.1.
for i in `seq 1 254`
do
ping -c 2 $ip_num$i >/dev/null
        if [ $? -eq 0 ];then
                echo "echo $ip_num$i is yes"
                echo $ip_num$i is yes >> ip_yes.txt
        else
                echo "echo $ip_num$i is no"
                echo echo $ip_num$i is no >> ip_no.txt
        fi
done




本文转自 HMLinux 51CTO博客，原文链接:http://blog.51cto.com/7424593/1729128


        
        
                
    

    ＂获得主机名和IP地址＂　和　＂监测局域网内计算机＂  Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiBase/html/delphi_20061209192223212.html

哪位大虾可以帮帮忙啊，帮我把这两段程序分析一下啊，万分感激！！！！！！   
   获得主机名和IP地址：   
      hostName;   
   interface   
   uses   
   Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms，Dialogs,   
         StdCtrls,   Winsock;   
   type   
         TForm1   =   class(TForm)   
               Edit1:   TEdit;Label1:   TLabel;Label2:   TLabel;Edit2:   TEdit;Edit3:   TEdit;   
               Label3:   TLabel;Button1:   TButton;   
               procedure   Button1Click(Sender:   TObject);   
         private   
               {   Private   declarations   }   
         public   
               {   Public   declarations   }   
         end;   
   var   
         Form1:   TForm1;   
   implementation   
   {$R   *.DFM}   
   procedure   TForm1.Button1Click(Sender:   TObject);   
   var   
                           Ip:string;   
                           Ipstr:string;   
                           Buffer:Array[1..32]   of   char;                  
                           i:integer;   
                           WSData:TWSAdata;                     
                           Host:PHostEnt;                        
   begin   
                           if   WSAstartup(2,WSData)<>0   then               
                           begin   
                                       ShowMessage('WS2_32.DLL初始化失败!');　　halt;　　　end;   
                           try                                                                                                                        
                                       if   GetHostName(@Buffer[1],32)<>0   then                  
                                       begin   
                                                   ShowMessage('没有得到主机名!');　　　   halt;　　end;   
                           except   
                                       ShowMessage('没有成功返回主机名');　　　   halt;　　　end;   
                           Host   :=   GetHostByName(@Buffer[1]);   
                           if   Host   =   nil   then   
                                          begin   
                                                   ShowMessage('IP地址为空');　　　　　   halt;　　　end   
                           else   
                                          begin   
                                                   Edit2.Text   :=   Host.h_name;   
                                                   Edit3.Text   :=   Chr(Host.h_addrtype+64);   
                                                   for   i:=1   to   4   do                                       
                                                               begin   
                                                                           Ip:=IntToStr(Ord(Host.h_addr^[i-1]));   
                                                                           ShowMessage('分段IP地址为:'+Ip);   
                                                                           if   i<4   then   
                                                                                    Ipstr   :=   Ipstr   +   Ip   +   '.'   
                                                                           else   
                                                                                    Edit1.Text:=Ipstr+Ip;　　　end;　　　　end;   
                                                   WSACleanup;　　   end;            end.   
   监测局域网内计算机:   
   unit   local;   
   interface   
   uses   
      Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,   
         StdCtrls,Winsock;   
   type   
         TForm1   =   class(TForm)   
         Button1:   TButton;         Edit1:   TEdit;         Memo1:   TMemo;      Label1:   TLabel;   
               procedure   Button1Click(Sender:   TObject);   
         private   
               {   Private   declarations   }   
         public   
               {   Public   declarations   }   
         end;   
   var   
         Form1:   TForm1;   
   function   FindComputer(ComputerName:   string):Boolean;   
   implementation   
   {$R   *.DFM}   
   function   FindComputer(ComputerName:   string):Boolean;   
   var   
         WSAData:   TWSAData;                  
         HostEnt:   PHostEnt;   
   begin   
         Result   :=True;   
         WSAStartup(2,   WSAData);   
         HostEnt   :=   gethostbyname(PChar(ComputerName));   
         if   HostEnt   =   nil   then   Result   :=   False;   
         WSACleanup;               end;   
   procedure   TForm1.Button1Click(Sender:   TObject);   
   begin   
         if   FindComputer(edit1.text)=True   then   
               Memo1.lines.Add(edit1.text+'在局域网上！')   
         else   
               Memo1.lines.Add(edit1.text+'不在局域网上！');         end;         end.   
   


转载于:https://www.cnblogs.com/delphi2007/archive/2009/02/11/1388365.html