Bildpfad eines TImages abspeichern

[DeddyH]

Schau Dir doch meinen Beitrag #9 noch einmal an, Du hast ja den Pfad.

[Glados]

Zitat:

Wäre dann so etwas wie Bildname passender ?

Ne. Denn du bekommst ja so gesehen keinen Namen zurück sondern etwas anderes. Überleg mal

Zitat:

Damit meine ich, dass ich in einem SQL Editor
eingegeben habe und er mir in der Spalte Bildpfad überall TPicture ausgibt.

Wieso denkst du, du bekommst ein TPicture zurück?
Du bist in Spalte Bildpfad und bekommst ein TPicture zurück... glaube ich nicht.

[Luca Haas]

Also erhalte ich den Pfad über
Image1.Picture.LoadFromFile(OpenPictureDialog1.filename); und speichere ihn über

Delphi-Quellcode:

Bildname := KST_LagerbewertungQuery.FieldByName('Bildpfad').AsInteger;
Image1.Picture.SavetoFile('Bildname');

oder habe ich das falsch verstanden ?

[mensch72]

Auf wenn dir "typen" völlig egal sind, dein Delphi will sie

Delphi-Quellcode:

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

[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.

[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?