Информационный дисплей

@zurprog · Регистрация: 02.03.2012

Студворк — интернет-сервис помощи студентам

Добрый день ув. форумчане! Есть 2 программы клиент-сервер (DataSnap)! Клиентская программа вроде как информационного табло... На ней отображается внесенная сумма и остаток средств. Дело в том, что клиентское приложение время от времени "отваливается". Как сделать так чтобы при потере связи приложение перезапускало соединение!

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
procedure TMyThread.Execute;
var SMC:TServerMethods1Client;
s:string;
scet: double;
i: integer;
begin
frmMain.Memo1.Lines.Add('['+DateTimeToStr(now)+'] : '+'TMyThread.Execute');
while not Terminated do
begin
Synchronize(UpdateDispl);
sleep(1000);
end;
end;
 
procedure TMyThread.UpdateDispl;
var
scet: double;
i: integer;
begin
if  (Setup.SQLConnection.Connected) then begin
 
SMC:=TServerMethods1Client.Create(Setup.SQLConnection.DBXConnection);
try
  frmMain.BoxOstatok.Caption:=(SMC.ActivePost(setup.nPOST.Text));
  frmMain.PrM1.Caption := SMC.Price1('1');
  frmMain.PrM2.Caption := SMC.Price1('2');
  frmMain.PrM3.Caption := SMC.Price1('3');
 
 if SMC.ActivePost(setup.nPOST.Text)='False' then begin
  frmMain.BoxOstatok.Caption:='0.00 руб.';
  frmMain.Mode1.Caption := '0:00';
  frmMain.Mode2.Caption := '0:00';
  frmMain.Mode3.Caption := '0:00';
  for I := 1 to 3 do begin
 (TRzPanel(frmMain.FindComponent('AcFrame_'+IntToStr(i)))).Color       := clYellow;
 (TRzPanel(frmMain.FindComponent('AcFrame_'+IntToStr(i)))).BorderOuter := frmMain.RzPanel3.BorderOuter; 
 (TRzPanel(frmMain.FindComponent('AcFrame_'+IntToStr(i)))).Height      := 105;
  end;
 end else begin
  if frmMain.PanelInf.Visible=True then  begin
 TimStop:=0;
 frmMain.timer3.Enabled   := false;
 frmMain.PanelInf.Visible := false;
 frmMain.RzPanel3.Caption :='0';
 frmMain.RzLabel1.Caption :='0:00';
 
  end;
 
 if SMC.razvrat(setup.nPOST.Text)='' then begin
  frmMain.BoxOstatok.Caption := SMC.Zakaz(setup.nPOST.Text)+' руб.';
 end else begin
  frmMain.BoxOstatok.Caption := SMC.SumZ(setup.nPOST.Text)+' руб.';
  frmMain.UpdDispl(StrToInt(SMC.ActMode(setup.nPOST.Text)));
 
  frmMain.Mode1.Caption:= SMC.OstMode1(setup.nPOST.Text);
  frmMain.Mode2.Caption:= SMC.OstMode2(setup.nPOST.Text);
  frmMain.Mode3.Caption:= SMC.OstMode3(setup.nPOST.Text);
 
 
 frmMain.BoxOstatok.Caption:= '0,00 руб.';
 frmMain.Button1.Click;
 
 end else begin
 TimStop:=0;
 frmMain.timer3.Enabled:= false;
 frmMain.PanelInf.Visible:= false;
 frmMain.RzPanel3.Caption:='0';
 frmMain.RzLabel1.Caption:='0:00';
  end;
  SMC.Free;
 
  UpdDispl(0);
  end;
//*****************************************************************
 end;
 
  except
   on E : Exception do
       begin
   MyThread.Terminate;
   setup.SQLConnection.Connected:= false;
   frmMain.Memo1.Lines.Add('['+DateTimeToStr(now)+'] : frmMain - '+E.Message);
   frmMain.Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'loadDbXml.txt');
   frmMain.BoxOstatok.Caption:='Нет связи...';
   timer1.Enabled := True;
 
end;
end;
end;
 
procedure TfrmMain.Timer1Timer(Sender: TObject);
begin
n:=n+1;
try
if setup.SQLConnection.Connected=False then begin
memo1.Lines.Add('['+DateTimeToStr(now)+'] : Ожидание - '+ n +'сек.');
SQLConnection.Open;
end else begin
  memo1.Lines.Add('['+DateTimeToStr(now)+'] : Связь с сервером установлена.'+' ожидание : '+RzPanel8.Caption+ '*2 сек.');
  frmMain.Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'loadDbXml.txt');
  Timer1.Enabled:= false;
  MyThread:=TMyThread.Create(False);
  MyThread.Priority:=tpNormal;
end;
 
except
 on E : Exception do
       begin
frmMain.Memo1.Lines.Add('['+DateTimeToStr(now)+'] : frmMain - '+E.Message);
end;
end;

@mss · 15.04.2015, 21:26

Не по теме:

можно даже так

Это уже совсем по феньшую)
Но сначала хотя бы искоренить дух Архангельского)

@zurprog · 16.04.2015, 16:27 **[ТС]**

Уважаемые форумчане! Дайте совет, как лучше сделать подобие "информационного табло", может не используя технологию DataSnap, нужно что-бы это было просто и стабильно!

@mss · 16.04.2015, 16:41

Не по теме:

Сообщение от zurprog

что-бы это было просто и стабильно

Проблема-то вовсе не сложности и косячности датаснапа, а в принципиальном непонимании где-что-зачем-почему происходит в использующем его коде)

@krapotkin · 16.04.2015, 22:34

я использую для табло на соревнованиях смарт-тв и веб-сервер (который использует Datasnap)

Новые блоги и статьи Все статьи Все блоги /
Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .
Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .

@zurprog 2 / 2 / 0 Регистрация: 02.03.2012 Сообщений: 66
	16.04.2015, 16:27 [ТС]
	Уважаемые форумчане! Дайте совет, как лучше сделать подобие "информационного табло", может не используя технологию DataSnap, нужно что-бы это было просто и стабильно! 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	16.04.2015, 22:34
	я использую для табло на соревнованиях смарт-тв и веб-сервер (который использует Datasnap) 0

Опции темы