ذخیره کردن تصاویر در اکسس

[ho_abedin]

لطفاً ننویسید که جستجو کنم جوابم را پیدا میکنم زیرا بیشتر از 4 روز گشتم ولی جوابم را پیدا نکردم .
بنده میخواهم در دلفی با بانک اکسس عکس با فرمت jpg ذخیره کنم در این بانک علاوه بر عکس یک فیلد ردیف که auto number می باشد و یک فیلد عددی که کلید خارجی می باشد نیز وجود دارد لطفاً راهنمایی کامل بفرمائید و اگر سورسی هم دارید که به بنده کمک میکند دریغ نفرمائید
با تشکر و احترام

[سنبله کار]

اگه این بدردت خورد بهم بگو

[ho_abedin]

دوست عزیز و محترم سنبله کار
از لطف شما تشکر میکنم ولی متاسفانه من از فایل ارسالی خیلی سر در نیاوردم
لطفاً در صورتیکه امکان داشته باشد و لطف بفرمائید
فقط کد های مربوط به insert یک جدول از اکسس که فیلدهای آن یک فایل jpg و چند فیلد عددی و متنی می باشد را ارسال کنید
پیشاپیش از لطف و محبت شما قدر دانی میکنم و امیدوارم جبران کنم

[سنبله کار]

ببخشید من خیلی با دلفی کار نکردم
این فایل را چون داشتم اینجا گذاشتم که اگر بدرد خورد استفاده کنید
یا بقیه دوستان از اون طریق به شما کمک کنن .
متاسفم امید وارم موفق باشید

[monster_ant]

ابتدا uses jpeg یادت نره سپس :





imagetable حاوی دو تا فیلد که یکی کد شناسه دومی تصویر از نوع blob است
imagescan هم image برای نمایش تصویره.
موفق باشی

{ کد اصلاح شده در ادامه تاپیک امده است....... }

[مرد مباح]

برای نمایش تصویر چه کاری انجام میدین؟
یعنی برای فراخواندن از دیتابیس؟

[mzjahromi]

برای نمایش تصویر چه کاری انجام میدین؟
یعنی برای فراخواندن از دیتابیس؟
می تونید از کامپوننت DBImage استفاده کنید

[mzjahromi]

دوست عزیز لطفا در ایجاد تاپیک قوانین سایت را رعایت کنید

قانون شماره 10
لطفاً در هنگام مطرح کردن سوالات خود ، انجمن مناسب را انتخاب نمایید و از مطرح کردن سوالات خود در انجمنهای نامتناسب با سوالتان خودداری نمایید.

قانون شماره 3
کاربران می بایست در هنگام ارسال سوالات و مشکلات و پیغامهای خود از یک موضوع مناسب استفاده نمایند. این موضوع می بایست در رابطه با سوال ، مشکل و یا پیغام ایشان باشد. در غیر اینصورت در حالتی که کاربر جدید باشد به او اخطار داده خواهد شد. در صورت تکرار مکرر این موضوع توسط کاربران چه جدید و چه قدیم ، برخورد جدی خواهد شد.

[ho_abedin]

ابتدا uses jpeg یادت نره سپس :




var
jpg: TJpegImage;
begin
jpg.LoadFromFile('c:\img.jpg')
ImageScan.Picture.Bitmap.Assign(jpg);
imagetable.Append;
imagetable.Fields[0].Value :=100 ;// کد شناسه برای تصویر'];
TBlobField(imagetable.FieldByName('image')).LoadFr omFile('ImageScan.jpg');
imagetable.Post;


imagetable حاوی دو تا فیلد که یکی کد شناسه دومی تصویر از نوع blob است
imagescan هم image برای نمایش تصویره.
موفق باشی


دوست بسیار عزیز و محترم
ضمن تشکر من دستورات شما را اجرا کردم ولی با این پیغام در خط
jpg.LoadFromFile('c:\1.jpg');
مواجه شدم لطفاً راهنایی خود را دریغ نفرمائید
ERORR= Access Violation at address 004b9f24 in module 'project1.exe' . read of address 8ad88b9f

[مرد مباح]

می تونید از کامپوننت DBImage استفاده کنید

دوست عزیز.
من خودم دیتابیس کارم و این کام÷وننت رو میشناسم.
ولی نمیخوام همین جوری نمایش داده بشه.
میخوام در شرایط خاصی از روی اون یک کپی بگیرم و توی صفحه 3 تا ازشون بزارم.

با Image.Create تصویر رو میسازم و حالا میخوام از دیتابیس Load کنم.
چی کار باید کرد؟

[Mahyaa]

ضمن تشکر من دستورات شما را اجرا کردم ولی با این پیغام در خط
jpg.LoadFromFile('c:\1.jpg');


باید اول Create کنی


jpg:= TJpegImage.Create;


آخر سر هم FRee کنی .

[monster_ant]

سلام دوست عزیز....
کد را بصورت ساده زیر اصلاح کردم.....
امیدوارم مشکل شما را حل کنه.....





procedure TForm1.Button1Click(Sender: TObject);
var
jpgImagePath : string;
begin
jpgImagePath := 'c:\imageScan.jpg'
imagetable.Append;
imagetable.Fields[0].Value :=100 ;
TBlobField(imagetable.FieldByName('image')).LoadFr omFile(jpgImagePath);
imagetable.Post
end;




;

[monster_ant]

راستی برای نمایش تصویر با فرمت jpg از database می توانید از روش زیر استفاده کنید.




var
BlobStream : TStream;
JPEGImage : TJPEGImage;
begin
if not imagetable.Eof then
begin
BlobStream := ImageTable.CreateBlobStream(imagetable.Fieldbyname ('image'),bmread);
JPEGImage := TJPEGImage.Create;
JPEGImage.LoadFromStream(BlobStream);
imagescan.Picture.Assign(JPEGImage);
JPEGImage.Free;
end;
end;




imagescan کنترلی از نوع TImage می باشد...
موفق باشید...

[مرد مباح]

ممنون
کاملا منطقیه.
فعلا ازش استفاده نکردم ولی قاعدتا جواب میده.
ممنون که راهنمایی کردی.

[ho_abedin]

از کمک تمامی دوستان محترم صمیمانه تشکر میکنم

امیدوارم موفق باشید

[شفیعی]

سلام
امیدوارم سورس زیر بدرد بخورد
فایل mdb را روی درایو :C کپی کن

[daneshfazli]

سلام
امیدوارم سورس زیر بدرد بخورد
فایل mdb را روی درایو :C کپی کن


آقا دمت گرم
دستت درد نکنه
خدایی خیلی حال دادی
مرسی :قلب: :تشویق:

[babak869]

از آدرس زیر هم میتونید یه نمونه دریافت نمایید
http://www.Delphi-Magic.com/source.php
موفق باشید