Разработка отказоустойчивой вычислительной системы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,IdSocketHandle, StdCtrls, IdBaseComponent, IdComponent,

IdTCPConnection, IdTCPClient, IdUDPBase, IdUDPClient, ExtCtrls,

IdUDPServer, IdTCPServer, jpeg, Buttons, FileCtrl,WinSock;

type

TForm1 = class(TForm)

Button1: TButton;

s: TIdUDPServer;

c: TIdUDPClient;

Eip: TEdit;

Timer1: TTimer;

Timer2: TTimer;

Memo1: TMemo;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Eip2: TEdit;

Label5: TLabel;

Eport: TEdit;

Button2: TButton;

Button3: TButton;

Bevel1: TBevel;

procedure Button1Click(Sender: TObject);

procedure sUDPRead(Sender: TObject; AData: TStream;

ABinding: TIdSocketHandle);

procedure Timer1Timer(Sender: TObject);

procedure Timer2Timer(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure s2UDPRead(Sender: TObject; AData: TStream;

ABinding: TIdSocketHandle);

procedure FormCreate(Sender: TObject);

procedure Button3Click(Sender: TObject);

var

i : integer;

mas : array [0..1000] of char;

str,pg : string;

begin

if numP<>0 then

begin

if ncs=1 then

Memo1.Lines.Add('Подключение к серверу 1 востановленно')

else

Memo1.Lines.Add('Подключение к серверу 2 востановленно');

end;

numP:=0;

timer2.Enabled:=false;

Adata.Read(mas,100);

for i:=0 to 1000 do

begin

if mas[i]<>'' then

str:=str+mas[i]

else

break;

end;

if mas[0]='z' then

begin

if mas[1]='d' then Image1.Picture.LoadFromFile('d.jpg');

if mas[1]='p' then Image1.Picture.LoadFromFile('p.jpg');

if mas[1]='s' then Image1.Picture.LoadFromFile('s.jpg');

if mas[1]='o' then Image1.Picture.LoadFromFile('o.jpg');

for i:=2 to 1000 do

begin

if mas[i]<>'#' then

pg:=pg+mas[i]

else

break;

end;

label1.Caption:=pg;

end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

//c.Host:=eip.Text;

c.Port:=strtoint(eport.text) ;

c.Active:=true;

c.Send('p'+Mip+'!');

c.Active:=false;

timer2.Enabled:=true;

private

function GetLocalIP: String;

{ Private declarations }

public

{ Public declarations }

Mip:string;

ncs:byte;

end;

var

Form1: TForm1;

numP: byte;

implementation

{$R *.dfm}

function TForm1.GetLocalIP: String;

const WSVer = $101;

var

wsaData: TWSAData;

P: PHostEnt;

Buf: array [0..127] of Char;

begin

Result := '';

if WSAStartup(WSVer, wsaData) = 0 then begin

if GetHostName(@Buf, 128) = 0 then begin

P := GetHostByName(@Buf);

if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);

end;

WSACleanup;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

c.Port:=strtoint(eport.text);

c.Active:=true;

c.Send('z'+ GetLocalIP);

c.Active:=false;

end;

procedure TForm1.sUDPRead(Sender: TObject; AData: TStream;

ABinding: TIdSocketHandle);

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

if numP=0 then

begin

if ncs=1 then

Memo1.Lines.Add('Потерянна связь с сервером 1. Попытка подключения №1')

else

Memo1.Lines.Add('Потерянна связь с сервером 2. Попытка подключения №1');

end;

if numP=1 then

begin

if ncs=1 then

Memo1.Lines.Add('Потерянна связь с сервером 1. Попытка подключения №2')

else

Memo1.Lines.Add('Потерянна связь с сервером 2. Попытка подключения №1');

end;

if numP>1 then

begin

timer2.Enabled:=false;

if ncs=1 then

begin

c.Host:=eip2.Text;

ncs:=2;

numP:=0;

Memo1.Lines.Add('Потерянна связь с сервером 1. Попытка подключения ко второму');

end

else

begin

c.Host:=eip.Text ;

ncs:=1;

numP:=0;

Memo1.Lines.Add('Потерянна связь с сервером 2. Попытка подключения к первому');

end;

end;

numP:=numP+1;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

s.DefaultPort:=strtoint(eport.Text)

end;

procedure TForm1.s2UDPRead(Sender: TObject; AData: TStream;

ABinding: TIdSocketHandle);

var

i : integer;

mas : array [0..1000] of char;

str : string;

begin

Adata.Read(mas,100);

for i:=0 to 1000 do

begin

if mas[i]<>'' then

str:=str+mas[i]

else

break;

end;

timer2.Enabled:=false;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Mip:=GetLocalIP;

c.Host:=eip.Text;

numP:=0;

ncs:=1;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

if Button3.caption='Скрыть настройки' then

begin

label2.Visible:=false;

label3.Visible:=false;

label4.Visible:=false;

label5.Visible:=false;

eip.Visible:=false;

eip2.Visible:=false;

eport.Visible:=false;

Button2.Visible:=false;

Memo1.Visible:=false;

Form1.Height:=180;

button3.Caption:='Показать настройки';

end

else

begin

label2.Visible:=true;

label3.Visible:=true;

label4.Visible:=true;

label5.Visible:=true;

eip.Visible:=true;

eip2.Visible:=true;

eport.Visible:=true;

Button2.Visible:=true;

Memo1.Visible:=true;

Form1.Height:=400;

Button3.caption:='Скрыть настройки';

end

end;

end.