NetBios Komponente - Nachrichten verschicken

[whiteF]

hi,
ich wollte gerne per NetBios Nachrichten im LAN verschicken und bin über eine kleine Komponente namens "TNetBios" von "Dimka Maslov" bei Torry gestolpert. Nun bekomme ich Sie leider nicht in meinem Delphi XE 10 zum laufen (/installiert...: Mehrere Fehler).

Ich wollte euch mal fragen ob ihr diese installiert bekommt oder ob jmd eine bessere Alternative kennt? (bitte keine normalen tcp oder udp chats)

Viele Grüße

[Slipstream]

Da gibts doch gar keine Version für Delphi 10, sondern nur:

NetBios Unit v.1.01
Platforms: D1, D2, D3

TNetBios
Platforms: D5

Da musst du selber Hand anlegen und die Fehler, die du nicht genannt hast, korrigieren, soweit möglich.

[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