NetBios Komponente - Nachrichten verschicken

[Klaus01]

.. ein Problem dürfte sein, dass in D10 mit UniCode gearbeitet wird.
Da hat dann ein Char ein Größe von 2 Byte.
Solche Record-Strukturen dürften dann nicht mehr ordnungsgemäß arbeiten.

Delphi-Quellcode:

  TNCB = packed record
    ncb_command: Char;         // command code
    ncb_retcode: Char;         // return code
    ncb_lsn: Char;             // local session number
    ncb_num: Char;             // number of our network name
    ncb_buffer: PChar;         // address of message buffer
    ncb_length: Word;          // size of message buffer
    ncb_callname: TNCBName;    // blank-padded name of remote
    ncb_name: TNCBName;        // our blank-padded netname
    ncb_rto: Char;             // rcv timeout/retry count
    ncb_sto: Char;             // send timeout/sys timeout
    ncb_post: TNCBPostProc;    // POST routine address
    ncb_lana_num: Char;        // lana (adapter) number
    ncb_cmd_cplt: Char;        // 0xff => commmand pending
    ncb_reserve: array[0..9] of Char;              // reserved, used by BIOS
    ncb_event: THandle;        // HANDLE to Win32 event which
                               // will be set to the signalled
                               // state when an ASYNCH command
                               // completes
  end;

Ein erster Schritt wäre dann Char durch AnsiChar oder Byte zu ersetzen.

Grüße
Klaus