Дипломная работа: Автоматизация обработки заявок в центре коллективного пользования "ГЕОАНАЛИТИК" ИГГ УРО РАН

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
132
end;
procedure TForm1.CB_whoNowChange(Sender: TObject);
begin
if (CB_whoNow.Checked = true) then Panel2.Visible:= true
else Panel2.Visible:= false;
end;
procedure TForm1.Label5Click(Sender: TObject);
begin
end;
procedure TForm1.LabeledEdit1Change(Sender: TObject);
begin
end;
procedure TForm1.Memo2_EmailsChange(Sender: TObject);
begin
Memo2_Emails_Canged := 1;
Label8.Caption := 'Поле изменено';
end;
procedure TForm1.Panel3Click(Sender: TObject);
begin
end;
procedure TForm1.StopTimerClick(Sender: TObject);
begin
Timer1.Interval := 0;
133
Timer2.Interval := 0;
StopTimer.Caption := 'Остановлен';
end;
procedure TForm1.CB_MailsChange(Sender: TObject);
begin
if (CB_Mails.Checked = true) then Panel1.Visible:= true
else Panel1.Visible:= false;
end;
{ FormCreate }
procedure TForm1.FormCreate(Sender: TObject);
Var
NomEkz, number, yourName: String;
f1: TextFile;
begin
cicle := 0;
counter := 0;
counter2 := 0;
noConnection := 0;
Memo2_Emails.Lines.LoadFromFile('emails.txt');
Label8.Caption := 'Восстановлено из файла';
Fill_Array(Memo2_Emails.Lines, Emails_arr); // создает строку Emails_str из
строк Memo2_Emails
Panel3.Top := 0;
// Считывание линка до веб модуля
AssignFile(f1, 'web_module_link.txt'); //связали файловую переменную с
файлом
Reset(f1);
Readln(f1, web_module_link); //читаем в s очередную строку
CloseFile(f1); //закрываем файл
134
{ Считывание номера из файла}
AssignFile(f1, 'number.txt'); //связали файловую переменную с файлом
Reset(f1);
Readln(f1, number); //читаем в s очередную строку
CloseFile(f1); //закрываем файл
if (number<>'')then // Если файл не пустой
begin
Panel3.Visible:= false; // скрываем панель
Edit6.Text:=number; // номер из файла - в поле
{ Считывание имени из файла}
AssignFile(f1, 'name.txt'); //связали файловую переменную с файлом
Reset(f1);
Readln(f1, yourName); //читаем в s очередную строку
CloseFile(f1); //закрываем файл
LabeledEdit1.Text := yourName; // имя из файла - в поле
Button6Click (Edit6); // получить настройки с сервера
Button2Click (Edit6); // запустить проверку
end;
end;
{главный таймер}
procedure TForm1.Timer1Timer(Sender: TObject);
var httpclient: TFPHTTPClient;
url, url_mail, html : String;
135
k1 : Integer;
begin
// ShowMessage ('Таймер кончился');
Timer1.Interval := StrToInt(Edit3.Text)*1000;
cicle := Timer1.Interval;
If (Edit6.Text <> '') Then // Если поле "№ экземпляра" - не пустое
Button6Click(Edit1); // Получить данные с сервера
if (Not(CBthrough_server.Checked)) then // Проверка через программу
Begin
httpclient := TFPHttpClient.Create(Nil);
try
try
html := httpclient.Get(Edit1.Text);
except
Label5.Caption := 'Нет связи с сервером или исчезла web-
страница...';
Label5.Font.Color := clMaroon;
noConnection := 1;
counter := counter+1;
counter2 := 0;
if (counter <= 2) Then
begin
SendMail ('0', '0', Edit1.Text, Edit4.Text, Emails_str,
LabeledEdit1.Text ); // связь, текст, url, текст_string
Form3.show;
136
Form3.label2.caption := ShMess ('0', Edit1.Text, Edit4.Text); // показ сообщ
"Нет связи с сервером или исчезла web-страница"
Form3.Button2Click(Button2); //запуск музыки
end;
End;
finally
httpclient.Free;
end;
memo1.Text := html;
k1:=Pos(Edit4.Text, html);
{ k1:=Pos(<подстрока>,<строка>);
Найдено - k1 = <номер вхождения>
не найдено - k1 = 0 }
If (k1 <> 0) then
Begin
Label5.Font.Color := clGreen;
Label5.Caption := 'Найдено!';
counter2 := counter2+1 ;
if ((counter <> 0)And(noInternet <> 1)) then
SendMail ('1', '1', Edit1.Text, Edit4.Text, Emails_str, LabeledEdit1.Text
); // связь, текст, url, текст_string, Emails, Имя
If ((counter <> 0)And(noInternet = 1)) then
SendMail ('2', '1', Edit1.Text, Edit4.Text, Emails_str, LabeledEdit1.Text
); // связь, текст, url, текст_string, Emails, Имя
noInternet := 0;
Источник: https://baza.diplomsite.ru/previewfile/1871

Смотрите также:

Изложение содержания дела, по которому приняты судебные постановления
_1-тема-СтрМетал
_1966(~1
_files_materials_5053_prog.ntr
_Антонян Ю.М., Сексуальные преступления. Чикатило и другие
_РГР № 1 (2)
- Габариты и масса 27