Дипломная работа: Автоматизация обработки заявок в центре коллективного пользования "ГЕОАНАЛИТИК" ИГГ УРО РАН
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
107
108
Приложение 5
Программный код разработанного модуля по тестированию стабильности
сайта
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil,
Forms, Controls, Graphics, Dialogs, StdCtrls, LazHelpHTML, ExtCtrls,
fphttpclient, LCLProc, Buttons, lclintf, Unit3, mmSystem;
type
{ TForm1 }
TForm1 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
Button1: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
109
Button9: TButton;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
get_users: TButton;
CB_Mails: TCheckBox;
CBthrough_server: TCheckBox;
CB_whoNow: TCheckBox;
Edit5: TEdit;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
GroupBox4: TGroupBox;
Label10: TLabel;
Label11: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
LabeledEdit1: TLabeledEdit;
Memo2_name: TMemo;
Memo2_whoNow: TMemo;
Memo2_Emails: TMemo;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
StopTimer: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label1: TLabel;
110
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Memo1: TMemo;
Timer1: TTimer;
Timer2: TTimer;
procedure beepClick(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Edit6Change(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure get_usersClick(Sender: TObject);
procedure CBthrough_serverChange(Sender: TObject);
111
procedure CB_whoNowChange(Sender: TObject);
procedure Label5Click(Sender: TObject);
procedure LabeledEdit1Change(Sender: TObject);
procedure Memo2_EmailsChange(Sender: TObject);
procedure Panel3Click(Sender: TObject);
procedure StopTimerClick(Sender: TObject);
procedure CB_MailsChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
Procedure SearchText (Sender: TObject) ;
procedure ToggleBox1Change(Sender: TObject);
private
public
end;
var
Form1: TForm1;
cicle, counter, counter2, noConnection, Memo2_Emails_Canged, noInternet:
integer;
httpurl: string;
Emails_arr: array [1..100] of String;
Emails_str: String;
no_form: integer;
web_module_link: String;
implementation
{$R *.lfm}
{TForm1}
Function ShMess (typeOfMess : String; url: String; text: String) : String;
Begin
If (typeOfMess = '1') Then
ShMess := 'Не найден текст'+#13#10+'"'+text+'"'+#13#10+' на стр
'+#13#10+'"'+url+'"';
Источник: https://baza.diplomsite.ru/previewfile/1871