پرینت مستقیم Image [بایگانی]

Valadi

جمعه 23 شهریور 1386, 16:09 عصر

در یک بانک تعداد عکس زیادی داریم و می خواهیم روی Button کلیک کردیم Image مستقیم پرینت شود .
حالا چه کار کنیم که مستقیما پرینت شود ؟

manvaputra

جمعه 23 شهریور 1386, 16:26 عصر

سلام جناب ولدی یه نگاه به این بندارید:
http://www.swissdelphicenter.ch/torry/showcode.php?id=744
البته من متوجه نشدم عکس های درون بانگ اول لود میشه توی یک Timage مثلا بعد می خوایید پرینت بگیرید یا بدون پیش نمایش از همون بانک اطلاعاتی پرینت بشه؟

Valadi

جمعه 23 شهریور 1386, 16:41 عصر

عکس های درون بانگ اول لود میشه

بله - اول لود میشه توی DBImage و بعد کلیک روی یک Button و پرینت مستقیم Image

kamal_habibi

جمعه 23 شهریور 1386, 17:43 عصر

آقای valadi شما میخواهید بدون استفاده از کامپوننتی مانند Fast Reprt این کار رو انجام بدید یا اینکه همه عکسها رو دونه دونه روی ِDBIamg لود کنید بعد پرینت کنید ؟
شما کدومشو میخاید بگید واستون بذارم چون خودم همین الان دارم روی این سیستم کار میکنم یک سیستم آرشیو عکس برای یک لابراتوار هستش فکر کنم این قسمتش شبیه سوال شما باشه

Valadi

جمعه 23 شهریور 1386, 23:06 عصر

جناب kamal_habibi
با سلام
همه عکسها رو دونه دونه روی ِDBIamg لود کنید بعد پرینت کنید

بله در واقع همین بخش اول صحبت شما است

حالا شما لطف کنید دو نمونه ش را بگید
با تشکر

manvaputra

شنبه 24 شهریور 1386, 02:54 صبح

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

with Printer do begin
BeginDoc;
Canvas.Draw(dbimage1.Picture.Bitmap.Width,
dbimage1.Picture.Bitmap.Height,
dbimage1.Picture.Bitmap);
EndDoc;
end;

در قسمت uses حتما printers رو اضاف کن.
این لینکم می تونه کمکت کنه:
http://mc-computing.com/Languages/Delphi/Printing.html