OTA - komplexer Experte

[Uwe Raabe]

Zitat von stahli:

Allerdings stürzt Delphi beim deinstallieren oder neuerlichen installieren des Packages manchmal stumpf ab.

...

Die DLL-Variante ist weiterhin stabil (jedenfalls habe ich keine Probleme festgestellt).

Die DLL kann man ja auch nicht deinstallieren.

[stahli]

Das stimmt.

Aber um das Package weiter zu entwickeln und zu debuggen muss man es ja deinstallieren bzw. neu installieren.
Sollte das nicht grundsätzlich machbar sein?

[Uwe Raabe]

Zitat von stahli:

Aber um das Package weiter zu entwickeln und zu debuggen muss man es ja deinstallieren bzw. neu installieren.
Sollte das nicht grundsätzlich machbar sein?

Im Prinzip schon. Allerdings hatte ich auch schon Probleme, ein Package reibungslos zu entladen und danach wieder zu laden. Das muss nicht mal an dem Package selbst liegen. Am Ende belässt man es dann einfach dabei, da der Anwender es ja in der Regel auch nicht so häufig entlädt und wieder lädt.

[stahli]

Ok vielen Dank.

Dann werde ich erst mal versuchen, so weiter zu arbeiten.
Wird halt den einen oder anderen zusätzlichen Neustart notwendig machen.

[stahli]

Es hat einige Tage gedauert, aber ich habe doch noch eine Lösung gefunden.

Ist nicht mal so kompliziert, hat aber einige Versuche gebraucht...
Es funktioniert jetzt zumindest korrekt in allen Varianten.

Delphi-Quellcode:

procedure Register;
var
  OTAWizard: IOTAWizard;
begin
  OTAWizard := TOTAToolWizard.Create;
  RegisterPackageWizard(OTAWizard);

  OTAWizard := TQuickSearchExpert.Create;
  RegisterPackageWizard(OTAWizard);
  TQuickSearchForm.CreateDockForm;

  OTAWizard := TFullSearchExpert.Create;
  RegisterPackageWizard(OTAWizard);
  TFullSearchForm.CreateDockForm;

  uoMenues.Initialize;
  (BorlandIDEServices as IOTAKeyboardServices).AddKeyboardBinding(uoBindings);
  (BorlandIDEServices as IOTAKeyboardServices).AddKeyboardBinding(TDupLineBinding.Create);
end;

function InitWizard(const BorlandIDEServices: IBorlandIDEServices; RegisterProc: TWizardRegisterProc;
  var Terminate: TWizardTerminateProc): Boolean stdcall;
var
  OTAWizard: IOTAWizard;
begin
  OTAWizard := TOTAToolWizard.Create;
  RegisterProc(OTAWizard);

  OTAWizard := TQuickSearchExpert.Create;
  RegisterProc(OTAWizard);
  TQuickSearchForm.CreateDockForm;

  OTAWizard := TFullSearchExpert.Create;
  RegisterProc(OTAWizard);
  TFullSearchForm.CreateDockForm;

  uoMenues.Initialize;
  (BorlandIDEServices as IOTAKeyboardServices).AddKeyboardBinding(uoBindings);
  (BorlandIDEServices as IOTAKeyboardServices).AddKeyboardBinding(TDupLineBinding.Create);

  Result := True;
end;

...

initialization

finalization

  TQuickSearchForm.RemoveDockForm;
  TFullSearchForm.RemoveDockForm;

end.