سلام
یک روش به قول معروف "بیابونی" سراغ دارم، که البته خودم تستش کردم و می دونم که اصولی نیست ولی کار راه بندازه *و برای ایشون که مشکل حجم دیتابیس داره *خوب جواب میده .
توی این روش حجم دیتابیس خیلی اضافه نمیشه ولی سرعت خواندن عکس از دیتابیس و اضافه کردن عکس داخل دیتابیس پایین میاد - در این روش باید ابتدا عکس رو به رشته تبدیل کرد**( تعجب نکن میشه اینکارو کرد )***و رشته رو در دیتابیس قرار داد - برای خوندن عکس هم ابتدا رشته رو می خونی و بعد به عکس تبدیل می کنی - این تبدیل ها رو من با vb.net انجام دادم - کد دلفی رو ندارم کد های vb *رو قرار می دم خودت دیگه تبدیلش کن به دلفی ( اگه می تونی ) *
*
کد:
کد:
Public Function ImageToStr(ByVal ImageAdr As String) As String* * * *
* * * * * * Dim img As System.Drawing.Image = System.Drawing.Image.FromFile(ImageAdr)* * *
* * ** * * Dim ms = New System.IO.MemoryStream()*
* ** * * * img.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)*
** * * * * Dim b64 As String = Convert.ToBase64String(ms.ToArray())*
* ** * * * img.Dispose()* *
* ** * * * ms.Close()* * * *
* * * * * Return b64*
* * * * End Function
Public Function StrToImage(ByVal Strb64 As String) As Image
* * * * * *Dim b() As Byte
* * * * * *b = Convert.FromBase64String(Strb64)
* * * * * *Dim ms = New System.IO.MemoryStream(b)
* * * * * *Dim img = System.Drawing.Image.FromStream(ms)
* * * * * *ms.Close()
* * * * * *Return img
* * * *End Function
علاقه مندي ها (Bookmarks)