Протокол HDLC (стр. 5 из 5)

form2.RadioGroup1.itemindex:=1;

form2.RadioGroup2.ItemIndex:=1;

delay(2000);

form2.Hide;

edit3.Text:='10101000';

memo2.Lines.Add('Ответ RR - готов к приему');

memo2.Lines.Add('-------------------------');

RichEdit1.Lines.Clear;

RichEdit1.Lines.Add('011111101010010101110000000000000001111110');

RadioGroup1.itemindex:=1;

RadioGroup2.ItemIndex:=1;

st:='';

st:='011111101010010101';

i:=0;

st3:='';

RichEdit1.Lines.Clear;

memo2.Lines.Add('Передача');

memo2.Lines.Add('-------------------------');

st4:='';

st4:=st4;

st5:='';

st6:='';

while (not eof(f))and (i<=512) do

begin

read(f,ch);

st6:=st6+ch;

perev1016(inttostr(ord(ch)),st3);

perev162(st3,st3);

st4:=st4+st3;

kol:=0;

for k:=1 to length(st3) do

begin

if st3[k]='1' then kol:=kol+1;

if kol=6 then begin insert('0',st3,k);kol:=0;end

end;

i:=i+1;

st5:=st5+st3;

end;

memo1.Lines.Clear;

memo1.Lines.Add(st4);

//closefile(f);

st5:=st5+'000000000000000001111110';

RichEdit1.Lines.Add(st5);

RadioGroup2.ItemIndex:=0;

edit3.Text:='00000000';

delay(2000);

//////

form2.RadioGroup1.ItemIndex:=0;

form2.RadioGroup2.ItemIndex:=0;

form2.memo1.Lines.Clear;

form2.memo1.Lines.Add(st5);

form2.Show;

delay(2000);

form2.Memo2.Lines.Clear;

form2.Memo2.Lines.Add(st4);

form2.RadioGroup1.itemindex:=0;

form2.RadioGroup2.ItemIndex:=0;

delay(2000);

form2.Memo3.Lines.Add(st6);

form2.RadioGroup1.itemindex:=0;

form2.RadioGroup2.ItemIndex:=0;

delay(2000);

form2.Hide;

end;

closefile(f);

//ClientSocket1.Socket.SendText('#End');

MessageDlg('Передача данных закончилась',mtInformation,[mbOk],0);

end

else

MessageDlg('Введите информацию',mtError,[mbOk],0);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

kl:=false;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

halt;

end;

end.

Министерство Образования и Культуры

Кыргызской Республики

Кыргызский Технический Университет

им. И. Раззакова.

Кафедра Информатики и Вычислительной Техники

Курсовой Проект

по курсу «Вычислительные комплексы, системы и сети»

на тему: «Разработка протокола канального уровня HDLC»

Выполнил: ст. гр. ЭВМ-1-99

Ыйсаев У.Б.

Приняла: доц. Токмергенова А.З.

Бишкек, 2003 г.