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('Здесь будет помощь');
122
end;
{ Кнопка Отправить на сервер }
procedure TForm1.Button5Click(Sender: TObject);
var httpclient: TFPHTTPClient;
url, html, text_string: String;
k1: Integer;
begin
text_string := Edit4.Text;
text_string := codText (text_string);
If (Edit6.Text <> '') Then
begin
url :=
web_module_link+'/mind/getting.php?nomber='+Edit6.Text+'&&url='+Edit1.Text+'&
text_string='+text_string+'&interval='+Edit3.Text+'&iz_prog=1';
httpclient := TFPHttpClient.Create(Nil);
try
try
html := httpclient.Get(url);
except
Label5.Caption := 'Нет связи с главным сервером';
Label5.Font.Color := clMaroon;
Label7.Caption := 'Нет связи с главным сервером';
End;
finally
httpclient.Free;
end;
123
k1:=Pos('polucheno', html);
{ k1:=Pos(<подстрока>,<строка>);
Найдено - k1 = <номер вхождения>
не найдено - k1 = 0 }
If ( k1 <>0 ) Then
Begin
Label7.Caption := 'Отправлено успешно';
end;
end
Else ShowMessage('Отправка невозможна!'+#13#10+'Не введен номер
экземпляра программы!!!');
end;
{ Кнопка Получить с сервера }
procedure TForm1.Button6Click(Sender: TObject);
Var
urlmail, html, html1, s, url: String;
k1, noConnect: Integer;
httpclient: TFPHTTPClient;
begin
noConnect := 0;
If (Edit6.Text <> '') Then // Введен ли номер экземпляра?
begin
{---}
url := web_module_link+'/mind/sending.php?nomber='+Edit6.Text;
httpclient := TFPHttpClient.Create(Nil);
try
try
html := httpclient.Get(url);
except
124
Label5.Caption := 'Нет связи с главным сервером';
Label7.Caption := 'Нет связи с главным сервером';
Label5.Font.Color := clMaroon;
noConnect := 1;
noInternet := 1;
End;
finally
httpclient.Free;
end;
{---}
html1 := html;
//Delete (строка, нач поз, колво) - процедура
Delete (html, 1, 3); // удаление лишних 3 символов в начале полученой
строки
k1:=Pos('|', html);
{ k1:=Pos(<подстрока>,<строка>);
Найдено - k1 = <номер вхождения>
не найдено - k1 = 0 }
s := Copy (html, 1, k1-1);
Edit7.Text := s;
Delete (html, 1, k1); // удаление номера и | после него
k1:=Pos('|', html); // поз | полсле url
s := Copy (html, 1, k1-1);
Edit1.Text := s; // Получение url полем
Delete (html, 1, k1); // удаление url и | после него
125
k1:=Pos('|', html); // поз | полсле text_string
s := Copy (html, 1, k1-1);
Edit4.Text := s; // Получение text_string полем
Delete (html, 1, k1); // удаление text_string и | после него
If (noConnect <> 1) Then
Edit3.Text := html; // Получение интервал полем
If ( k1 <>0 ) Then
Begin
Label7.Caption := ' Получено успешно';
end;
end
Else ShowMessage('Получение невозможно!'+#13#10+'Не введен номер
экземпляра программы!!!');
end;
{ through_server }
procedure TForm1.Button7Click(Sender: TObject);
Var
k1: Integer;
html: String;
begin
ShowMessage( check_through_server(Edit1.Text, Edit4.Text));
end;
{ На стр админ. }
procedure TForm1.Button8Click(Sender: TObject);
begin
OpenURL(web_module_link+'/mind/ctrl_2.php?g=75tb7r34ijdeidmewfu5gt75ht43id
126
m34kpdoi4390r45jfu54nfid67d34yed832d32oi0d34980rfy43fe3i0odfmnerug56y67tr8
ufdsivdsmcednbufy4t845ygh89ikytojmh67jvi8fg7dsie9rwql9r67gur9ekfmbntyh6jfv5u
iyg7548fnerjfbuygfr5thgt6yujkukuort67nhjv7tyffjerhfer9fnwqerjtgb5yigt4578gerhviur
wenfveruige4789frt34yhufbnrfufv553gt7483yhfwe8uwejnuidcbwetfsa6754sdrv6tbgf7
unhu9ikm0loiultrogm4jhb67ghcgvtbjtgf98bjfdivjvnergyergfer7hferujnverifbery8g78g
hrfgvuerngrejuighb578tgh54gt5hug7hf67vtf65bfgr6h7mt7kokijmn8hojhg98yurf67rt6d
yb78fgvunhmjhp,;jkll.;;h.f.gm,,.mfm,ngmrb6nmyb6mnu5bu7huv6hi8kjo7i89ol89klo8
p9lp[tyhp[hiopgiu409rtu3489ry3e78ted67rdtcfxhcvbcxvnmvmfd,mhbftg,nl;kjhnkij89b
kjljgiorejvdsf89ygsdtyfcsegfv5jkg6ylj;,k;oukofgihbvtdxcrdsyfuejgvfhfjolhtdtriopuyre,
epelvgr5gfuhrtnfvctrjnfcophuyvtghkdnvthybtktpofkfg98fg6b7trgf76fguyhyiu6yjfrts34
w3e67yijkodnjkdsbgytsdfcs57drfc76setfr7fhvruihvnsdjivnrghthvtyediomljnghxfgfuijp
94ri84th5jhttngpofgiu7ngb7ysndjkehbh609lr;lweqmkjgyubyuybhgv8hggiujiynhby7nv
guikdrnbjhrfskl09evblyt3hb065ewij');
end;
{ Кнопка Старт }
procedure TForm1.Button9Click(Sender: TObject);
Var
NomEkz, yourName: String;
f1: TextFile;
begin
Panel3.Visible:= false;
Label6.Font.Color := clRed;
InputQuery('Номер Экземпляра', 'Укажите номер экземпляра программы:',
NomEkz);
Edit6.Text := NomEkz;
If (Edit6.Text <> '') Then // Если поле "№ экземпляра" - не пустое
Button6Click(Edit1); // Получить данные с сервера