Передача сообщения, Создание канала передачи данных Опции

[dron4ik]

Всем привет..Задача:

Имеется два приложения--одно из них серверное(главное), второе - клиентское(не главное). Передача данных т.е. сообщений осуществляется по каналу через протокол NetBios (передача данных вернее сообщений работает хорошо)..Но нужно модернизировать программу т.е. вывести информацию о канале и информацию о сетевом адаптере - пользователю. Как это осуществить?


серверное прил:

program netbios;
uses crt, dos;
type
  ncb = record
    Cmd:                byte;
    CCode:              byte;
    LocalSessionNumber: byte;
    NetworkNameNumber:  byte;
    BufOfs:             word;
    BufSeg:             word;
    Size:               word;
    CallName:           array[1..16] of char;
    OurName:            array[1..16] of char;
    ReceiveTimeout:     byte;
    SendTimeout:        byte;
    PostRoutineOfs:     word;
    PostRoutineSeg:     word;
    AdapterNumber:      byte;
    FinalCCode:         byte;
    Reserved:           array[1..14] of char;
  end;
var
ncbrec: ncb;

procedure Dobavit;
var
  regs: registers;
begin
  regs.ES := seg(ncbrec);
  regs.BX := ofs(ncbrec);
  FillChar(ncbrec.OurName, 16, 's');
  ncbrec.Cmd := $30;
  ncbrec.AdapterNumber := 0;
  Intr($5c, regs);
end;

procedure Udalit;
var
  regs: registers;
begin
  regs.ES := seg(ncbrec);
  regs.BX := ofs(ncbrec);
  ncbrec.Cmd := $31;
  intr($5c, regs);
end;

procedure Call; {procedura sozdanija kanala}
var
  regs: registers;
begin
  regs.ES := seg(ncbrec);
  regs.BX := ofs(ncbrec);
  ncbrec.cmd := $10; {v 'Cmd' zanosim kod komandi 'CallW'}
  FillChar(ncbrec.CallName, 16, 'r'); {v 'Call' zanosim imya s kem budet sozdan kanal}
  intr($5c,regs); {prerivanije}
end;

procedure HangUp; {procedura razriva kanala}
var
  regs: registers;
begin
  regs.ES := seg(ncbrec);
  regs.BX := ofs(ncbrec);
  ncbrec.cmd := $12;
  intr($5c, regs);
end;

procedure Send; {procedura otpravki dannih v kanal}
var
  regs:registers;
  str: string;
begin
  write('Vvedite soobsch: ');
  readln(str); {schitivaem vvedennije polzovatelem dannije dlya otpravki}
  regs.ES := seg(ncbrec);
  regs.BX := ofs(ncbrec);
  ncbrec.Cmd := $14; {v 'Cmd' zanosim kod komandi 'SendW'}
  ncbrec.Size := length(str) + 1; {razmer dannih dlya otpravki}
  ncbrec.BufOfs := ofs(str); {ukazivaem smeschenije bufera kotoriy soderzhit dannije dlya otpravki}
  ncbrec.BufSeg := seg(str); {ukazivaem segment bufera}
  intr($5c, regs); {vizov prerivanija}
end;

begin
  with ncbrec do
  begin
    Cmd := 0;
    CCode := 0;
    LocalSessionNumber := 0;
    NetworkNameNumber := 0;
    BufOfs := 0;
    BufSeg := 0;
    Size := 0;
    ReceiveTimeout := 0;
    SendTimeout := 0;
    PostRoutineOfs := 0;
    PostRoutineSeg := 0;
    AdapterNumber := 0;
    FinalCCode := 0;
  end;
  clrscr;
  Dobavit; {dobavlyaem imya v tablicu imen}
  writeln('Dobavleno imya: ', ncbrec.FinalCCode);
  writeln('Adapter Number: ', ncbrec.AdapterNumber);
  writeln;
  if ncbrec.FinalCCode = 0 then begin {esli oshibok net to ->}
    Call; {organizuem kanal}
    writeln('Call: ',ncbrec.FinalCCode);
    writeln;
    Send; {otpravlyam dannije v kanal}
    writeln;
    writeln('Soobsch otpravleno: ',ncbrec.FinalCCode);
    writeln;
    HangUp; {razriv kanal}
    writeln('Hang up: ',ncbrec.FinalCCode);
    writeln;
  end;
  Udalit; {udalyaem imya iz tablici imen}  
writeln('Udaleno: ',ncbrec.FinalCCode);
  readln;
end.

клиенсткое прил:

program netbios;
uses crt, dos;
type
  ncb = record             {objavlenije setevogo upravlayuschego bloka i ego peremennih}
    Cmd:                byte;
    CCode:              byte;
    LocalSessionNumber: byte;
    NetworkNameNumber:  byte;
    BufOfs:             word;
    BufSeg:             word;
    Size:               word;
    CallName:           array[1..16] of char;
    OurName:            array[1..16] of char;
    ReceiveTimeout:     byte;
    SendTimeout:        byte;
    PostRoutineOfs:     word;
    PostRoutineSeg:     word;
    AdapterNumber:      byte;
    FinalCCode:         byte;
    Reserved:           array[1..14] of char;
  end;
var
ncbrec: ncb;

procedure Dobavit;  {procedura doabavlenija imeni iz peremennoy 'OurName' v tablicu imen}

var
  regs: registers;
begin
  regs.ES := seg(ncbrec);
  regs.BX := ofs(ncbrec);
  FillChar(ncbrec.OurName, 16, 'r');
  ncbrec.Cmd := $30;
  ncbrec.AdapterNumber := 0;
  Intr($5c, regs);
end;

procedure Udalit;  {procedura udalenija imeni iz tablici imen}
var
  regs: registers;
begin
  regs.ES := seg(ncbrec);
  regs.BX := ofs(ncbrec);
  ncbrec.Cmd := $31;
  intr($5c,regs);
end;

procedure Listen;  {procedora dlya organizacii kanala,ona budet nahoditsya
                     v ozhidanii poka server ne pozhelaet sozdat kanal}
var
  regs: registers;
begin
  regs.ES := seg(ncbrec);
  regs.BX := ofs(ncbrec);
  ncbrec.cmd := $11; {v 'Cmd' zanosim kod komandi 'ListenW'}
  FillChar(ncbrec.CallName, 16, 's'); {v 'CallName' zanosim imya 'servera' s kotorim budet organizovan kanal}
  intr($5c, regs); {vizivaem prerivanije}
end;

procedure HangUp; {procedura razriva kanala}
var
  regs: registers;
begin
  regs.ES := seg(ncbrec);
  regs.BX := ofs(ncbrec);
  ncbrec.cmd := $12; { v 'Cmd' zanosim kod komandi 'HangUpW'} 
  intr($5c, regs); {prerivanije}
end;

procedure Polu4it; {procedura priema dannih iz kanala}
var
  regs:registers;
  str: string;
begin
  regs.ES := seg(ncbrec);
  regs.BX := ofs(ncbrec);
  ncbrec.Cmd := $15; { v 'Cmd' zanosim kod komandi 'ReceiveW'}
  ncbrec.Size := 32;
  ncbrec.BufOfs := ofs(str); {ukazivaem smeschenije bufera,dlya priema soobschenij}
  ncbrec.BufSeg := seg(str); {ukazivaem segment bufera}
  intr($5c, regs); {prerivanije}
  writeln('Soobsch: ', str); {vivod poluchennih dannih}
end;

begin
  with ncbrec do
  begin
    Cmd := 0;
    CCode := 0;
    LocalSessionNumber := 0;
    NetworkNameNumber := 0;
    BufOfs := 0;
    BufSeg := 0;
    Size := 0;
    ReceiveTimeout := 0;
    SendTimeout := 0;
    PostRoutineOfs := 0;
    PostRoutineSeg := 0;
    AdapterNumber := 0;
    FinalCCode := 0;
  end;
  clrscr;
  Dobavit; {dobavlyaem imya v tablicu imen}
  writeln('Dobavleno imya: ', ncbrec.FinalCCode);
  writeln('Adapter Number: ', ncbrec.AdapterNumber);
  writeln;
  if ncbrec.FinalCCode = 0 then begin {esli pri dobavlenii imeni ne vozniklo oshibok to ->}
    Listen; {vizov proceduri ozhidanija servera dalya sozdanija kanala}
    writeln('Listen: ',ncbrec.FinalCCode);
    writeln;
    writeln('Nazhmite "Enter" pri gotovnosti priema...');
    readln;
    Polu4it; {procedura schitavanija dannih iz kanala}
    writeln;
    writeln('Polu4eno: ',ncbrec.FinalCCode);
    writeln;
    HangUp;      {razriv kanala}
    writeln('Hang up: ',ncbrec.FinalCCode);
    writeln;
  end;
  Udalit; {udalenije imeni iz tablici imen}
  writeln('Udaleno imya: ',ncbrec.FinalCCode);
  readln;
end.

[dron4ik]

нашел один код который выводит инфу о сетевом адаптере и и нфу о канале но проблема в том что этот код написан в Делфи...как можно его преобразовать в паскаль?

procedure TForm1.Button5Click(Sender: TObject);
var
i: integer;
Ends1,Ends2: byte;
NameType,NameStatus: String;
begin
Memo2.Clear();
Memo2.Lines.Add('Текущее состояние сети:');
FillChar(AStat, SizeOf(AStat), #0);
ncb1.ncb_buffer := @AStat;
FillChar(ncb1.ncb_callname,NCBNAMSZ,' ');
ncb1.ncb_callname[0]:='*';
ncb1.ncb_length := SizeOf(TNetBiosInfo);
RunCommand(NCBASTAT,true);
Memo2.Lines.Add('МАС адрес сетевой платы: '+AdapterToString(AStat.AdapterStatus));
Memo2.Lines.Add('Количество имён в таблице: '+IntToStr(AStat.AdapterStatus.name_count));
Memo2.Lines.Add('Имена в таблице: ');
for i := 0 to AStat.AdapterStatus.name_count - 1 do
begin
  Ends1 := Byte(AStat.NameBuffer[i].name[NCBNAMSZ - 1]);
  Ends2:= Byte(AStat.NameBuffer[i].name_flags) and NAME_FLAGS_MASK and $F0;
  case Ends2 of
    UNIQUE_NAME: NameType:='Уникальное';
    GROUP_NAME: NameType:='Групповое';
  end;
  Ends2:= Byte(AStat.NameBuffer[i].name_flags) and NAME_FLAGS_MASK;
  case Ends2 of
    REGISTERING: NameStatus:='Регистрация';
    REGISTERED: NameStatus:='Зарегистрированное';
    DEREGISTERED: NameStatus:='Завершение_регистрации';
    DUPLICATE: NameStatus:='Дублирование';
    DUPLICATE_DEREG: NameStatus:='Дублирование_с_ожиданием';
  end;
  Memo2.Lines.Add(Format('%s <%s> %s %s',[String(AStat.NameBuffer[i].name),IntToHex(Ends1, 2),NameType,NameStatus]));
end;
Memo2.Lines.Add('Версия NetBios: '+IntToStr(Ord(AStat.AdapterStatus.rev_major))+'.'+IntToStr(Ord(AStat.AdapterStatus.rev_minor)));
Memo2.Lines.Add('Количество свободных блоков NCB: '+IntToStr(AStat.AdapterStatus.free_ncbs));
Memo2.Lines.Add('Максимальное количество каналов: '+IntToStr(AStat.AdapterStatus.max_sess));
Memo2.Lines.Add('Максимальный размер датаграммы: '+IntToStr(AStat.AdapterStatus.max_dgram_size));
Memo2.Lines.Add('Количество ожидающих каналов: '+IntToStr(AStat.AdapterStatus.pending_sess));
Memo2.Lines.Add('Тип адаптера (FF для Символического адаптера Кольца или FE для адаптера Ethernet): '+IntToHex(Ord(AStat.AdapterStatus.adapter_type),2));
end

games online, search engine optimization