Bildpfad eines TImages abspeichern

[Luca Haas]

@mensch72
Also vorher hatte ich auch .AsString allerdings erhalte ich dann eine Fehlermeldung, bezüglich inkompatibler Typen 'Integer' und 'string', deswegen hatte ich es auf .AsInteger geändert.

Ähnliches bei den '' um mein Bildname, dort habe ich die selbe Fehlermeldung nur umgekehrt erhalten.

Edit: Mein Fehler hatte die Variable falsch deklariert

[Glados]

Zitat:

Also vorher hatte ich auch .AsString allerdings erhalte ich dann eine Fehlermeldung, bezüglich inkompatibler Typen 'Integer' und 'string', deswegen hatte ich es auf .AsInteger geändert.

Welchen Datentyp hat Bildname? Man darf nicht immer blind dem Compiler vertrauen. Wenn man doch explizit einen String möchte, dann ändere ich nichts zu Integer ab

Zitat:

es läuft jetzt alles

Zeigst du die Lösung?

[Luca Haas]

Zitat von Glados:

Zeigst du die Lösung?

Delphi-Quellcode:

procedure TForm1.Image1DblClick(Sender: TObject);
var
  ImageFileName: string;
begin
  Image1.Stretch := true;
  if OpenPictureDialog1.Execute then
  begin
    ImageFileName := OpenPictureDialog1.filename;
    Image1.Picture.LoadFromFile(ImageFileName);

    KST_LagerbewertungQuery.Edit;
    ImageFileName := KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString;
    Image1.Picture.SavetoFile(ImageFileName);
    KST_LagerbewertungQuery.Post;
  end;
end;

[DeddyH]

Ob das so richtig ist? Ich möchte wetten, dass Dein Compiler Dir dezente Hinweise gibt.

[Luca Haas]

Zitat von DeddyH:

Ob das so richtig ist? Ich möchte wetten, dass Dein Compiler Dir dezente Hinweise gibt.

Delphi meckert noch, dass die geladenen Bilder keine PNG-Bilder sind, dachte aber das liegt an den Bildern selbst und nicht am Programm.

[Jumpy]

Das ist der Nachteil von Fragend-Entwickelndem-Unterricht in der Forum-Quorum-Variante.
Der Schüler gibt sich mit einer halbwegs fertigen Lösung zufrieden, damit er endlich Ruhe hat.


Die Frage ist doch: Was möchtest du wirklich machen? Ich vermute mal:
1. Bild im Dateisystem suchen.
2. Öffnen und Anzeigen.
3. Dann den Pfad zu dem Bild in der Datenbank speichern.

Da ist bei dir Punkt 3 noch falsch!

Code:

ImageFileName := KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString;

müsste umgedreht werden!

Was du vielleicht unabhängig davon (an anderer Stelle) auch noch möchtest ist:
- Gibt es zum Datensatz schon einen Bildpfad in der Datenbank, dann:
1. Prüfen ob es das Bild im Dateisystem gibt
2. Öffnen und anzeigen des Bildes.

[TiGü]

Zitat von Luca Haas:

Zitat von Glados:

Zeigst du die Lösung?

Delphi-Quellcode:

procedure TForm1.Image1DblClick(Sender: TObject);
var
  ImageFileName: string;
begin
  Image1.Stretch := true;
  if OpenPictureDialog1.Execute then
  begin
    ImageFileName := OpenPictureDialog1.filename;
    Image1.Picture.LoadFromFile(ImageFileName);

    KST_LagerbewertungQuery.Edit;
    ImageFileName := KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString;
    Image1.Picture.SavetoFile(ImageFileName);
    KST_LagerbewertungQuery.Post;
  end;
end;

Ich wette dein ganzes Bruttoausbildungsgehalt, dass das so nicht das gewünschte Ergebnis ist.
Du möchtest doch den Pfad zur Bilddatei IN die Datenbank SCHREIBEN.
Aktuell LIEST du irgendwas AUS der Datenbank.

Hast du denn gar keine Aufgabenstellung von deinem Ausbilder bekommen?

[Luca Haas]

Zitat von TiGü:

Hast du denn gar keine Aufgabenstellung von deinem Ausbilder bekommen?

Die Aufgabe war, über den OpenPictureDialg ein Bild auszuwählen, dass in der Datenbank abzuspeichern und in einem TImage anzeigen zu lassen, sodass immer wieder drauf zugegriffen werden kann.
Außerdem soll ich über ein OnScroll-Ereignis zwischen den Bildern hin und herscrollen(wenn man in der Datenbank scrollt) und wenn man Rechtsklick auf das Bild in TImage macht soll sich das Bild in einem neuen Fenster größer öffnen (dafür soll ich ShellExecute benutzen).

[Jumpy]

Dann lag ich ja in #30 nicht schlecht.

Dreh die erste Zeile um und lass die zweite weg und du hast Teil 1 der Aufgabe erfüllt:

Delphi-Quellcode:

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

[Luca Haas]

Okay danke Jumpy, hab deine Nachricht eben glaube ich teilweise überlesen.
Auf jedenfall speichere ich jetzt die Bildpfade korrekt und kann mich endlich den anderen Aufgaben widmen