Subversion Repositories delphiutils

Compare Revisions

No changes between revisions

Regard whitespace Rev 57 → Rev 64

/trunk/StatusMon 3.0/StatusMon.res
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/StatusMon 3.0/Main.dfm
2,7 → 2,7
Left = 219
Top = 164
Caption = 'ViaThinkSoft Status Monitor'
ClientHeight = 472
ClientHeight = 492
ClientWidth = 730
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
23,7 → 23,7
Left = 0
Top = 0
Width = 730
Height = 447
Height = 467
Align = alClient
ColCount = 3
DefaultRowHeight = 18
34,7 → 34,7
TabOrder = 0
OnDblClick = MonitorGridDblClick
OnMouseDown = MonitorGridMouseDown
ExplicitHeight = 427
ExplicitHeight = 447
ColWidths = (
214
359
42,7 → 42,7
end
object LastCheckPanel: TPanel
Left = 0
Top = 447
Top = 467
Width = 730
Height = 25
Align = alBottom
49,7 → 49,7
BevelOuter = bvNone
Caption = '...'
TabOrder = 1
ExplicitTop = 427
ExplicitTop = 447
end
object TrayPopupMenu: TPopupMenu
Left = 8
209,7 → 209,7
Left = 8
Top = 144
Bitmap = {
494C010102000400040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000001000000001002000000000000010
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
345,6 → 345,7
AE73CFF300000000D6E787E100000000EE2F000000000000FC1F000000000000
F80F00000000000080080001000000001001000300000000F01F000700000000
F83F000F00000000E477FE8B00000000CF6BFFDF000000009E75FF7700000000
BE7BFFDF00000000FEFFFFFF00000000}
BE7BFFDF00000000FEFFFFFF0000000000000000000000000000000000000000
000000000000}
end
end
/trunk/StatusMon 3.0/StatusMon.bdsproj
150,7 → 150,7
<VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">17</VersionInfo>
<VersionInfo Name="Build">22</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
162,7 → 162,7
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">ViaThinkSoft</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription">ViaThinkSoft Status Monitor Checker</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.0.0.17</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.0.0.22</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">StatMon3</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright">(C) 2010 ViaThinkSoft</VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks">Keine</VersionInfoKeys>
/trunk/StatusMon 3.0/Output/setup.exe
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/StatusMon 3.0/Main.pas
2,6 → 2,8
 
(*
 
# download einer primer-tabelle?
 
bug: wenn man einen eintrag ändert oder hinzufügt, werden alle "status" auf unknown zurückgesetzt
td: aktualisierenbutton/f5 erlauben
del-button...
8,6 → 10,16
icon: gray(internetdown),red,green
reg-write fehler erkennen
 
statustext einführen (format 2.0)
 
rote listeneinträge bei fehlern
 
f5 möglichkeit geben?
 
nur 1 instanz zulassen
 
spaltenindizes 0,1,2 in constanten packen
 
Future
------
 
106,6 → 118,7
private
RealClose: boolean;
WarnAtConnectivityFailure: boolean;
StatCache: TStringList;
procedure TaskbarEvent(var Msg: TMessage);
Message WM_TASKABAREVENT;
procedure OnQueryEndSession(var Msg: TWMQueryEndSession);
233,6 → 246,7
 
procedure TMainForm.FormDestroy(Sender: TObject);
begin
StatCache.Free;
NotifyIconChange(NIM_DELETE);
end;
 
242,6 → 256,12
 
// RightAlignHelpMenuItem;
 
StatCache := TStringList.Create;
 
// Kommt sicherlich nicht in irgendeiner URL vor!
// #0 funktioniert nicht
StatCache.NameValueSeparator := #1;
 
NotifyIconChange(NIM_ADD);
 
MonitorGrid.Rows[0].Add(LNG_COLUMN_NAME);
349,6 → 369,7
reg: TRegistry;
st: TStringList;
i: Integer;
MonitorUrl, CachedStat: String;
begin
reg := TRegistry.Create;
st := TStringList.Create;
364,8 → 385,11
begin
MonitorGrid.Rows[i+1].Clear;
MonitorGrid.Rows[i+1].Add(st.Strings[i]);
MonitorGrid.Rows[i+1].Add(reg.ReadString(REG_VAL_URL));
MonitorGrid.Rows[i+1].Add(LNG_STAT_UNKNOWN);
MonitorUrl := reg.ReadString(REG_VAL_URL);
MonitorGrid.Rows[i+1].Add(MonitorUrl);
CachedStat := StatCache.Values[MonitorUrl];
If CachedStat = '' then CachedStat := LNG_STAT_UNKNOWN;
MonitorGrid.Rows[i+1].Add(CachedStat);
end;
end;
reg.CloseKey;
500,6 → 524,8
ServerName := MonitorGrid.Rows[i].Strings[0];
MonitorUrl := MonitorGrid.Rows[i].Strings[1];
 
if MonitorUrl = '' then Exit; // Passiert, wenn Create() aufgehalten wird (z.B. mit ShowMessage)
 
MonitorGrid.Rows[i].Strings[2] := LNG_STAT_CHECKING;
Application.ProcessMessages;
 
508,6 → 534,7
if x = msOK then
begin
MonitorGrid.Rows[i].Strings[2] := LNG_STAT_OK;
StatCache.Values[MonitorUrl] := LNG_STAT_OK;
NotifyIconChange(NIM_MODIFY);
if ShowSuccess then
begin
517,6 → 544,7
else if x = msStatusWarning then
begin
MonitorGrid.Rows[i].Strings[2] := LNG_STAT_WARNING;
StatCache.Values[MonitorUrl] := LNG_STAT_WARNING;
NotifyIconChange(NIM_MODIFY);
if MessageBox(Handle, PChar(Format(LNG_ALERT_STATUS_WARNING, [ServerName, MonitorUrl])), PChar(LNG_ALERT_CAPTION), MB_ICONWARNING or MB_YESNOCANCEL) = IDYES then
begin
526,6 → 554,7
else if x = msMonitorParseError then
begin
MonitorGrid.Rows[i].Strings[2] := LNG_STAT_PARSEERROR;
StatCache.Values[MonitorUrl] := LNG_STAT_PARSEERROR;
NotifyIconChange(NIM_MODIFY);
if MessageBox(Handle, PChar(Format(LNG_ALERT_MONITOR_FAILURE, [ServerName, MonitorUrl])), PChar(LNG_ALERT_CAPTION), MB_ICONWARNING or MB_YESNOCANCEL) = IDYES then
begin
535,6 → 564,7
else if x = msMonitorGeneralError then
begin
MonitorGrid.Rows[i].Strings[2] := LNG_STAT_GENERALERROR;
StatCache.Values[MonitorUrl] := LNG_STAT_GENERALERROR;
NotifyIconChange(NIM_MODIFY);
if MessageBox(Handle, PChar(Format(LNG_ALERT_MONITOR_FAILURE, [ServerName, MonitorUrl])), PChar(LNG_ALERT_CAPTION), MB_ICONWARNING or MB_YESNOCANCEL) = IDYES then
begin
544,6 → 574,7
else if x = msServerDown then
begin
MonitorGrid.Rows[i].Strings[2] := LNG_STAT_SERVERDOWN;
StatCache.Values[MonitorUrl] := LNG_STAT_SERVERDOWN;
NotifyIconChange(NIM_MODIFY);
// Es besteht eine Internetverbindung, daher ist wohl was mit dem
// Server nicht in Ordnung
556,6 → 587,7
else if x = msInternetBroken then
begin
MonitorGrid.Rows[i].Strings[2] := LNG_STAT_INTERNETBROKEN;
StatCache.Values[MonitorUrl] := LNG_STAT_INTERNETBROKEN;
NotifyIconChange(NIM_MODIFY);
if not WarnAtConnectivityFailure then
begin
/trunk/StatusMon 3.0/StatusMon.exe
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream