thanks for routines to start and stop server.

A little extension is planned.

I would like to check if there r any users connected to server may be
with
different database file. Can i detect how many databases being served by
the
the server and how many users r being connected to each database.

r. s. patil


Luiz Alves wrote:

>
> Here is from ibconsole source:
>
> function StopServer(): boolean;
> var
> lHWND: HWND;
> lVersion: DWORD;
> lRegistry: TRegistry;
> lEXEName: string;
> lArray: array[0..255] of char;
> begin
> result := false;
> lRegistry := TRegistry.Create;
> try
> Screen.Cursor := crHourglass;
> lVersion := OSVersionInfo();
> if lVersion = VER_PLATFORM_WIN32_NT then
> begin
> lRegistry.RootKey := HKEY_LOCAL_MACHINE;
> if not
> lRegistry.OpenKey('Software\Borland\InterBase\CurrentVersion',False) then
> ShowMessage('InterBase server is not installed on your system.')
> else
> lEXEName :=
> Format('%s%s',[lRegistry.ReadString('ServerDirectory'),'instsvc.exe stop']);
>
> if WinExec(StrPCopy(lArray,lEXEName), 2) > 31 then
> result := true;
> end
> else if lVersion = VER_PLATFORM_WIN32_WINDOWS then
> begin
> lHWND:= FindWindow('IB_Server', 'InterBase Server');
> if PostMessage(lHWND, WM_CLOSE, 0, 0)<> Null then
> result := true;
> Application.ProcessMessages;
> end;
> finally
> lRegistry.Free;
> Screen.Cursor := crDefault;
> end;
> end;
>
> Luiz.
>
> ----- Original Message -----
> From: <gerbreown@...>
> To: <IBObjects@egroups.com>
> Sent: Tuesday, November 28, 2000 10:18 AM
> Subject: [IBO] Re: Check if IB server is running
>
> > Thanks, I'll give that a try. Do you know how I can then shut down
> > the server when my application quits?
> >
> >
> >
> > --- In IBObjects@egroups.com, "Luiz Alves" <cprmlao@i...> wrote:
> > > You could try what ib_console does:
> > >
> > > Here is :
> > >
> > > function IsIBRunning(): boolean;
> > > begin
> > > if GetWindow(GetDesktopWindow,GW_HWNDNEXT)=
> > FindWindow('IB_Server',
> > > 'InterBase Server') then
> > > result := false
> > > else
> > > result := true;
> > > end;
> > >
> > >
> > > function StartGuardian(): boolean;
> > > var
> > > lRegistry: TRegistry;
> > > lEXEName: string;
> > > lArray: array[0..255] of char;
> > > begin
> > > result := false;
> > > lRegistry := TRegistry.Create;
> > > try
> > > Screen.Cursor := crHourglass;
> > > lRegistry.RootKey := HKEY_LOCAL_MACHINE;
> > > if not
> > > lRegistry.OpenKey('Software\Borland\InterBase\CurrentVersion',False)
> > then
> > > ShowMessage('InterBase server is not installed on your
> > computer.')
> > > else
> > > lEXEName := Format('%s%s
> > > ',[lRegistry.ReadString('ServerDirectory'),'ibguard.exe']);
> > > finally
> > > if WinExec(StrPCopy(lArray,lEXEName),1) > 31 then
> > > result := true;
> > > lRegistry.Free;
> > > Screen.Cursor := crDefault;
> > > end;
> > > end;
> > >
> > > Luiz.
> > > ----- Original Message -----
> > > From: <gerbreown@m...>
> > > To: <IBObjects@egroups.com>
> > > Sent: Monday, November 27, 2000 5:57 PM
> > > Subject: [IBO] Check if IB server is running
> > >
> > >
> > > > Jason,
> > > >
> > > > Is there an IBO component that I can use from within my Delphi
> > > > application to see if the local IB server is currently running?
> > If it
> > > > is not running then I want to start it before my application tries
> > to
> > > > access any databases. I then want shut it down, if I started it,
> > just
> > > > before my applicition quits. If it was running when my
> > application
> > > > started then I would leave it run at appliction quit time.
> > > >
> > > > Thanks,
> > > >
> > > > Gerald S. Brown
> > > >
> > > >
> > > >
> > > >
> > > >
> >
> >
> >
> >
> >
>