AW: Bildpfad eines TImages abspeichern
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:
|
AW: Bildpfad eines TImages abspeichern
Zitat:
|
AW: Bildpfad eines TImages abspeichern
Zitat:
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? |
AW: Bildpfad eines TImages abspeichern
Zitat:
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). |
AW: Bildpfad eines TImages abspeichern
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); |
AW: Bildpfad eines TImages abspeichern
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 |
AW: Bildpfad eines TImages abspeichern
Zitat:
Delphi-Quellcode:
KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString := ImageFileName;
//Image1.Picture.SavetoFile(ImageFileName); |
AW: Bildpfad eines TImages abspeichern
Ja das habe ich auch so, auch wenn ich mich im laufe dieses Threads warscheinlich ziemlich duselig angestellt habe, ich weiß noch wie man etwas umdreht :-)
|
AW: Bildpfad eines TImages abspeichern
Zitat:
|
AW: Bildpfad eines TImages abspeichern
Zitat:
Delphi-Quellcode:
tschuldige, hab ja noch eine Zeile "rumgedreht", sieht jetzt so aus
procedure TForm1.Image1DblClick(Sender: TObject);
var ImageFileName: string; begin if OpenPictureDialog1.Execute then begin ImageFileName := OpenPictureDialog1.filename; Image1.Picture.LoadFromFile(ImageFileName); KST_LagerbewertungQuery.Edit; KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString := ImageFileName; KST_LagerbewertungQuery.Post; end; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:45 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz