AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Zugriffsverletzung beim anzeigen eines Forms

Ein Thema von Akut-Programming · begonnen am 21. Sep 2004 · letzter Beitrag vom 21. Sep 2004
 
Akut-Programming

Registriert seit: 18. Aug 2003
648 Beiträge
 
#1

Zugriffsverletzung beim anzeigen eines Forms

  Alt 21. Sep 2004, 15:47
Huhu

Wenn meine Anwendung startet, wird das Hauptform zuerst nicht angezeigt, sondern es erscheint ein Logindialog für die Anwendung. Wenn das Loginfenster erstellt wird, wird folgender Code aufgerufen:
Delphi-Quellcode:
procedure TfrmLogin.FormCreate(Sender: TObject);
var
   ini: TIniFile;
begin
     if FileExists(OwnFilesPath+'\AMS\database.ini')
     then begin
          ini:=TIniFile.Create(OwnFilesPath+'\AMS\database.ini');
          try
             with frmMain do begin
                  varUserID:=ini.ReadString('DBSettings', 'UserID', '');
                  varDSN:=ini.ReadString('DBSettings', 'DSN', '');
                  varDB:=ini.ReadString('DBSettings', 'DB', '');
                  varServer:=ini.ReadString('DBSettings', 'Server', '');
                  varPassword:=ini.ReadString('DBSettings', 'Password', '');
                  varPort:=ini.ReadString('DBSettings', 'Port', '');
                  MySQLCS:='Provider=MSDASQL.1;Persist Security Info=False;User ID='+varUserID+';Data Source='+varDSN+';Extended Properties="DSN='+varDSN+';DESC=MySQL ODBC 3.51 Driver DSN;DATABASE='+varDB+';SERVER='+varServer+';UID='+varUserID+';PASSWORD='+varPassword+';PORT='+varPort+';SOCKET=;OPTION=3;STMT=;"';
                  ADOConnection1.ConnectionString:=MySQLCS;
                  ADOConnection1.Connected:=true;
             end;
          finally
                 ini.Free;
          end;
     end;
     frmLogin.ShowModal;
     CloseAction:=caNone;
end;
Anschließend will ich das Fenster zum angeben der MySQL-DB Settings für meine Anwendung anzeigen lassen. Dazu habe ich ein Label aufs Loginform gepackt, wo beim drauf klicken dieser Code ausgeführt wird:
Delphi-Quellcode:
procedure TfrmLogin.Label3Click(Sender: TObject);
begin
     frmMySQLSettings.Show;
end;
Klicke ich da drauf, kommt es im Code des OnClick des Labels zu einer Zugriffsverletzung. Kann mir jemand weiterhelfen?? - Ich weiß nich mehr weiter.

Gruß,
Sascha
Akut-Programming
be cool, be hot ... just be
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:18 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz