Eklatante Probleme mit Debuggen

[MyRealName]

Beim Service gibt es doch diesen DDService, der noch mehr Methoden als TService implementiert, den kann man auch debuggen...

[himitsu]

Ist jetzt schon über 10 Jahre her, aber im Grunde ging es darauf hinaus, jenes SvcMgr.Application.Run nachzubauen, damit es eben nicht mehr abbricht, wenn nicht als Dienst gestartet.
Falls ich nichts vergessen oder zu viel rausgelöscht habe.

ServiceExecute läuft eigentlich in einem Thread und könnte man dort noch ein CreateAnonymusThread drumrummachen, aber hatte ich mir zum einfacheren Debuggen damals erspart.

Delphi-Quellcode:

procedure TMyService.ServiceCreate(Sender: TObject);  // TService.OnCreate
var
  Started:     Boolean;
  DebugWindow: TForm;
begin
  FIsDebugging := IsDebuggerPresent or FindCmdLineSwitch('DEBUG', ['-', '/'], True);

  // Das war der Teil, damit es sich mit der Console verbindet und man dann einfach z.B. via WriteLn('log message'); was ausgeben kann.
  // Oder z.B. noch ein Memo ins DebugWindow.
  // Gebe in die Console, sowie ins Windows-EreignisLog, eh nur wichtigsten Stati aus, damit der Admin vor Ort einen Überblick bekommt (der Rest in normale Logdateien)
  if FIsDebugging then
    AttachConsole(ATTACH_PARENT_PROCESS);

  try
    if FIsDebugging then begin
      MyService := Self;  // wird sonst von Application.CreateForm gesetzt, aber durch die Messageloop kommt es dort nicht vorbei

      Forms.Application.MainFormOnTaskBar := False;      // geht leider doch nicht ohne Form
      Forms.Application.CreateForm(TForm, DebugWindow);  // Form zum Beenden und für Eintrag in Taskbar
      DebugWindow.Name         := 'DebugWindow';
      DebugWindow.Caption      := 'Debug-Mode: ' + DM1.DSDisplayName + GenerateViewID(True);
      DebugWindow.OnCloseQuery := DebugServiceClose;
      DebugWindow.Width        := 500;
      DebugWindow.Height       := 125;
      DebugWindow.Visible      := True;
      with TButton.Create(DebugWindow) do begin
        Name    := 'DebugWindowsClose';
        Parent  := DebugWindow;
        Caption := 'Close';
        Width   := 100;
        OnClick := DebugServiceClose2;
      end;

      { SvcMgr.Application.Run;  // bricht ab, wenn nicht als Service gestartet, darum dessen Code hier nachgebaut }
      if FindCmdLineSwitch('INSTALL', ['-', '/'], True) then begin
        TServiceApplicationAccess(SvcMgr.Application).RegisterServices(True, FindCmdLineSwitch('SILENT', ['-', '/'], True));
      end else if FindCmdLineSwitch('UNINSTALL', ['-', '/'], True) then begin
        TServiceApplicationAccess(SvcMgr.Application).RegisterServices(False, FindCmdLineSwitch('SILENT', ['-', '/'], True));
      end else begin
        Started := True;
        ServiceStart(Self, Started);
        if Started then begin
          ServiceExecute(nil);  // der Service-Thread existiert/läuft nicht, wenn die EXE nicht aus der Service-Verwaltung gestartet wurde, daher manueller Aufruf, um die BackgroundThreads zu starten
          while not Terminated and not Forms.Application.Terminated do
            try
              Forms.Application.ProcessMessages;
              Sleep(10);
            except
              {error logging ...}
            end;
          Forms.Application.Terminate;
          for i := 1 to 30 do begin   // Bissl warten, damit sich die BackgroundThreads sich noch rechtzeitig beenden können.
            (DebugWindow.FindComponent('DebugWindowsClose') as TButton).Caption := Format('Terminate (%ds)', [31 - i]);
            Forms.Application.ProcessMessages;
            Sleep(1*MSecsPerSec);
          end;
          try DebugWindow.Free; except end;
        end else begin
          Forms.Application.Terminate;
        end;
      end;
    end;
  except
    on E: Exception do begin
      if ExitCode = 0 then
        ExitCode := 38;  // Fehlercode für IF ERRORLEVEL im aufrufenden Batch
      raise;
    end;
  end;
end;

procedure TMyService.DebugServiceClose(Sender: TObject; var CanClose: Boolean);
begin
  if not Forms.Application.Terminated then
    DebugServiceClose2((Sender as TForm).FindComponent('DebugWindowsClose'));
end;

procedure TMyService.DebugServiceClose2(Sender: TObject);
begin
  if not ContainsText(TButton(Sender).Caption, 'Terminate') then begin
    //if Assigned(MyService) then
    //  MyService.Terminate;  // hier gibt es zwar ein Terminated, aber kein Terminate -> Status wird aus ServiceThread.Terminated geholt
    if Assigned(MyService) and Assigned(MyService.ServiceThread) then
      MyService.ServiceThread.Terminate;  // eigentlich aktuell nicht nötig, da im Debugmodus der Service-Thread nicht existiert/läuft -> siehe ServiceExecute(nil);
    Forms.Application.Terminate;
    TButton(Sender).Caption := 'Terminate (30s)';
  end else begin
    // Wenn der Apps nicht auf Terminate hören will, dann eben die harte Tour. (beim zweiten Klicken auf Close)
    TerminateProcess(GetCurrentProcess, 1);  // Halt() versucht noch die Units zu entladen, wobei es hängen bleiben kann.
    Halt(1);
  end;
end;

Kurzfassung:

Delphi-Quellcode:

procedure TMyService.ServiceCreate(Sender: TObject);  // TService.OnCreate
begin
  if IsDebuggerPresent or FindCmdLineSwitch('DEBUG', ['-', '/'], True) then begin
    MyService := Self;  // wird sonst von Application.CreateForm gesetzt, aber durch die MessageLoop kommt es dort nicht vorbei

    { wie SvcMgr.Application.Run; }
    if FindCmdLineSwitch('INSTALL', ['-', '/'], True) then
      TServiceApplicationAccess(SvcMgr.Application).RegisterServices(True, FindCmdLineSwitch('SILENT', ['-', '/'], True))
    else if FindCmdLineSwitch('UNINSTALL', ['-', '/'], True) then begin
      TServiceApplicationAccess(SvcMgr.Application).RegisterServices(False, FindCmdLineSwitch('SILENT', ['-', '/'], True))
    else begin
      Started := True;
      ServiceStart(Self, Started);
      if Started then begin
        ServiceExecute(nil);
        while not Terminated and not Forms.Application.Terminated do  // allerdings wird die Schleife ohne TForm sich eventuell vorzeitig beenden
          try
            Forms.Application.ProcessMessages;
            Sleep(10);
          except
            {error logging ...}
          end;
        Forms.Application.Terminate;
      end else
        Forms.Application.Terminate;
    end;
  end;
end;

[jaenicke]

Ich habe das mit dem Dienst auch mal gemacht, indem ich einfach geschaut habe, ob die Exe von der services.exe gestartet wurde. Wenn nicht, wurde ein Formular angezeigt, mit dem man den Installationsstatus sehen konnte und den Dienst auch z.B. installieren konnte.
Leider verhält sich aber ein Dienst nicht immer genauso, weshalb ich das Warten eingebaut habe, bis der Debugger dran hängt.

Aber das ist hier ja nicht das Thema.

[freimatz]

Habe jetzt mal einen Test gemacht mit dem Attach. Also
* Delphi ist offen
* App ausserhalb gestartet
* In Delphi Run/Attach to Process
* Process aus der Liste ausgewählt (1)
* Attach
* App stoppt im Debugger irgendwo, CPU-Fenster
* F9
* Bediene die App entsprechend.
Allerdings kein Halt am Breakpoint, blaue Punkte sind auch nicht da.

Zu 1: dort ist das substituierte Laufwerk angezeigt sondern die Quelle, ist das ein Problem?

[himitsu]

Im DebuggerLog, da müsste irgendwo ein "Lade Modul" zu finden sein, mit dem Namen deiner EXE .... wie sieht diese Zeile aus?

[freimatz]

Habe das Logging aktiviert und habe nun drei Dateien. Nur in der dbk_16380.log finde ich den App-Namen. Er kommt häufig vor. Erster Eintrag ist (anonymisiert):
[20412: 61620 ] [71] 7648 52D:\Project\40_20244\appfolder\sysWin64\AppName.e xe [CL=00000000]
In keiner Zeile ist der substituierte Laufwerk.

Habe nun im Log gesucht nach der unit wo ich einen Breakpoint gesetzt habe:
[13812: 28099 ] UNVER bkPt 2713d70 (J:\appfolder\_dev\src\_Domain.Bereich\lala.lu.Dom ain.Bereich.Impl.pas 3302) isVer 0 isInv 0 nLoc 0 [CL=00000000]
Dort ist das Laufwerk drin.

[jaenicke]

Hast du externe Debugsymbole aktuell aktiviert? Verwendest du eine Projektgruppe?

Eventuell könnte der Process Monitor helfen, falls der Debugger die Debuginformationen an der falschen Stelle sucht. Bisher konnte ich solche Probleme aber vorher schon lösen, so dass ich mir das bisher nie anschauen musste. Ich weiß also nicht, ob dort falsche Dateizugriffe auftauchen könnten oder ähnliches. Einen Versuch wäre es wert.

[freimatz]

Hallo,
wir waren jetzt zu dritt einige Stunden dran und vieles (wieder einmal) ausprobiert
Was meinst Du mit Debugsymbole. Die dcp oder rsm? Bei 64-Bit werden immer rsm-Dateien erzeugt egal ob die Option "Include remote debug symbols" an oder aus ist. Sie ist aber an.

Process Monitor:
1. die bpl werden geladen von J: (subst)
2. (nur) die rsm von der Hauptexe wird geladen von D:
3. es gibt zig CreateFile "C:\DevTools\Embarcadero\Studio\22.0\bin\<UNKNOWN> .rsm"

Diese "<UNKNOWN>" sieht man auch im Toolwindow Modules

Bei einem Kollegen funktioniert das Attachen so auch und ein Breakpoint von ihm, der auch sonst funktionierte, hat auch damit funktioniert. Und die Stelle die bei mir nie funktioniert bei ihm auch nicht. Und die "<UNKNOWN>" hat er auch, obwohl es bei ihm funktionierte.

[TiGü]

Was heißt denn eigentlich "substituierte Laufwerk"? Hab jetzt nicht den ganzen Faden hier vor Augen, falls schon beantwortet.
Ist das eine RAM-Disk-Laufwerk oder ein zugewiesener Buchstabe für ein Netzlaufwerk (z.B. \\EuerPfadZumNetzlaufwerk\BeliebigerUnterordner)?

[freimatz]

Mit dem subst Befehl
c:\>subst
J:\: => D:\Project\40_20244