Hi,
die Lösung war ganz einfach:
dim imageData as String
dim bin as BinaryStream
f=GetFolderItem("Daten")
f=f.Child(logo) // logo ist der name des Bildes
if f.Exists then
bin = f.OpenAsBinaryFile
if bin <> nil then
imageData = bin.Read(bin.Length)
bin.Close
end if
rec = new databaserecord
rec.BlobColumn("picture") = EncodeBase64(imageData)
rec.column("name") = logo
dbfakt.insertRecord("images", rec)
wenn ich es dann wieder mit dem Namen auf Platte sichere ist es wieder
das Original-Bild
Gruß
Stefan
Hi,
bisher speichere ich die Bilder in der Real-Datenbank indem ich den
Inhalt eines Canvas in eine Temp.jpg auf die Platte sichere und dann
als Binary String in der Datenbank ablege.
Leider werden so natürlich alle Bilder zu jpg.
Wie kann ich das denn verhindern? Wenn ich den FileType kenne und
das Bild schon in eine Variable vom Typ picture geladen wurde, kann
ich es dann nicht "roh" in die datenbank sichern?
Ich hoffe meine Beschreibung ist verständlich ;-)
Gruß
Stefan
