OberonCore

function TForm1.NbLanaEnum: TLana_Enum;
var
 NCB: TNCB;
 L_Enum: TLana_Enum;
 RetCode: Word;
begin
 FillChar(NCB, SizeOf(NCB), 0);
 FillChar(L_Enum, SizeOf(TLana_Enum), 0);
 NCB.Command := NCB_ENUM;
 NCB.Buf := @L_Enum;
 NCB.Length := Sizeof(L_Enum);
 RetCode := NetBiosCmd(NCB);
 if RetCode <> NRC_GOODRET then
  begin
   L_Enum.Length := 0;
   L_Enum.Lana[0] := Byte(RetCode);
  end;
 Result := L_Enum;
end;

MODULE NBSTest2;

   IMPORT SYSTEM, log := StdLog, n := WinNet, Strings, Services, WinApi;

   PROCEDURE Zero2(VAR a: n.NCB);
      VAR i: INTEGER;
   BEGIN
         a.ncb_command := 0X; a.ncb_retcode := 0X; a.ncb_lsn := 0X; a.ncb_num := 0X;
         a.ncb_buffer := NIL; a.ncb_length := 0; a.ncb_rto := 0X; a.ncb_sto := 0X;
         a.ncb_post := NIL; a.ncb_lana_num := 0X; a.ncb_cmd_cplt := 0X; a.ncb_event := 0;
         
         i := 0;
         WHILE i < LEN(a.ncb_callname) DO    
            a.ncb_callname[i] := 0X; INC( i )
         END;
         i := 0;
         WHILE i < LEN(a.ncb_name) DO
            a.ncb_name[i] := 0X; INC( i )
         END;          
         i := 0;
         WHILE i < LEN(a.ncb_reserve) DO    
            a.ncb_reserve[i] := 0X;
            INC( i )
         END
   END Zero2;
   
   
   PROCEDURE ZeroLana(VAR lana: n.LANA_ENUM);
      VAR i: INTEGER;
   BEGIN
      lana.length := 0X;
      FOR i := 0 TO 255-1 DO lana.lana[i] := 0X END
   END ZeroLana;
   
   PROCEDURE print(c: SHORTCHAR);
   BEGIN
      log.String(' result = '); log.Int(ORD( c )); log.Ln
   END print;

   PROCEDURE convert(IN s: ARRAY OF CHAR; OUT sc: ARRAY OF SHORTCHAR);
      VAR i: INTEGER;
   BEGIN   
      log.String('---------');
      FOR i := 0 TO LEN ( s$ ) DO
         sc[i] := SHORT( s[i] );
         log.Char(sc[i])
      END;
      
      log.String('---------'); log.Ln
   END convert;
   
   PROCEDURE Do2*;
      VAR retcode: SHORTCHAR;
      lana: n.LANA_ENUM;
      adapter: n.ADAPTER_STATUS;
      adr: INTEGER;
      s: ARRAY 255 OF CHAR;
      ss: ARRAY 255 OF SHORTCHAR;
      ncb: n.NCB;
   BEGIN
      Zero2( ncb );
      ZeroLana( lana );
      ncb.ncb_command := SHORT( CHR (n.NCBENUM));
      ncb.ncb_buffer := SYSTEM.VAL(WinApi.PtrSTR, lana);
      ncb.ncb_length := 255;
      retcode :=  n.Netbios(ncb);
      print(retcode);
      
      log.String(' len = '); log.Char(LONG(lana.length)); log.Ln;
   END Do2;
END NBSTest2.
NBSTest2.Do2

 result =  1
 len =  00X

   PROCEDURE FillMemory* (adr, count: INTEGER; val: BYTE);
      VAR i: INTEGER;
   BEGIN
      FOR i := 0 TO count -1 DO
         SYSTEM.PUT(adr + i, val)
      END
   END FillMemory;

   TYPE
      Buffer = ARRAY 300 OF SHORTCHAR;
      
   PROCEDURE FillMemory(adr, count: INTEGER; val: BYTE);
      VAR i: INTEGER;
   BEGIN
        FOR i := 0 TO count -1 DO SYSTEM.PUT(adr + i, val) END   
   END FillMemory;
...

   PROCEDURE GetLana(OUT l: n.LANA_ENUM);
      VAR ncb: n.NCB; buffer: Buffer; ret: SHORTCHAR; i: INTEGER;
   BEGIN
      FillMemory(SYSTEM.ADR(ncb), SIZE(n.NCB), 0);
      FillMemory(SYSTEM.ADR(buffer), SIZE(Buffer), 0);
      ncb.ncb_command := SHORT(CHR( n.NCBENUM ));
      ncb.ncb_buffer := buffer;
      ncb.ncb_length := SIZE( n.LANA_ENUM );
      ret := n.Netbios( ncb );
      IF ret = 0X THEN
         l.length := buffer[0];
         FOR i := 0 TO SIZE(n.LANA_ENUM )-2 DO
            l.lana[i] := buffer[i+1];
            
         END;
      END;
      
   END GetLana;

ncb.ncb_buffer := SYSTEM.VAL(WinApi.PtrSTR, lana)