mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-23 16:09:43 +02:00
* first draft of nb30.
git-svn-id: trunk@16040 -
This commit is contained in:
marco
parent
92a53a9cf1
commit
08abc28141
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -5889,6 +5889,7 @@ packages/winceunits/src/ws2bth.pp svneol=native#text/plain
|
||||
packages/winunits-base/Makefile svneol=native#text/plain
|
||||
packages/winunits-base/Makefile.fpc svneol=native#text/plain
|
||||
packages/winunits-base/fpmake.pp svneol=native#text/plain
|
||||
packages/winunits-base/src/Nb30.pp svneol=native#text/plain
|
||||
packages/winunits-base/src/activex.pp svneol=native#text/plain
|
||||
packages/winunits-base/src/buildwinutilsbase.pp svneol=native#text/plain
|
||||
packages/winunits-base/src/comconst.pp svneol=native#text/plain
|
||||
|
||||
301
packages/winunits-base/src/Nb30.pp
Normal file
301
packages/winunits-base/src/Nb30.pp
Normal file
@ -0,0 +1,301 @@
|
||||
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.
|
||||
Loading…
Reference in New Issue
Block a user