Geum.ru


Разработка фрагмента специального математического и программного обеспечения передачи данных на основе протокола TCP/IP

Дипломная работа - Безопасность жизнедеятельности

Другие дипломы по предмету Безопасность жизнедеятельности



lear;i := 1 to 3 dofConnect.StringGrid.Cells[3,i] = 'Установленно' then.Items.Add(fConnect.StringGrid.Cells[1,i]);

end;

.

Форма отправки донесения

unit unReport;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;

= class(TForm): TLabel;: TComboBox;: TLabel;: TMemo;: TButton;: TButton;FormActivate(Sender: TObject);bBackClick(Sender: TObject);bSendClick(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TfReport;

{$R *.dfm}

unMain, unConnect;

TfReport.bBackClick(Sender: TObject);;;

TfReport.bSendClick(Sender: TObject);i: integer;(cbPost.ItemIndex = -1) or (mText.Text = '') then('Проверьте правильность ввода!',mtError,[mbOk],0,mbOk);;;i := 1 to fConnect.StringGrid.RowCount - 1 docbPost.Text = fConnect.StringGrid.Cells[1,i] then break;.TcpClient.RemoteHost := fConnect.StringGrid.Cells[2,i];.TcpClient.Active := True;.TcpClient.Sendln(mText.Text);.TcpClient.Active := false;;

TfReport.FormActivate(Sender: TObject);i: integer;.Items.Clear;i := 1 to 3 dofConnect.StringGrid.Cells[3,i] = 'Установленно' then.Items.Add(fConnect.StringGrid.Cells[1,i]);

end;

.

Форма входящего сообщения

unit unMessage;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;

= class(TForm): TButton;: TLabel;: TMemo;: TLabel;: TButton;: TLabel;bBackClick(Sender: TObject);bReportClick(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TfMessage;

{$R *.dfm}

unMain, unReport;

TfMessage.bBackClick(Sender: TObject);;;

TfMessage.bReportClick(Sender: TObject);.ShowModal;;

.

Форма о программе

unit unAbout;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;

= class(TForm): TLabel;: TLabel;

{ Private declarations }

{ Public declarations };

: TfAbout;

{$R *.dfm}

unMain;

end.