View Full Version : تصویر در دیتابیس ؟
RezaJP
چهارشنبه 28 بهمن 1383, 15:07 عصر
چطوری میشه توسط کد و بدون استفاده از کنترل ... تصویر رو در دیتابیس ذخیره و نیز لود کرد؟ :oops: :گیج:
ehsan707
چهارشنبه 28 بهمن 1383, 16:42 عصر
خوب یه خورده درد سر داره در وی بی ولی توی وی بی دات نت تقریبا سر راسته
باید فایل رو باطنری بخونی و به یک فیلد از توع باینری بفرستی
RezaJP
چهارشنبه 28 بهمن 1383, 17:22 عصر
توی VB چی؟
ehsan707
پنج شنبه 29 بهمن 1383, 10:20 صبح
راستش عالبا پیشتهاد میشه که یه فلدر رو بسازی و تصویرها رو در اون قرار بدی و به برنامه آدرس اون فلولدر رو بدی
ولی کار نشد نداره
ehsan707
پنج شنبه 29 بهمن 1383, 10:38 صبح
باید فایل رو باینری کنی و بعدش هم
object.AppendChunk Data
و مثلا اگه تصویر داری
CommonDialog1.Filter = "(*.bmp;*.ico;*.gif;*.jpg)/*.bmp;*.ico;*.gif;*.jpg"
CommonDialog1.ShowOpen
PictBmp = CommonDialog1.FileName
بعد فایل رو باینری باز کن
SourceFile = FreeFile
Open PictBmp For Binary Access Read As SourceFile
و رکورد رو اضافه کن
Get SourceFile, , ByteData() 'Reads data from an open disk file into ByteData()
Rs(1).AppendChunk ByteData() 'Appends the left over data first
و بعد ذخیره
Rs.Update 'Commit the new data.
Close SourceFile
و برای خوندنش
DiskFile = App.Path & "\image1.bmp"
If Len(Dir$(DiskFile)) > 0 Then
Kill DiskFile
End If
DestFileNum = FreeFile
Open DiskFile For Binary As DestFileNum
و
ByteData() = Rs(1).GetChunk(LeftOver)
Put DestFileNum, , ByteData() 'write data from a variable to disk file
دست آحر
Close DestFileNum
Image1.Visible = True
Image1.Picture = LoadPicture(App.Path & "\image1.bmp")
javid_p84
پنج شنبه 29 بهمن 1383, 20:54 عصر
سلام
آقا منم این مشکل رو دارم
این چیزیم که شما نوشتین نتونستم run کنم
میشه بیشتر توضیح بدید؟
Typisch_VB6
چهارشنبه 05 اسفند 1383, 20:17 عصر
bacheha ye control image begzarid baad DataSourcesho be datatoon va datafieldesho be ye field binery ke az ghabl sakhtin rabt bedin
bad maalome type konid
Data1.recordset.addnew
:D :sunglass: :wink:
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.