开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
wsnetbs.inc
资源名称：DarkMoon.rar　[点击查看]
上传用户：hndmjx
上传日期：2014-09-16
资源大小：3369k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

wsnetbs.inc：源码内容
  1. // wsnetbs.h
  2. // Copyright (c) 1994-1999, Microsoft Corp. All rights reserved.
  3. //
  4. // Windows Sockets include file for NETBIOS.  This file contains all
  5. // standardized NETBIOS information.  Include this header file after
  6. // winsock.h.
  8. // To open a NetBIOS socket, call the socket() function as follows:
  9. //
  10. // s = socket( AF_NETBIOS, {SOCK_SEQPACKET|SOCK_DGRAM}, -Lana );
  11. //
  12. // where Lana is the NetBIOS Lana number of interest.  For example, to
  13. // open a socket for Lana 2, specify -2 as the "protocol" parameter
  14. // to the socket() function.
  17. // This is the structure of the SOCKADDR structure for NETBIOS.
  19. const
  20.  NETBIOS_NAME_LENGTH = 16;
  22. type
  23. SOCKADDR_NB = packed record
  24. snb_family : Smallint;
  25. snb_type   : u_short;
  26. snb_name   : array[0..NETBIOS_NAME_LENGTH-1] of Char;
  27. end;
  28.   TSockAddr_NB  = SOCKADDR_NB;
  29.   PSOCKADDR_NB  = ^SOCKADDR_NB;
  30.   LPSOCKADDR_NB = ^PSOCKADDR_NB;
  32. // Bit values for the snb_type field of SOCKADDR_NB.
  33. const
  34. NETBIOS_UNIQUE_NAME       = $0000;
  35. NETBIOS_GROUP_NAME        = $0001;
  36. NETBIOS_TYPE_QUICK_UNIQUE = $0002;
  37. NETBIOS_TYPE_QUICK_GROUP  = $0003;
  39. // A macro convenient for setting up NETBIOS SOCKADDRs.
  40. procedure SET_NETBIOS_SOCKADDR( snb : PSOCKADDR_NB; const SnbType : Word; const Name : PChar; const Port : Char );