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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
117
Label7.Caption := 'Нет связи с главным сервером';
Label5.Font.Color := clMaroon;}
End;
finally
httpclient.Free;
end;
End;
// Поиск текста
Procedure TForm1.SearchText (Sender: TObject) ;
var httpclient: TFPHTTPClient;
url, url_mail, html : String;
k1 : Integer;
begin
{ k1:=Pos(<подстрока>,<строка>);
Найдено - k1 = <номер вхождения>
не найдено - k1 = 0 }
If (k1 <> 0) then Label5.Caption := 'Найдено!'
else
Begin
Label5.Caption := 'Не найдено...';
SendMail ('1', '0', Edit1.Text, Edit4.Text ); // связь, текст, url, текст_string
End;
}
End;
procedure TForm1.ToggleBox1Change(Sender: TObject);
begin
end;
{Кнопка Тест разовый}
procedure TForm1.Button1Click(Sender: TObject);
118
var httpclient: TFPHTTPClient;
url, url_mail, html : String;
k1 : Integer;
begin
If ((Edit1.text <> '')AND(Edit4.text <> '')) then // Введены ли Адрес и
Искомый текст?
Begin
url := Edit1.Text;
httpclient := TFPHttpClient.Create(Nil);
try
try
html := httpclient.Get(url);
except
Label5.Caption := 'Нет связи с сервером или исчезла web-
страница...';
Label5.Font.Color := clMaroon;
ShowMessage ('Нет связи с сервером или исчезла web-страница');
End;
finally
httpclient.Free;
end;
memo1.Text := html;
k1:=Pos(Edit4.Text, html);
{ k1:=Pos(<подстрока>,<строка>);
Найдено - k1 = <номер вхождения>
не найдено - k1 = 0 }
If (k1 <> 0) then
Begin
Label5.Caption := 'Найдено!';
Label5.Font.Color := clGreen;
end
else
119
begin
Label5.Caption := 'Не найдено...';
Label5.Font.Color := clMaroon;
end;
end
Else
ShowMessage('Не введены Адрес стр. или Искомый текст - невозможно
проверить!');
end;
{ кнопка Timer }
procedure TForm1.Button2Click(Sender: TObject);
var httpclient: TFPHTTPClient;
url, url_mail, html, NomEkz : String;
k1 : Integer;
begin
If ((Edit1.text <> '')AND(Edit4.text <> '')) then // Введены ли Адрес и
Искомый текст?
Begin
If (Edit6.Text <> '') Then // Если поле "№ экземпляра" - не пустое
begin
Button5Click (Edit1); // Отправить данные на сервер
get_usersClick (Edit6); // отправить свое имя и получить все имена
end;
If (Edit6.Text = '') Then // Если поле "№ экземпляра" - пустое
begin
InputQuery('НЕ ВВЕДЕН Номер Экземпляра', 'Укажите номер
экземпляра программы:', NomEkz);
Edit6.Text := NomEkz;
120
If (Edit6.Text = '') then
ShowMessage('Не введен № экземпляра!'+#13#10+'Программа будет
работать не синхронизируясь с сервером');
end;
Timer1.Interval := StrToInt(Edit3.Text)*1000;
Timer2.Interval := 1000;
cicle := Timer1.Interval;
StopTimer.Caption := 'Stop Timer';
{Код web}
//-------------
httpclient := TFPHttpClient.Create(Nil);
try
try
html := httpclient.Get(Edit1.Text);
except
Label5.Caption := 'Нет связи с сервером или исчезла web-
страница...';
Label5.Font.Color := clMaroon;
noConnection := 1;
End;
finally
httpclient.Free;
end;
memo1.Text := html;
k1:=Pos(Edit4.Text, html);
{ k1:=Pos(<подстрока>,<строка>);
Найдено - k1 = <номер вхождения>
не найдено - k1 = 0 }
If (k1 <> 0) then
121
Begin
Label5.Caption := 'Найдено!';
Label5.Font.Color := clGreen;
noConnection := 0;
end
else
begin
if (noConnection <> 1) then
begin
Label5.Caption := 'Не найдено...';
Label5.Font.Color := clMaroon;
end;
end;
end
Else
ShowMessage('Не введены Адрес стр. или Искомый текст - невозможно
проверить!');
end;
{ Кнопка Отпр почту }
procedure TForm1.Button3Click(Sender: TObject);
var httpclient: TFPHTTPClient;
url, urlmail, html, s : String;
begin
SendMail ('0', '0', Edit1.Text, Edit4.Text, Emails_str, LabeledEdit1.Text ); //
связь, текст, url, текст_string
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
ShowMessage('Здесь будет помощь');
Источник: https://baza.diplomsite.ru/previewfile/1871

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

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