Разработка отказоустойчивой вычислительной системы
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
reate(Sender: TObject); private { Private declarations } public { Public declarations } break; end; if mas[0]=p then begin c.Host:=str; c.Port:=strtoint(eport.text); c.Active:=true; c.Send(p1o); c.Active:=false; end; if mas[0]=z then begin c.Host:=str; c.Port:=strtoint(eport.text); c.Active:=true; if RadioButton1.Checked then pg:=s; if RadioButton2.Checked then pg:=p; if RadioButton3.Checked then pg:=o; if RadioButton4.Checked then pg:=d; c.Send(z+pg+edit2.Text+#); c.Active:=false; end; end; procedure TForm1.Button2Click(Sender: TObject); begin s.Active:=true; end; procedure TForm1.FormCreate(Sender: TObject); begin label4.Caption:=Form1.GetLocalIP end; end.
Заключение
Получен программный продукт, реализующий отказоустойчивую систему на основе клиент серверной технологии. Программа проверена на практике. В случае потери связи с ведущим сервером клиент успешно переключается на альтернативный. Поставленная задача выполнена.