Einzelnen Beitrag anzeigen

Luca Haas

Registriert seit: 23. Aug 2017
Ort: Bad Breisig
139 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#1

Bildpfad eines TImages abspeichern

  Alt 5. Okt 2017, 07:54
Datenbank: MSSQL • Version: ? • Zugriff über: TADO Query
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

Geändert von Luca Haas ( 5. Okt 2017 um 08:07 Uhr)
  Mit Zitat antworten Zitat