رسال عکس به فست ریپورت

[h1and1saman]

سلام
واسه ارسال عکس به فست ریپورت کسی راه حلی داره؟
عکس در پوشه ای ذخیره میشه


اگه کسی برای ابزار گزارش گیری دیگه رو هم بلده ممنون میشم راهنمایی کنه
کریستال
دیتاریپورت
اکتیو ریپورت
و....

[isaac23]

سلام دوست عزیز اگه از فست ریپورت استفاده مکینی دیگه سراغ چیزی دگه نرو چون یکی از قدرتمندترین ابزار گزارش گیری هست

و اما جواب سوال

ابتدا یه شی Picture داخل طراحی فست ریپورت بذار مثلا بنام Picture 1
بعداش داخل وی بی یه متغیر تعریف میکنیم بنام
Dim pic1 As IfrxPictureView

بعدش
بعد متغیر رو قرار میدیم بنام اون Picture که داخل فرم فست طراحی کردیم

Set pic1 = frp.FindObject("Picture1")

بعدش مسیر عکس رو بهش میدیم

pic1.Picture = Picture1.Picture.Handle

ببخشید با عجله نوشتم فکر کنم کارت راه بیفته

[h1and1saman]

بسیار ممنونتم
ادرس عکس رو کجا قرار بدم؟
و اینکه می‌خوام شرطی بزارم که عکس خاصی رو بده مثلا اسم فلان رو بفرسته
ممنونت میشم خیلی نیاز دارم .خیلی آقایی

[isaac23]

خوب متغیر که تعریف کردی اخر کار میشه این
اگه خاستی از پوشه ای توی ویندوز بخونی از این روش استفاده کن.
pic1.FileLink = App.Path & ............ ".JPG

و اگه خاستی از Picture توی فرم استفاده کنی از همون روش اول که گفتم بهت"

سوال دومت اصلا متوجه نشدم

[h1and1saman]

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

[isaac23]

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

[h1and1saman]

بله ممنونم
بله زده بودم ولی چون با گوشی بودم گویا نخورده بود .کار کنم ببینم میتونم یاد بگیریم . سوالی‌بود میپرسم انشالله که باشید در صحنه

[isaac23]

زمانی که فست ریپورت رو نصب میکنی همراه خودش تو مسیر نصب کلی سورس و آموزش داره از اونا هم استفاده کن

[h1and1saman]

دوست عزیز چه جوری میشه شرط گذاشت برای انتخاب عکسمن جدولی دارم که یه شماره عضویت داره و به همون شماذه عکس ها رو پوشه ای ذخیره میکنم حالا برای چاپ یه جدول temp ساختم که هرکدوم رو می خوام چاپ کنم میفرستم تو جدول تمپ ممکنه یه نفر باشه یا بیشتر . تااینجا مشکلی نیست چه جوری میتونم بگم برای هر گزارش شماره عکس فلان رو انتخاب کن . یه چیزی تو مایه های select نمیدونم تونستم بگم یا نه منظورمو

[h1and1saman]

مثلا همچین کدی
Pic1.filelink=app.path & "\pic\" & codeozviat &".jpg".

[isaac23]

شما به چه صورت عکس ها رو ذخیره کردید.

آیا نام عکس ها رو داخل بانک اطلاعاتی ریختید.

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

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

[h1and1saman]

سلامی دوباره دوست عزیز
من فرقی نمیکنه هرکدوم بشه انحام میدم لازم باشه ادرس رو ذخیره میکنم اما در حال حاضر به این شکله داخل پوشه هر عکس هم نام شماره عضویت ذخیره میشه
یعنی وقتی می خوام عکس رو نشون بدم مسیر یکی هست فقط با شماره عضویت شماره عکس ها یکی هست
مثال
کد عضویت -------- نام ---------- نام عکس(مسیر مشخص پوشه نصب برنامه داخل پوشه pic)
۱ -------- علی -------- 1.jpg
2 -------- حسن -------- 2.jpg


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

[isaac23]

ببین شما میای ردیفی که میخای چاپ کنی رو انتخاب میکنی با کلیک روش که به حالت انتخاب در بیاد بعد میگی فیلد ای دی رکوردی که انتخاب شده هست رو : عکس رو برابر نام فیلد codeozviat قرار بده

Pic1.filelink = App.Path & "\pic\" & Adodc1.Recordset.Fields("codeozviat") & ".jpg"

[h1and1saman]

ممنونم امتحان کنم ببینم جواب میگیرم
این همه دردسر کشیدن میدونی برای چی هست؟
می خوام کارت پرسنلی چاپ کنم.اطلاعات همراه با عکس فرد ذخیره بشه به هرشکلی و بتونم براشون کارت چاپ کنم .چون افراد زیاده نمی خوام برا تک تکشون برم چاپ کارت رو بزنم همگی رو Add کنم و بزنم چاپ بشه
گفتم شاید ایده ای داشته باشی بهتر و شاید من کلا مسیر رو اشتباه می رفتم
به هرحال ممنون تست کنم ببینم جواب میگیرم -خیلی گلی

[h1and1saman]

دوست عزیز نشد که نشد فکر کنم نمی تونم منظورمو برسونم
یه سورس ساده شده بسیار کم حجم رو میزارم بی زمت یه نگاه بهش بنداز کاملا مشخصه چی میخوام
ممنون
http://s9.picofile.com/file/8272835400/test.rar.html

ببخشید اینجا‌ حجمش ۶۰۰ کیلوبایت بود نزاشت اپلود کنم

[vbhamed]

سلام

تو نمونه مثالهای خودش در پوشه Examples مثالی تحت عنوان VB6_Picture_Demo داره