ارتباط بانک تصاویر با برنامه

bootshow

عضو جدید
blob: TBlobField;
blob := TBlobField (datamdl.tblimage.FieldByName ('pic'));
blob.SaveToFile (exportpic);​
 

ayask

عضو جدید
سلام به همه ی دوستان دلفی کار.نمیدونم چرا این طور جواب دادید !!!
فرض میکنم بانک اطلاعاتی شما sql server باشه ، و با دلفی 7 کار میکنید...
ابتدا کانکشن استرینگ رو به دیتابیس اتصال داده ( روش های متفاوتی هست ، مستقیم هم میشه adoconnection رو اتصال داد ، با واسط هم همینطور(*.udl) )
مرحله ی بعدی اضافه کردن یک adotable و datasource به فرمته (یا اینکه به data module ) ...
مرحله ی بعدی conection string مربوط به adotable رو ADOConnection1 میزاری ...
داخل table name نام جدول رو میزاری (البته اگه بخوای با کد کار کنی مثلا میگی adotable1.tablename:= table1 )
حالا نوبت به datasource میرسه که فقط خاصیت dataset اون رو نام adotable ات میزاری...
مرحله ی بعدی هم که گذاشتن یک dbimage روی فرمته و یه savepicturedialog و open picture dialog ....
خلاصه ، در خاصیت datasource مربوط به dbimage نام datasource مربوطه و در خاصیت data field هم نام فیلد مربوطه ...
با گذاشتن یک button روی صفحه و باز کردن open picture dialog میتونی آدرس عکس رو انتخاب و به این صورت زیر
ابتدا دستور

کد:
ADOTABLE1.edit;

و سپس کد زیر
کد:
if OpenPictureDialog1.Execute and (OpenPictureDialog1.FileName<> '') then
begin
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

عکس اتون رو انتخاب و با انتخاب دستور

کد:
ADOTABLE1.Post;
اطلاعات رو به دیتابیس اضافه کنید ...
هر گونه سوالی باشه ، در خدمت دلفی کاران محترم خواهم بود ...
 
Similar threads

Similar threads

بالا