mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-03 15:10:39 +01:00
302 lines
12 KiB
ObjectPascal
302 lines
12 KiB
ObjectPascal
unit nb30;
|
|
// This module contains the definitions for portable NetBIOS 3.0
|
|
// support.
|
|
interface
|
|
|
|
uses windows;
|
|
{***************************************************************
|
|
* *
|
|
* Data structure templates *
|
|
* *
|
|
***************************************************************}
|
|
|
|
|
|
const
|
|
nbdllname = 'netapi32.dll';
|
|
NCBNAMSZ = 16; { absolute length of a net name }
|
|
MAX_LANA = 254; { lana's in range 0 to MAX_LANA inclusive }
|
|
|
|
{
|
|
* Network Control Block
|
|
}
|
|
|
|
Type
|
|
PNCB = ^_NCB;
|
|
NCB_post_type = procedure (p: PNCB); stdcall;
|
|
_NCB = packed record
|
|
ncb_command : UCHAR; { command code }
|
|
ncb_retcode : UCHAR; { return code }
|
|
ncb_lsn : UCHAR; { local session number }
|
|
ncb_num : UCHAR; { number of our network name }
|
|
ncb_buffer : PUCHAR; { address of message buffer }
|
|
ncb_length : WORD; { size of message buffer }
|
|
ncb_callname : array [0..NCBNAMSZ-1] of UCHAR; { blank-padded name of remote }
|
|
ncb_name : array [0..NCBNAMSZ-1] of UCHAR; { our blank-padded netname }
|
|
ncb_rto : UCHAR; { rcv timeout/retry count }
|
|
ncb_sto : UCHAR; { send timeout/sys timeout }
|
|
ncb_post : ncb_post_type; { POST routine address }
|
|
ncb_lana_num : UCHAR; { lana (adapter) number }
|
|
ncb_cmd_cplt : UCHAR; { $ff => commmand pending }
|
|
{$ifdef _WIN64}
|
|
ncb_reserve : array[0..17] of UCHAR; { reserved, used by BIOS }
|
|
{$else}
|
|
ncb_reserve : array[0..9] of UCHAR; { reserved, used by BIOS }
|
|
{$endif}
|
|
ncb_event : THandle; { HANDLE to Win32 event which }
|
|
{ will be set to the signalled }
|
|
{ state when an ASYNCH command }
|
|
{ completes }
|
|
end;
|
|
NCB = _NCB;
|
|
|
|
{
|
|
* Structure returned to the NCB command NCBASTAT is ADAPTER_STATUS followed
|
|
* by an array of NAME_BUFFER structures.
|
|
}
|
|
|
|
ADAPTER_STATUS = packed record
|
|
adapter_address : Array [0..5] of UCHAR;
|
|
rev_major : UCHAR;
|
|
reserved0 : UCHAR;
|
|
adapter_type : UCHAR;
|
|
rev_minor : UCHAR;
|
|
duration : WORD;
|
|
frmr_recv : WORD;
|
|
frmr_xmit : WORD;
|
|
|
|
iframe_recv_err : WORD;
|
|
|
|
xmit_aborts : WORD;
|
|
xmit_success : DWORD;
|
|
recv_success : DWORD;
|
|
|
|
iframe_xmit_err : WORD;
|
|
|
|
recv_buff_unavail : WORD;
|
|
t1_timeouts : WORD;
|
|
ti_timeouts : WORD;
|
|
reserved1 : DWORD;
|
|
free_ncbs : WORD;
|
|
max_cfg_ncbs : WORD;
|
|
max_ncbs : WORD;
|
|
xmit_buf_unavail : WORD;
|
|
max_dgram_size : WORD;
|
|
pending_sess : WORD;
|
|
max_cfg_sess : WORD;
|
|
max_sess : WORD;
|
|
max_sess_pkt_size : WORD;
|
|
name_count : WORD;
|
|
end;
|
|
TADAPTER_STATUS = ADAPTER_STATUS;
|
|
PADAPTER_STATUS = ^TADAPTER_STATUS;
|
|
|
|
NAME_BUFFER = packed record
|
|
name : array [0..NCBNAMSZ-1] of UCHAR;
|
|
name_num : UCHAR;
|
|
name_flags: UCHAR;
|
|
end;
|
|
TNAME_BUFFER = NAME_BUFFER;
|
|
PNAME_BUFFER = ^NAME_BUFFER;
|
|
|
|
// values for name_flags bits.
|
|
Const
|
|
NAME_FLAGS_MASK = $87;
|
|
|
|
GROUP_NAME = $80;
|
|
UNIQUE_NAME = $00;
|
|
|
|
REGISTERING = $00;
|
|
REGISTERED = $04;
|
|
DEREGISTERED = $05;
|
|
DUPLICATE = $06;
|
|
DUPLICATE_DEREG = $07;
|
|
|
|
Type
|
|
{
|
|
* Structure returned to the NCB command NCBSSTAT is SESSION_HEADER followed
|
|
* by an array of SESSION_BUFFER structures. If the NCB_NAME starts with an
|
|
* asterisk then an array of these structures is returned containing the
|
|
* status for all names.
|
|
}
|
|
|
|
PSESSION_HEADER = ^TSESSION_HEADER;
|
|
TSESSION_HEADER = packed record
|
|
sess_name : UCHAR;
|
|
num_sess : UCHAR;
|
|
rcv_dg_outstanding : UCHAR;
|
|
rcv_any_outstanding : UCHAR;
|
|
end;
|
|
|
|
PSESSION_BUFFER = ^TSESSION_BUFFER;
|
|
TSESSION_BUFFER = packed record
|
|
lsn : UCHAR;
|
|
state : UCHAR;
|
|
local_name : array[0..(NCBNAMSZ)-1] of UCHAR;
|
|
remote_name : array[0..(NCBNAMSZ)-1] of UCHAR;
|
|
rcvs_outstanding : UCHAR;
|
|
sends_outstanding : UCHAR;
|
|
end;
|
|
|
|
// Values for state
|
|
|
|
Const
|
|
LISTEN_OUTSTANDING = $01;
|
|
CALL_PENDING = $02;
|
|
SESSION_ESTABLISHED = $03;
|
|
HANGUP_PENDING = $04;
|
|
HANGUP_COMPLETE = $05;
|
|
SESSION_ABORTED = $06;
|
|
|
|
{
|
|
* Structure returned to the NCB command NCBENUM.
|
|
*
|
|
* On a system containing lana's 0, 2 and 3, a structure with
|
|
* length =3, lana[0]=0, lana[1]=2 and lana[2]=3 will be returned.
|
|
}
|
|
Type
|
|
PLANA_ENUM = ^TLANA_ENUM;
|
|
TLANA_ENUM = packed record
|
|
length : UCHAR; // Number of valid entries in lana[]
|
|
lana : array[0..(MAX_LANA+1)-1] of UCHAR;
|
|
end;
|
|
|
|
{
|
|
* Structure returned to the NCB command NCBFINDNAME is FIND_NAME_HEADER followed
|
|
* by an array of FIND_NAME_BUFFER structures.
|
|
}
|
|
|
|
PFIND_NAME_HEADER = ^TFIND_NAME_HEADER;
|
|
TFIND_NAME_HEADER = packed record
|
|
node_count : WORD;
|
|
reserved : UCHAR;
|
|
unique_group : UCHAR;
|
|
end;
|
|
|
|
PFIND_NAME_BUFFER = ^TFIND_NAME_BUFFER;
|
|
TFIND_NAME_BUFFER = packed record
|
|
length : UCHAR;
|
|
access_control : UCHAR;
|
|
frame_control : UCHAR;
|
|
destination_addr : array[0..5] of UCHAR;
|
|
source_addr : array[0..5] of UCHAR;
|
|
routing_info : array[0..17] of UCHAR;
|
|
end;
|
|
|
|
{
|
|
* Structure provided with NCBACTION. The purpose of NCBACTION is to provide
|
|
* transport specific extensions to netbios.
|
|
}
|
|
|
|
PACTION_HEADER = ^TACTION_HEADER;
|
|
TACTION_HEADER = packed record
|
|
transport_id : ULONG;
|
|
action_code : USHORT;
|
|
reserved : USHORT;
|
|
end;
|
|
|
|
// Values for transport_id
|
|
|
|
const
|
|
ALL_TRANSPORTS = 'M'#0#0#0;
|
|
MS_NBF = 'MNBF'#0;
|
|
|
|
|
|
{***************************************************************
|
|
* *
|
|
* Special values and constants *
|
|
* *
|
|
***************************************************************}
|
|
|
|
Const
|
|
{
|
|
* NCB Command codes
|
|
}
|
|
|
|
NCBCALL = $10; { NCB CALL }
|
|
NCBLISTEN = $11; { NCB LISTEN }
|
|
NCBHANGUP = $12; { NCB HANG UP }
|
|
NCBSEND = $14; { NCB SEND }
|
|
NCBRECV = $15; { NCB RECEIVE }
|
|
NCBRECVANY = $16; { NCB RECEIVE ANY }
|
|
NCBCHAINSEND = $17; { NCB CHAIN SEND }
|
|
NCBDGSEND = $20; { NCB SEND DATAGRAM }
|
|
NCBDGRECV = $21; { NCB RECEIVE DATAGRAM }
|
|
NCBDGSENDBC = $22; { NCB SEND BROADCAST DATAGRAM }
|
|
NCBDGRECVBC = $23; { NCB RECEIVE BROADCAST DATAGRAM }
|
|
NCBADDNAME = $30; { NCB ADD NAME }
|
|
NCBDELNAME = $31; { NCB DELETE NAME }
|
|
NCBRESET = $32; { NCB RESET }
|
|
NCBASTAT = $33; { NCB ADAPTER STATUS }
|
|
NCBSSTAT = $34; { NCB SESSION STATUS }
|
|
NCBCANCEL = $35; { NCB CANCEL }
|
|
NCBADDGRNAME = $36; { NCB ADD GROUP NAME }
|
|
NCBENUM = $37; { NCB ENUMERATE LANA NUMBERS }
|
|
NCBUNLINK = $70; { NCB UNLINK }
|
|
NCBSENDNA = $71; { NCB SEND NO ACK }
|
|
NCBCHAINSENDNA = $72; { NCB CHAIN SEND NO ACK }
|
|
NCBLANSTALERT = $73; { NCB LAN STATUS ALERT }
|
|
NCBACTION = $77; { NCB ACTION }
|
|
NCBFINDNAME = $78; { NCB FIND NAME }
|
|
NCBTRACE = $79; { NCB TRACE }
|
|
|
|
|
|
ASYNCH = $80; { high bit set == asynchronous }
|
|
|
|
{
|
|
* NCB Return codes
|
|
}
|
|
|
|
NRC_GOODRET = $00; { good return }
|
|
{ also returned when ASYNCH request accepted }
|
|
NRC_BUFLEN = $01; { illegal buffer length }
|
|
NRC_ILLCMD = $03; { illegal command }
|
|
NRC_CMDTMO = $05; { command timed out }
|
|
NRC_INCOMP = $06; { message incomplete, issue another command }
|
|
NRC_BADDR = $07; { illegal buffer address }
|
|
NRC_SNUMOUT = $08; { session number out of range }
|
|
NRC_NORES = $09; { no resource available }
|
|
NRC_SCLOSED = $0a; { session closed }
|
|
NRC_CMDCAN = $0b; { command cancelled }
|
|
NRC_DUPNAME = $0d; { duplicate name }
|
|
NRC_NAMTFUL = $0e; { name table full }
|
|
NRC_ACTSES = $0f; { no deletions, name has active sessions }
|
|
NRC_LOCTFUL = $11; { local session table full }
|
|
NRC_REMTFUL = $12; { remote session table full }
|
|
NRC_ILLNN = $13; { illegal name number }
|
|
NRC_NOCALL = $14; { no callname }
|
|
NRC_NOWILD = $15; { cannot put * in NCB_NAME }
|
|
NRC_INUSE = $16; { name in use on remote adapter }
|
|
NRC_NAMERR = $17; { name deleted }
|
|
NRC_SABORT = $18; { session ended abnormally }
|
|
NRC_NAMCONF = $19; { name conflict detected }
|
|
NRC_IFBUSY = $21; { interface busy, IRET before retrying }
|
|
NRC_TOOMANY = $22; { too many commands outstanding, retry later }
|
|
NRC_BRIDGE = $23; { ncb_lana_num field invalid }
|
|
NRC_CANOCCR = $24; { command completed while cancel occurring }
|
|
NRC_CANCEL = $26; { command not valid to cancel }
|
|
NRC_DUPENV = $30; { name defined by anther local process }
|
|
NRC_ENVNOTDEF = $34; { environment undefined. RESET required }
|
|
NRC_OSRESNOTAV = $35; { required OS resources exhausted }
|
|
NRC_MAXAPPS = $36; { max number of applications exceeded }
|
|
NRC_NOSAPS = $37; { no saps available for netbios }
|
|
NRC_NORESOURCES = $38; { requested resources are not available }
|
|
NRC_INVADDRESS = $39; { invalid ncb address or length > segment }
|
|
NRC_INVDDID = $3B; { invalid NCB DDID }
|
|
NRC_LOCKFAIL = $3C; { lock of user area failed }
|
|
NRC_OPENERR = $3f; { NETBIOS not loaded }
|
|
NRC_SYSTEM = $40; { system error }
|
|
|
|
NRC_PENDING = $ff; { asynchronous command is not yet finished }
|
|
|
|
{***************************************************************
|
|
* *
|
|
* main user entry point for NetBIOS 3.0 *
|
|
* *
|
|
* Usage: result = Netbios( pncb ); *
|
|
***************************************************************}
|
|
|
|
function Netbios(pncb : PNCB):UCHAR; stdcall; external nbdllname name 'Netbios';
|
|
|
|
implementation
|
|
end.
|