Re: Bider in DB speicher und auslesen
du fragst vielleicht sachen :D
ne des isn fehler ^^ bitmap muss bei jpeg raus, also so:
Delphi-Quellcode:
//JPG
If UpperCase(imagedata.FieldByName('fileext').AsString) = 'JPG' Then Begin Stream := TStream.Create; Stream := imagedata.CreateBlobStream(imagedata.FieldByName('filedata'), bmRead); Stream.Position := 0; JPEG := TJpegImage.Create; JPEG.LoadFromStream(Stream); image.Picture.Bitmap.Assign(JPEG); Stream.Free; JPEG.Free; End; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:24 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