Bildpfad eines TImages abspeichern

[Luca Haas]

Hi Leute,
ich versuche aktuell den Pfad eines Bildes in einer Datenbank abzuspeichern.

Allerdings habe ich das Problem, dass ich alles nur als "TPicture" und nicht als richtigen Pfad speichere

Delphi-Quellcode:

// Bild einfügen
procedure TForm1.Image1DblClick(Sender: TObject);
begin
  Image1.Stretch := true;
  if OpenPictureDialog1.Execute then
  begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.filename);
    KST_LagerbewertungQuery.Edit;
    Image1.Picture.SaveToFile(KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString);
    KST_LagerbewertungQuery.Post;
  end;
end;

Das ist die entsprechende Stelle im Code, hoffe jemand kann mir weiterhelfen
MfG Luca

[TiGü]

Die Lösung ist total simpel, aber es würde für dich als Auszubildenden keinen Lerneffekt geben, wenn wir dir die fertige Lösung hinknallen.

Bitte kommentiere deinen Quelltext mal Zeile für Zeile: WAS und WARUM machst du in der jeweiligen Zeile.
Anhand dessen können wir dir Schritt für Schritt helfen.

[Luca Haas]

Delphi-Quellcode:

procedure TForm1.Image1DblClick(Sender: TObject);
begin
  Image1.Stretch := true; // Bildgröße anpassen
  if OpenPictureDialog1.Execute then  //Abfrage ob OpenPictureDialog ausgeführt wurde
  begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.filename); //laden des Bildes aus dem OpenPictureDialog
    KST_LagerbewertungQuery.Edit; //Query Bearbeitung Beginnen
    Image1.Picture.SaveToFile(KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString); //Bildpfad abspeichenr ?! :?:
    KST_LagerbewertungQuery.Post; //Query Bearbeitung beenden
  end;
end;

[TiGü]

Ok, jetzt bitte die folgende Zeile mithilfe einer Zwischenvariablen auflösen:

Image1.Picture.SaveToFile(KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString);

[Luca Haas]

Meinst du sowas wie

Delphi-Quellcode:

 
a := KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString;
Image1.Picture.SavetoFile(a);

Bin mir nicht sicher ob ich weiß was Zwischenvariablen sind

[Glados]

Zitat:

Ok, jetzt bitte die folgende Zeile mithilfe einer Zwischenvariablen auflösen:

Ok, und jetzt gebe deinen Variablen bitte anständige und verständliche Namen

[Luca Haas]

Delphi-Quellcode:

Bild := KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString;
Image1.Picture.SavetoFile(Bild);

Versteh ich grade was falsch, es ist doch egal wie die Variablen heißen, oder nicht ?

[Glados]

Zitat:

es ist doch egal wie die Variablen heißen, oder nicht ?

Nein eben nicht. Es gehört zum guten Ton bzw. zu gutem Code auch verständliche Variablennamen zu verwenden.

Zitat:

Allerdings habe ich das Problem, dass ich alles nur als "TPicture" und nicht als richtigen Pfad speichere

Dazu habe ich eine Frage. Wieso bist du der Meinung du speicherst ein "TPicture" ab? Was ist deiner Meinung nach denn ein TPicture und was kommt tatsächlich auf deiner Festplatte an?

[DeddyH]

Mal eine kleine Korrektur, vielleicht fällt es dann auf:

Zitat:

//laden des Bildes aus dem OpenPictureDialog

-->
//laden des Bildes aus der im OpenPictureDialog ausgewählten Datei (ganzer Pfad)

[TiGü]

Zitat von Luca Haas:

Delphi-Quellcode:

Bild := KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString;
Image1.Picture.SavetoFile(Bild);

Versteh ich grade was falsch, es ist doch egal wie die Variablen heißen, oder nicht ?

Für den Compiler und dem Computer ist es egal.
Aber nicht für dich, dein zukünftiges ich in zwei Monaten wenn du den Quelltext wieder anschaust und erst recht nicht für deinen Kollegen, der sich deinen Quelltext anschauen muss.

Ok, jetzt erkläre mit deinen eigenen Worten, was genau der Aufruf Image1.Picture.SavetoFile bewirkt?
Was genau wird in SaveToFile übergeben?