B4X FEED - [B4X} Reduce an image file to a specific size - for example, <500KB to upload to the Forum.

practicalsoft · 2022-09-26T19:16:18+00:00

B4X: Sub Class_Globals Private Root As B4XView Private xui As XUI Public original As B4XBitmap Public stage As B4XRect Public imageLayer As B4XView Public imageCV As B4XCanvas Private imageDir As String Private imageFile As String Private maxSize As Long = 200000 End Sub Private Sub B4XPage_Created (Root1 As B4XView) Root = Root1 imageCV.Initialize(Root) Public stage As B4XRect stage.Initialize(0, 0, Root.Width, Root.Height) 'specify your imageFile imageDir = "C:\Users\willi\Desktop\Images" imageFile = "TrainMoment.png" 'as an example original = xui.LoadBitmap(imageDir, imageFile) imageCV.DrawBitmap(original, stage) Dim fn As String = imageFile.SubString2(0, imageFile.LastIndexOf(".")) & "_NEW.jpeg" Dim bmp As B4XBitmap = imageCV.CreateBitmap Dim sz As Long = 1 / 0 Dim perc As Float = 100 Do While sz > maxSize Dim out As OutputStream = File.OpenOutput(imageDir, fn... Read more ادامه مطلب...

اطلاعات موضوع

درباره موضوع در تاریخ, Sep 26, 2022 در دسته b4xfeed ایجاد شده و آغاز کننده آن practicalsoftمی باشد و موضوع آن: [B4X} Reduce an image file to a specific size - for example, <500KB to upload to the Forum. است. این موضوع تا کنون 72 بازدید کننده و, 0 پاسخ داشته و 0 بار پسندیده شده...

نام دسته b4xfeed

نام موضوع [B4X} Reduce an image file to a specific size - for example, <500KB to upload to the Forum.

آغاز کننده موضوع practicalsoft

تاریخ شروع Sep 26, 2022

پاسخ‌ها

بازدیدها

پسندها

آخرین ارسال توسط PracticalSoft

practicalsoft

پرسنل مدیریت

مدیر کل انجمن

Sep 26, 2022

B4X:

کد:

محتوای بلوک کدها در دسترس شما نیست. برای مشاهده بلوک کدها، وارد انجمن شوید یاثبت نام کنید

برای دیدن لینک ها باید ثبت نام کنید

اعلامیه حق چاپ

1. این انجمن تحت قوانین جمهوری اسلامی ایران اداره میشود؛
2. در موقع ثبت نام قوانین انجمن را پذیرفته اید اما پیشنهاد میشود قبل از هرگونه فعالیت قوانین را مرور بفرمایید؛
3. مسئولیت کلیه مطالب منتشر شده در این انجمن متعلق به نویسنده اصلی است که بیانگر دیدگاه های شخصی است و ربطی به این انجمن ندارد؛
4. بدون اجازه نویسنده این پست، سایر انجمن ها وبسایت و وبلاگها و افراد مجاز به استفاده، ونشر مجدد یا نقل قول از این مطالب نیستند، ودر این صورت تخلف تلقی می شود؛
5. برای نشر یا نقل مطالب این مقاله لطفا منبع و نویسنده اصلی را ذکر کنید. نویسنده اصلی و این انجمن حق نشر را برای خود محفوظ می دارد.
6. لطفا و حتما از ارسال مطالب تبلیغاتی و اسپم در انجمن خودداری فرمایید

B4X FEED [B4X} Reduce an image file to a specific size - for example, <500KB to upload to the Forum.

اطلاعات موضوع

practicalsoft