Windows 8.1 Pro mit Firbird 2.5.3

[Walter Landwehr]

Warum geht es denn auf einigen Windows 8 Rechnern und bei einigen nicht und warum haben die anderen Betriebssysteme keine Probleme. Ich habe fast den Verdacht das es mit irgendwelchen Rechten zu tun hat. im Anhang mal die Login.pas Die lässt sich auch in Delphi öffnen.

Ich benutze IBO 5.5.5 2152 und die sollten mit Delphi XE2 passen. Vor allen weiß ich nicht wo man suchen soll. Beim Debuggen fliege ich immer beim connecten oder disconnecten raus. Aber wie gesagt nicht immer.

[mquadrat]

Also das hört sich für mich eher nach einem Problem mit dem Freigeben der Objekte an. Ein ungültiger Zeiger hat auf jeden Fall mal nichts mit der Firewall oder dem Netz an sich zu tun. Das Speicherhandling wird sich zwischen 7 und 8 wohl so verändert haben, dass der Fehler bei Win 7 schlicht nicht zu Tage tritt (aber wahrscheinlich genau so besteht)

[Walter Landwehr]

Dann Frage ich mich warum es auf einen Win 8 Rechner geht und auf einen anderen nicht. Alle Verzeichnisse die relevant sind, sind freigegeben für schreiben und lesen.

[hoika]

Hallo,
ich hätte gern mal die DPR-Datei gesehen.
Binde mal MadExcept ein und zeige uns das Log.

Heiko

[Walter Landwehr]

OK, hier die dpr Datei.

Delphi-Quellcode:

program NatuPrax;

uses
  madExcept,
  madLinkDisAsm,
  madListHardware,
  madListProcesses,
  madListModules,
  Vcl.Forms,
  Main in 'Main.pas' {frmMain},
  ProjectConstants in 'Utils\ProjectConstants.pas',
  Constants in 'Utils\Constants.pas',
  ToolsOperation in 'Utils\ToolsOperation.pas',
  ToolsForm in 'Utils\ToolsForm.pas',
  ToolsComponent in 'Utils\ToolsComponent.pas',
  ToolsSystem in 'Utils\ToolsSystem.pas',
  Login in 'Login.pas' {LoginFrm},
  modul in 'modul.pas' {dmMain: TDataModule},
  ToolsMyForm in 'Utils\ToolsMyForm.pas',
  ListenDruck in 'Utils\ListenDruck.pas' {frmListenDruck},
  LokaleEinstellungenForm in 'NatuPrax\LokaleEinstellungenForm.pas' {LokaleEinstellungenFrm},
  IQEditor in 'Utils\IQEditor.pas' {IQEditorFrm},
  OptionenForm in 'NatuPrax\OptionenForm.pas' {frmOptionen},
  Vcl.Themes,
  Vcl.Styles,
  ToolsDatabase in 'Utils\ToolsDatabase.pas',
  MandantenForm in 'NatuPrax\MandantenForm.pas' {MandantenFrm},
  DBConfig in 'NatuPrax\DBConfig.pas' {frmDBConfig},
  RegistrierungForm in 'NatuPrax\RegistrierungForm.pas' {RegistrierungFrm},
  PraxisDatenForm in 'Grundlagen\PraxisDatenForm.pas' {PraxisdatenFrm},
  UmsatzSteuerForm in 'Grundlagen\UmsatzSteuerForm.pas' {UmsatzSteuerFrm},
  KontoSuchenForm in 'SuchFormulare\KontoSuchenForm.pas' {KontoSuchenFrm},
  DesignerForm in 'Dienstprogramme\DesignerForm.pas' {DesignerFrm},
  daIBO in 'Dienstprogramme\daIBO.pas',
  LookupsForm in 'Grundlagen\LookupsForm.pas' {LookupsFrm},
  PLZSuchenForm in 'SuchFormulare\PLZSuchenForm.pas' {PLZSuchenFrm},
  TextbausteineForm in 'Grundlagen\TextbausteineForm.pas' {TextbausteineFrm},
  FerientermineForm in 'Grundlagen\FerientermineForm.pas' {FerientermineFrm},
  Historie in 'Hilfe\Historie.pas' {Historiefrm},
  AboutForm in 'Hilfe\AboutForm.pas' {AboutBox},
  HotlineForm in 'Hilfe\HotlineForm.pas' {HotlineFrm},
  RechnungsSerienDruck in 'Dienstprogramme\RechnungsSerienDruck.pas' {RechnungsSerienDruckFrm},
  p_PADHeilpraktiker in 'Dienstprogramme\p_PADHeilpraktiker.pas',
  p_PADInterface in 'Dienstprogramme\p_PADInterface.pas',
  Stapeldruck in 'Dienstprogramme\Stapeldruck.pas' {frmStapeldruck},
  Geloeschte_Rechnungen in 'Dienstprogramme\Geloeschte_Rechnungen.pas' {frm_Geloeschte_Rechnungen},
  OriginalListenForm in 'Dienstprogramme\OriginalListenForm.pas' {OriginalListenFrm},
  asDBUtils in 'Terminkalender\asDBUtils.pas',
  asUtils in 'Terminkalender\asUtils.pas',
  MitarbeiterForm in 'Stammdaten\MitarbeiterForm.pas' {MitarbeiterverwaltungFrm},
  MitarbeiterSuchenForm in 'SuchFormulare\MitarbeiterSuchenForm.pas' {MitarbeiterSuchenFrm},
  InfoDatenForm in 'Utils\InfoDatenForm.pas' {InfoDatenFrm},
  ToolsReportBuilder in 'Utils\ToolsReportBuilder.pas',
  AdressenForm in 'Stammdaten\AdressenForm.pas' {AdressverwaltungFrm},
  LieferantenSuchenForm in 'SuchFormulare\LieferantenSuchenForm.pas' {LieferantenSuchenFrm},
  LieferantenverwaltungForm in 'Stammdaten\LieferantenverwaltungForm.pas' {LieferantenverwaltungFrm},
  AdressenSuchenForm in 'SuchFormulare\AdressenSuchenForm.pas' {AdressenSuchenFrm},
  ArtikelverwaltungForm in 'Stammdaten\ArtikelverwaltungForm.pas' {ArtikelverwaltungFrm},
  ArtikelSuchenForm in 'SuchFormulare\ArtikelSuchenForm.pas',
  DiagnoseForm in 'Stammdaten\DiagnoseForm.pas' {DiagnoseFrm},
  DiagnosenSuchenForm in 'SuchFormulare\DiagnosenSuchenForm.pas' {DiagnosenSuchenFrm},
  GebuehrenForm in 'Stammdaten\GebuehrenForm.pas' {GebuehrenFrm},
  GebuehrenSuchenForm in 'SuchFormulare\GebuehrenSuchenForm.pas' {GebuehrenSuchenFrm},
  KettenForm in 'Stammdaten\KettenForm.pas' {KettenFrm},
  MedikamenteSuchenForm in 'SuchFormulare\MedikamenteSuchenForm.pas' {MedikamenteSuchenFrm},
  MedikamentForm in 'Stammdaten\MedikamentForm.pas' {MedikamentFrm},
  MedikamentenUpdate in 'Utils\MedikamentenUpdate.pas' {MedikamentenUpdaterFrm},
  RezepturenSuchenForm in 'SuchFormulare\RezepturenSuchenForm.pas' {RezepturenSuchenFrm},
  RezepturenForm in 'Stammdaten\RezepturenForm.pas' {RezepturenFrm},
  KraeuterSuchenForm in 'SuchFormulare\KraeuterSuchenForm.pas' {KraeuterSuchenFrm},
  KraeuterverwaltungForm in 'Stammdaten\KraeuterverwaltungForm.pas' {KraeuterverwaltungFrm},
  KraeuterKalkSuchenForm in 'SuchFormulare\KraeuterKalkSuchenForm.pas' {KraeuterKalkSuchenFrm},
  KraeuterKalkulationForm in 'Stammdaten\KraeuterKalkulationForm.pas' {KraeuterKalkulationFrm},
  KassenbuchForm in 'Buchhaltung\KassenbuchForm.pas' {KassenbuchFrm},
  KassenbuchSuchenForm in 'SuchFormulare\KassenbuchSuchenForm.pas' {KassenbuchSuchenFrm},
  ReferenzdatenLoeschenForm in 'Buchhaltung\ReferenzdatenLoeschenForm.pas' {ReferenzdatenLoeschenFrm},
  FinanzBuchhaltungForm in 'Buchhaltung\FinanzBuchhaltungForm.pas' {FinanzBuchhaltungFrm},
  FibuSuchenForm in 'SuchFormulare\FibuSuchenForm.pas' {FibuSuchenFrm},
  BuchungstexteForm in 'Buchhaltung\BuchungstexteForm.pas' {BuchungstexteFrm},
  KontenForm in 'Buchhaltung\KontenForm.pas' {KontenFrm},
  FarbenFuerStatistikForm in 'Buchhaltung\FarbenFuerStatistikForm.pas' {FarbenFuerStatistikFrm},
  OffenePostenForm in 'Buchhaltung\OffenePostenForm.pas' {OffenePostenFrm},
  JahresStatistikForm in 'Buchhaltung\JahresStatistikForm.pas' {JahresStatistikFrm},
  MahnungForm in 'Buchhaltung\MahnungForm.pas' {MahnungFrm},
  Tagesuebersicht in 'Buchhaltung\Tagesuebersicht.pas' {TagesuebersichtFrm},
  Rechnungsuebersicht in 'Buchhaltung\Rechnungsuebersicht.pas' {Rechnungsuebersichtfrm},
  ZahlungslisteForm in 'Buchhaltung\ZahlungslisteForm.pas' {ZahlungsListeFrm},
  Umsatz in 'Buchhaltung\Umsatz.pas' {Umsatzfrm},
  PatientForm in 'Stammdaten\PatientForm.pas' {PatientFrm},
  DiagnosenBlattFrame in 'Stammdaten\DiagnosenBlattFrame.pas' {DiagnosenBlattFrme: TFrame},
  praxisCENTER3_TLB in 'Utils\praxisCENTER3_TLB.pas',
  EventSink in 'Utils\EventSink.pas',
  PatientSuchenForm in 'SuchFormulare\PatientSuchenForm.pas' {PatientSuchenFrm},
  BiorhythmusForm in 'Stammdaten\BiorhythmusForm.pas' {BiorhythmusFrm},
  BiorithmAlgorithm in 'Stammdaten\BiorithmAlgorithm.pas',
  OpenOffice in 'Utils\OpenOffice.pas',
  SerienBriefExternForm in 'Dienstprogramme\SerienBriefExternForm.pas' {SerienBriefFrm},
  PatientenPreiseForm in 'Stammdaten\PatientenPreiseForm.pas' {PatientenPreiseFrm},
  BMIForm in 'Stammdaten\BMIForm.pas' {BMIFrm},
  ArbeitsunfaehigkeitForm in 'Stammdaten\ArbeitsunfaehigkeitForm.pas' {ArbeitsunfaehigkeitFrm},
  PflegeleistungenForm in 'Stammdaten\PflegeleistungenForm.pas' {PflegeleistungenFrm},
  SetGeneratorForm in 'Utils\SetGeneratorForm.pas' {SetGeneratorFrm},
  EinweisungForm in 'Stammdaten\EinweisungForm.pas' {EinweisungFrm},
  BestaetigungForm in 'Stammdaten\BestaetigungForm.pas' {BestaetigungFrm},
  BankverbindungForm in 'Stammdaten\BankverbindungForm.pas' {BankVerbindungFrm},
  RechnungsEmpfaengerForm in 'Stammdaten\RechnungsEmpfaengerForm.pas' {RechnungsEmpfaengerFrm},
  PatientenKettenForm in 'Stammdaten\PatientenKettenForm.pas' {PatientenKettenFrm},
  TermineForm in 'Terminkalender\TermineForm.pas' {TermineFrm},
  QuittungForm in 'Stammdaten\QuittungForm.pas' {QuittungFrm},
  DelphiTwain in 'Utils\DelphiTwain.pas',
  DelphiTwain_VCL in 'Utils\DelphiTwain_VCL.pas',
  VorschauForm in 'Stammdaten\VorschauForm.pas' {VorschauFrm},
  VorschauGrossForm in 'Stammdaten\VorschauGrossForm.pas' {VorschauGrossFrm},
  DokumenteForm in 'Stammdaten\DokumenteForm.pas' {DokumenteFrm},
  SicherungsForm in 'Dienstprogramme\SicherungsForm.pas' {SicherungsFrm},
  KalenderRessourcen in 'Terminkalender\KalenderRessourcen.pas',
  OptionsStorage in 'Terminkalender\OptionsStorage.pas',
  TermineSuchenForm in 'SuchFormulare\TermineSuchenForm.pas' {TermineSuchenFrm},
  ManageResourcesForm in 'Terminkalender\ManageResourcesForm.pas' {fmManageResources},
  EditDisabledRangeForm in 'Terminkalender\EditDisabledRangeForm.pas' {fmEditDisabledRange},
  ArbeitszeitEinstellenForm in 'Terminkalender\ArbeitszeitEinstellenForm.pas' {ArbeitszeitEinstellenFrm},
  PatientEventForm in 'Terminkalender\PatientEventForm.pas',
  TagesKalenderForm in 'Terminkalender\TagesKalenderForm.pas',
  TerminplanerEinstellungenForm in 'Terminkalender\TerminplanerEinstellungenForm.pas',
  TierhalterForm in 'Tiere\TierhalterForm.pas' {TierhalterFrm},
  cxSchedulerEventEditor in 'C:\Program Files (x86)\DevExpress VCL\ExpressScheduler\Sources\cxSchedulerEventEditor.pas' {cxSchedulerEventEditorForm},
  TerminartenForm in 'Terminkalender\TerminartenForm.pas',
  LoescheTermineForm in 'Terminkalender\LoescheTermineForm.pas' {LoescheTermineFrm},
  CalendarStrs in 'Terminkalender\CalendarStrs.pas',
  cxSchedulerOutlookExchange in 'Terminkalender\cxSchedulerOutlookExchange.pas',
  FeiertagEditDialog in 'Terminkalender\FeiertagEditDialog.pas' {FeiertagEditDlg},
  PatientenKarteiForm in 'Stammdaten\PatientenKarteiForm.pas' {PatientenKarteiFrm},
  PatientenBlattForm in 'Stammdaten\PatientenBlattForm.pas' {PatientenblattFrm},
  KettenSuchenForm in 'SuchFormulare\KettenSuchenForm.pas' {KettenSuchenFrm},
  PatientenKettenSuchenForm in 'SuchFormulare\PatientenKettenSuchenForm.pas' {PatientenKettenSuchenFrm},
  VergebeneRGPositionenSuchenForm in 'SuchFormulare\VergebeneRGPositionenSuchenForm.pas' {VergebeneRgPositionenSuchenFrm},
  VorherigeLeistungenSuchenForm in 'SuchFormulare\VorherigeLeistungenSuchenForm.pas' {VorherigeLeistungenSuchenFrm},
  MonatskalenderForm in 'Stammdaten\MonatskalenderForm.pas' {MonatskalenderFrm},
  PositionenForm in 'Stammdaten\PositionenForm.pas' {PositionenFrm},
  PlainTextForm in 'Utils\PlainTextForm.pas' {PlainTextFrm},
  RechnungForm in 'Stammdaten\RechnungForm.pas' {RechnungFrm},
  VergebeneLeistungenSuchenForm in 'SuchFormulare\VergebeneLeistungenSuchenForm.pas' {VergebeneLeistungenSuchenFrm},
  BenutzerForm in 'Dienstprogramme\BenutzerForm.pas' {BenutzerverwaltungFrm},
  BehandlungsTagForm in 'Dienstprogramme\BehandlungsTagForm.pas' {BehandlungstagFrm},
  PasswortForm in 'Utils\PasswortForm.pas' {PassWortFrm},
  QueryBuilderForm in 'QueryBuilder\QueryBuilderForm.pas' {QueryBuilderFrm},
  QBResource in 'QueryBuilder\QBResource.pas',
  JclFileUtils in 'Utils\JclFileUtils.pas',
  NotizbuchForm in 'Dienstprogramme\NotizbuchForm.pas' {NotizbuchFrm},
  ImExportForm in 'Dienstprogramme\ImExportForm.pas' {ImExportFrm},
  UpdaterForm in 'Utils\UpdaterForm.pas' {UpdaterFrm},
  DatabaseUpdateForm in 'Utils\DatabaseUpdateForm.pas' {DatabaseUpdateFrm},
  SepaForm in 'Buchhaltung\SepaForm.pas' {Sepafrm},
  SepaToolsDLL_Declaration in 'Buchhaltung\SepaToolsDLL_Declaration.pas',
  Auswertung in 'Buchhaltung\Auswertung.pas' {Auswertungfrm},
  Serienbrief in 'Dienstprogramme\Serienbrief.pas' {frmSerienbrief},
  Serienmail in 'Dienstprogramme\Serienmail.pas' {frmSerienmail},
  see32 in 'APPS\see32.pas',
  keycode in 'APPS\keycode.pas',
  display in 'APPS\display.pas',
  KalenderForm in 'Terminkalender\KalenderForm.pas' {KalenderFrm},
  FibuExport in 'Buchhaltung\FibuExport.pas' {FibuExportFrm},
  Uebernahme in 'Dienstprogramme\Uebernahme.pas' {frmUebernahme};

{$R *.res}
   var Handle : THandle;
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TdmMain, dmMain);
  Application.Run;
end.

und im Anhang die log Datei.

[mm1256]

Ich bin jetzt sicher kein Delphi-Guru, aber die Anzeige der Login-Form erscheint mir etwas "verbesserungswürdig". So mach ich das generell in meinen Formularen, dann gibt's auch mit der Formularfreigabe keine Probleme wenn innerhalb ShowModal Exception(s) auftreten, oder die Anzeige (aus Versehen???) mehrfach aufgerufen wird.

Delphi-Quellcode:

function LoginFrmExecute: Boolean;
begin
  with TLoginFrm.Create(Application) do
  try
    Result := ShowModal = mrOK;
  finally
    Release;
  end;
end;

[Walter Landwehr]

Habe die function mal geändert, bringt aber leider auch keine Verbesserung.

[dataspider]

Ich würde erst mal sicherstellen, dass immer die korrekte Firebird - DLL geladen wird.

Du hast ja IBO.

In die DPR:

Delphi-Quellcode:

begin
  IB_Session.IB_GetClientLibNameFunc := GetFBClientLibName;  // 
  Application.Initialize;

  if not Connection.Login then
  begin
    Application.ProcessMessages; // ohne = Exception
    Application.Terminate;
  end;

  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.

und noch die Funktion:

Delphi-Quellcode:

function GetFBClientLibName(aINIFIle: string = ''): string;
begin
  Result := ExtractFilePath(Application.ExeName) + SFBClientFileName;
end;

Dann kannst du die DLL ins Verzeichnis der EXE packen und es passt immer.

Zum Fehler beim Beenden.

Es ist immer eine gute Idee, Zugriffe auf die Connection beim Beenden (DisConnect) möglichst nicht in OnDestroy oder so zu packen.
Allenfalls BeforeDestruction überschreiben und dort rein (und inherited nach deinem Code). Für micht sieht es so aus, als ob bei deinem DisConnect die Connection schon am Zerbröseln ist.

Frank

[Walter Landwehr]

Hallo Frank,

was heißt Connection.Login ? Meines erachtens fehlt hier was.

[dataspider]

Das ist die Nebenwirkung von Copy + Paste.

Das ist unwichtig bzw. meine Klasse für DB - Verbindung.
Es geht nur um die Zeile:

IB_Session.IB_GetClientLibNameFunc := GetFBClientLibName;

Ich würde die Verwendung der Firebird CLient DLL nicht dem Zufall überlassen.

Frank