Firebird - Server: beenden?

[omata]

Ich starte den Firebird-Server folgendermaßen...

Delphi-Quellcode:

function ExecAndWait(const Filename, Params: string;
                     WindowState: word): TProcessInformation;
var SUInfo: TStartUpInfo;
    CmdLine: string;
    lpExitCode:dword;
begin
  CmdLine:='"'+Filename+'" '+Params;

  FillChar(SUInfo,SizeOf(SUInfo),#0);
  with SuInfo do begin
    cb:=SizeOf(SUInfo);
    dwFlags:=STARTF_USESHOWWINDOW;
    wShowWindow:=WindowState;
  end;

  CreateProcess(
    nil, PChar(CmdLine), nil, nil, FALSE,
    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
    PChar(ExtractFilePath(FileName)), SUInfo, Result
  );
end;

procedure TForm.ButtonClick(Sender: TObject);
begin
  ProcessInformation:=ExecAndWait(
    ExtractFilePath(ParamStr(0)) + 'bin\fbserver.exe',
    '-a -n -p 3000',
    SW_NORMAL
  );
end;

Also konkret: fbserver.exe -a -n -p 3000

Ist es möglich den Server auch wieder zu beenden? Ich meine nicht das Beenden über das TrayIcon!

Hoffe Ihr habe da eine Idee zu...

[omata]

So habe die Lösung selber gefunden...

Delphi-Quellcode:

TerminateProcess(ProcessInformation.hProcess, 0);
TerminateThread(ProcessInformation.hThread, 0);

Hatte mich vertippt, deshalb klappte das vorhin bei mir nicht.

Wer eine bessere Möglichkeit kennt, bitte melden.

[mkinzler]

Läuft der Server als Dienst?

[omata]

Nein...

Code:

-a = run as application

[tsteinmaurer]

Hallo,

warum willst du den Server überhaupt beenden? Kannst du sicherstellen, dass sonst niemand außer dir den Firebird Server in Verwendung hat?


lg,
Thomas
http://www.upscene.com

[omata]

Die Idee kommt von hier.

Es geht darum, eine Firebird-DB für seine Anwendung zu haben, die nicht installiert werden muss, aber trotzdem einen Multi-User-Betrieb ermöglicht. Ich kann also nicht wirklich sicherstellen, dass da kein anderer Benutzer drauf ist. Allerdings soll da auch kein anderer Benutzer als die meiner Anwendung drauf sein. Die Idee ist eben in einer Anwendung mehrfachen Parallelbetrieb (über bzw. für Threads) zu ermöglichen.

Hoffe damit ist die Idee dahinter klarer geworden...