[gelöst] Wie trennt man eine Datenbank-Verbindung richtig?

[kralle]

Moin,

aktuell habe ich zum Trennen der Datenbank-Verbindung einen Button mit diesem Code:

Code: Alles auswählen

procedure TForm1.Button_Verbindungen_trennenClick(Sender: TObject);
begin
     // Online-Verbindung trennen
     If MySQL57Connection1.Connected then
     begin
       MySQL57Connection1.close;
       MySQL57Connection1.free;
     end;
     //
     // XAMPP-Verbindung trennen
     If MySQL80Connection1.Connected then
     begin
       MySQL80Connection1.close;
       MySQL80Connection1.free;
     end;
end;        

Nur beim Trennen der Verbindung gibt es diese Fehlermeldung:

Code: Alles auswählen

Projekt project1 hat Exception-Klasse »External: SIGSEGV« ausgelöst.

 Bei Adresse 42906A

Code: Alles auswählen

000000000042906A 483B37                   cmp rsi,[rdi]

Das sagt mir jetzt echt nicht viel ...

Gruß Heiko

[theo]

Das sagt mir jetzt echt nicht viel ...

Mir auch nicht.
Wurden denn beide Connections created?
Wenn ja, warum?

[MmVisual]

FreeAndNil()

.Free reicht unter Linux nicht.

[af0815]

Hast du du die Verbindung mit create erzeugt ? Wenn nein, keine free verwenden. Wenn du mit free arbeitest, dann zuerst die mit der Connection verbundenen Komponenten die Verbindung auf nil setzen.

[kralle]

Hmm, das liest sich für mich, als wenn ich schon beim Verbindungsaufbau (z.Z. ohne Try ...) schon was falsch mache.

So sieht die Verbindung zum lokalen XAMPP aus:

Code: Alles auswählen

procedure TForm1.Button_Verbinden_XAMPPClick(Sender: TObject);
begin
      // Parameter
     // ===========================================================================
     MySQL80Connection1.CharSet:='utf8mb4';
     MySQL80Connection1.DatabaseName:= 'usr_web46_9';
     MySQL80Connection1.HostName:= '127.0.0.1';
     MySQL80Connection1.Port:= 3306;
     MySQL80Connection1.UserName:= 'root';
     MySQL80Connection1.Password:='';
     MySQL80Connection1.Params.Text:='Port=3306';
     MySQL80Connection1.SkipLibraryVersionCheck:= False;
     // ===========================================================================
     DBGrid1.DataSource:= DataSource1;
     // Spaltenbreite automatisch aktivieren
     // Memo-Feldinhalt als Text anzeigen
        DBGrid1.Options := DBGrid1.Options + [dgAutoSizeColumns]+ [dgDisplayMemoText];
     // ===========================================================================
     SQLTransaction1.Database:= MySQL80Connection1;
     SQLTransaction1.Active:= true;
     // ===========================================================================
     SQLQuery1.Database:= MySQL80Connection1;
     //  Ermittelt die Anzahl der Einträge in der Tabelle
     SQLQuery1.Close;;
     SQLQuery1.SQL.Text:='SELECT COUNT(*) FROM jos311_jdownloads_files_backup_3_2_69;';
     SQLQuery1.Open;
     // ShowMessage(SQLQuery1.Fields[0].AsString); // Shows "105"
     SQLQuery1.Close;
     //
     SQLQuery1.SQL.Text:='SELECT * FROM jos311_jdownloads_files_backup_3_2_69;';
     SQLQuery1.Active:= true;
     Form1.Caption:='MariaDB-Zugriffstest - XAMPP-Verbindung';
end;

Gruß Heiko

[Sieben]

Hmm, für mich liest sich das doch deutlich eher so, wie einige hier schon vermutet haben: dass du versuchst, Objekte, die du aus der Palette auf ein Form oder Datenmodul gezogen hast - wofür ua auch ihre Standard-Benamsung spricht - mit Free freizugeben. Dementsprechend enthält dein Verbindungsaufbau auch kein Create dieser Objekte - sie sind 'schon da' und das Form bzw Datenmodul ist für die Freigabe zuständig. Kommentier doch einfach mal die beiden Zeilen mit .Free in deiner Trennungsroutine aus.

[kralle]

Moin,

Kommentier doch einfach mal die beiden Zeilen mit .Free in deiner Trennungsroutine aus.

Jupp, ohne die beiden Zeilen klappt es. Danke.

[kralle]

Moin,

Wurden denn beide Connections created?
Wenn ja, warum?

Weil man einfach Sachen zusammen kopiert hat. Ohne ".Free" klappt es.

Gruß Heiko

[kralle]

Moin,

FreeAndNil()

.Free reicht unter Linux nicht.

Brauche in diesem Fall beides nicht.
Da kann man sich natürlich fragen, warum weiß Lazarus und/oder der Compiler nicht, das er bei Linux aus einem Free ein FreeAndNil() machen muss?

Gruß Heiko

[m.fuchs]

FreeAndNil()
.Free reicht unter Linux nicht.

Warum?

[MmVisual]

Wenn man von Hand irgend eine Komponente mit Create erzeugt und diese mit .Free frei gibt, dann wird unter Windows auch der Speicher wieder frei gegeben, unter Linux nicht und beim beenden der Exe unter Linux zeigt die Console diverse Speicherlecks. Wenn man FreeAndNil() unter Linux nutzt dann sind diese Speicherlecks weg.

[theo]

Wenn man von Hand irgend eine Komponente mit Create erzeugt und diese mit .Free frei gibt, dann wird unter Windows auch der Speicher wieder frei gegeben, unter Linux nicht und beim beenden der Exe unter Linux zeigt die Console diverse Speicherlecks. Wenn man FreeAndNil() unter Linux nutzt dann sind diese Speicherlecks weg.

Wo hast du den diese Weisheit her?
Da müsste ich ja tausende Lecks haben?

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
   fABtn:=TButton.create(nil);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   fABtn.free;
end;  

Heap dump by heaptrc unit of /home/theo/lazarus/fpcupdeluxe/projects/project1
836 memory blocks allocated : 1549207/1550120
836 memory blocks freed : 1549207/1550120
0 unfreed memory blocks : 0
True heap size : 1605632
True free heap : 1605632

Das Nil setzen ist nur für eine nachfolgende Assigned (Nil) Prüfung von Bedeutung.
Mit Lecks hat das nichts zu tun, soweit ich weiss

[MmVisual]

Wegen einem einzigen Button passiert in der Tat noch nichts.
Meine EXE hat über 100000 Codezeilen und jede Menge Create von irgend welchen Sachen drin.
Da kam es dann zu diesen Problemen. Erst mit FreeAndNil war es dann weg.
Definitiv ist Linux da nicht so sauber wie Windows. Man merkt das erst wenn man zufällig die EXE von der Konsole aus öffnet, wenn man die per Link vom Desktop aus startet sieht man nichts.

[theo]

Habe ich noch nie gehört und das ist mir auch noch nie begegnet.
Hast du irgendwelche Quellen und Hintergründe dazu oder ist das einfach dein persönlicher Eindruck?
Ich kann mir nicht recht vorstellen, dass man davon nichts weiss, falls es denn zutrifft.

[corpsman]

@MmVisual
Ich finde deine These auch recht Steil. Ich entwickle und "Lebe" unter Linux. Meine Programme sind auch gern mal etwas Länger. CCM zum Beispiel hat auch knapp 50000 Zeilen Code, jede Menge Datenbanken, Open GL und was nicht noch alles. Ich nutze das FreeAndNil so gut wie nie (schande über mich), immer nur ein .free und hab auch keine Speicherlöcher..