Monitor Server Status

rbuser

RbServer 10.06 Delphi 2007

I'm looking to create a monitoring application that will check and
report on the health of our report builder server.

Any suggestions on a good way to insure all of the pieces are functional
and responding correctly? I didn't see anything in the Wiki, maybe
there is an article someplace already?

Thanks - Jon Gray

nardmoseley

Here is some code to test whether the report server is running.

uses
rsClientTcpSocket, rsExceptions;

procedure TForm1.Button1Click(Sender: TObject);
var
lClientSocket: TrsClientTcpSocket;
begin
lClientSocket := TrsClientTcpSocket.Create;

try
{configur the connection parameters}
{lClientSocket.Connection := rsClientReport.Connection; }

try
lClientSocket.Active := True;
except on EClientError do
ShowMessage('Server is down');
end;

finally
lClientSocket.Free;
end;


end;




--
Nard Moseley
Digital Metaphors
www.digital-metaphors.com