Exception EAccessViolation Form Free

[shidap]

** Exception EAccessViolation **

[dp][df]


Hi,

Bekomme o.a. Fehlermeldung (Delphi 6) weiß aber nicht warum.


procedure Tfrmsaselogin.FormCreate(Sender: TObject);
...
...
StartMainRptScreen(Application, SaseAdoConn, strUserId, strAccessLevel);

:?:
Fehlermeldung hier:

If Assigned(frmsaselogin) then
frmsaselogin.Free;


Ich bin für jeden Vorschlag sehr Dankbar.

[jim_raynor]

In frmsaselogin steht ein ungültiger Wert drin. Ist dieser auch richtig initsialisiert mit nil?

Auf jeden Fall wäre bissle mehr Quellcode nicht schlecht. Für micht sieht es sehr durcheinander aus, da man nicht erkannt, was zu was gehört.

[Chegga]

Hi,

Zitat:

Zitat von jim_raynor

Auf jeden Fall wäre bissle mehr Quellcode nicht schlecht.

Und benutze bitte die Delphi-Tags.

Also nicht so:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('So nicht!!');
end;

sondern:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('So ist es schöner und vor allem lesbarer!');
end;

MfG Marc

Tip: Benutze den Delphi-Code Button

[shidap]

If the user does not have the report INI, it will prompted with a login, otherwise it will run the report automatically and (should) end the application upon completion.

Delphi-Quellcode:

procedure Tfrmsaselogin.FormCreate(Sender: TObject);
var Connstr : String;
strFTPReportDIR : String;
strUserId : ShortString;
begin
     Scaleform(self);
     DateSeparator := '-';
     ShortDateFormat := 'yyyy' + DateSeparator + 'mm' + DateSeparator + 'dd';
     ThousandSeparator := '.';
     DecimalSeparator := ',';

     try
         SaseAdoConn.Open
     except on E:Exception do
        begin
             Screen.Cursor := crDefault;
             SaseAdoConn := Nil;
             ShowMessage(E.Message);
        end;
     end;

     MyIniFile := TIniFile.Create('./SASE_Report.ini');
     logintry:=0;
     logon_q.DatabaseName:= SASEDB.DatabaseName;

     //Check if the .ini file exists or not
     If FileExists('./SASE_Report.ini') then
     begin
          strFTPReportDIR := MyInifile.ReadString('FTPReportDirectory', 'FTPReportDIR', '');
          If Trim(strFTPReportDIR) <>  '' then
          begin
              MyInifile.Free;
              strUserId := 'Automatik';
              strUserId:=LowerCase(strUserId);
              strAccessLevel := '0';
              // Go straight to the Report Generator
              StartGenerateReports(Application,SaseAdoConn,-1, Now, Now, '');

              // when the user exits the Form "StartGenerateReports" the Application should end.
              If Assigned(frmsaselogin) then
                 frmsaselogin.Free;

              // I tried closed and Exit but the application remainded in the background

          end;
     end;

     // If there is no INI show the User the Login screen and let them enter their password

     USID_EB.Text := GetSystemUserName;
end;

[shmia]

Zitat:

Zitat von shidap

Delphi-Quellcode:

procedure Tfrmsaselogin.FormCreate(Sender: TObject);
StartMainRptScreen(Application, SaseAdoConn, strUserId, strAccessLevel);

   If Assigned(frmsaselogin) then
      frmsaselogin.Free;

Du darfst in FormCreate nicht das eigene Formular freigeben!!
(wenn es doch nötig ist, kann man die Methode Release verwenden)
Du darfst ausserdem nicht in einer Methode auf eine Objektvariable der eigenen Klasse zugreifen.
Du kannst aber ein Klassenfunktion schreiben, um ein Formular modal anzuzeigen:

Delphi-Quellcode:

Tfrmsaselogin = class(TForm)

public
   class function ShowLoginDialog:integer;
end;

class function Tfrmsaselogin.ShowLoginDialog:integer;
var
   f : Tfrmsaselogin;
begin
   f := Tfrmsaselogin.Create(nil);
   try
      result := f.ShowModal;
      
      StartMainRptScreen(Application, SaseAdoConn, strUserId, strAccessLevel);

   finally
      f.Free;
   end;
end;

Zum Beenden einer Anwendung benutzt man:

Delphi-Quellcode:

   Application.Terminate;

[shidap]

Danke!

Shidap :-D