Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   TMySQLConnection (https://www.delphipraxis.net/162590-tmysqlconnection.html)

Jonas Shinaniganz 30. Aug 2011 15:19

Datenbank: MySQL • Version: 5 • Zugriff über: ---

TMySQLConnection
 
Es geht um den Datenbankkomponenten TMySQL50Connection.

TDataConSingel: TMySQL50Connection;

Code:
constructor TDataConSingel.Create(AVPassword: String; AVUserName: String;
  AVPort: Cardinal; AVHostName: String; AVDatabaseName: String);
begin
  KeepConnection := true;
  LoginPrompt := true;
  Password := AVPassword;
  UserName := AVUserName;
  HostName := AVHostName;
  DatabaseName := AVDatabaseName;

//Die oberen 6 Zeilen laufen.

  Port := AVPort;
  Connected := True;
end;

//Und bei diesen 2 Zeilen bekomme Ich dann einen Fehler beim Kompilieren.
Der Fehler der angezeigt wird: Exeption-Klasse:>>External:SIGSEGV<< ausgelöst.

Warum kann ich die anderen Datenfelder bearbeiten aber diese 2 nicht?
Ist Port und Connected besonders? Okay, die Anderen sind 4 Strings aber auch 2 mal Bool. Bitte erbarme sich jemand =)

DeddyH 30. Aug 2011 15:23

AW: TMySQLConnection
 
Hallo und Willkommen in der DP :dp:,

ist TDataConSingel nun eine Variable des Typs oder eine Ableitung von TMySQL50Connection? Ich wundere mich ein wenig über den Konstruktor, daher die Frage.

Jonas Shinaniganz 30. Aug 2011 15:56

AW: TMySQLConnection
 
Das Ganze ist als Ableitung von TMySQL50Connection gedacht.

Allerdings ist die Klasse noch komplexer. (Komposition)

Es soll später als Globale Variable nach dem Singelton Pattern überall verfügbar sein.

Dabei ging es mir unteranderem auch darum die GUI von der Datenbankverbindung zu kapseln.

Gruß!

DeddyH 30. Aug 2011 15:58

AW: TMySQLConnection
 
Müsste dann nicht zumindest ein "inherited" enthalten sein?

Jonas Shinaniganz 31. Aug 2011 10:11

AW: TMySQLConnection
 
Erstmal Vielen Dank für deine Aufmerksamkeit DeddyH.

Durch einen Haltepunkt habe Ich herrausgefunden, dass es kein Datenfeld mit dem Namen Port gibt!! Also kein Wunder das Ich den Speicherzugriffs-Fehler bekomme.

FConnected kann True/False annehmen aber nur True sein wenn alle Angaben gemacht wurden (logisch).

Aber wieso gibt es in meiner Klasse kein Port-Attribut? Versteckt sich das Port im MySQL50Connection unter einem anderen Namen? Gruß

DeddyH 31. Aug 2011 10:16

AW: TMySQLConnection
 
Ich habe Lazarus nur auf meinem Privatrechner installiert und kann daher im Moment nicht nachsehen. Allerdings verwundert es mich ein wenig, dass sich das Projekt überhaupt kompilieren lässt, obwohl Du auf nicht existente Felder zugreifst :gruebel:

Jonas Shinaniganz 31. Aug 2011 10:41

AW: TMySQLConnection
 
Ich hatte derweilen ein Neues Projekt erstellt in welchem Ich mir das Problem genauer anschauen kann, deswegen...

1: Die mysql50connection-Komponente habe ich Visuell auf der Form.

Debugger-Start, Haltepunkt: Screenshot.

Dann Debugger stoppen und ein Port(3306) ins Port-Datenfeld beim Objektinspektor eintragen.
Dann Start.
Dann nachschauen was sich verändert hat.
Nichts. (Außer die Speicheradressen)

alle anderen Values werden in '' hinter der Adresse angezeigt.

Als Referenz habe ich Databasename benutzt, hierbei verhält sich die Instanz normal...

???

DeddyH 31. Aug 2011 10:44

AW: TMySQLConnection
 
Moment, wenn Du im OI den Port der MySQLConnection ändern kannst, dann muss es ja eine published-Property sein.

Jonas Shinaniganz 12. Sep 2011 09:07

AW: TMySQLConnection
 
:-D Es hat sich endlich erledigt...

Ich habe einen kleinen Buchstabendreher in 2 sehr ähnlichen Prozeduren-Namen gehabt. Deswegen kam es nicht dazu, dass das Objekt meiner Klasse auch korrekt instanziert wurde. Dann habe ich auf nicht vorhandene Teile zugegriffen! Unglaublich...

Trotzdem vielen Dank für den Beistand,

Grüße


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:07 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz