نمایش نتایج 1 تا 8 از 8

نام تاپیک: به دست آوردن طول و عرض فایل gif

Hybrid View

پست قبلی پست قبلی   پست بعدی پست بعدی
  1. #1
    کاربر دائمی آواتار mbshareat
    تاریخ عضویت
    آبان 1387
    محل زندگی
    شهر مقدس قم-چهارمردان-کوچه 37
    پست
    990

    نقل قول: به دست آوردن طول و عرض فایل gif

    می بخشید می تونید بهم کدی بدید که متوجه بشه فایل gif هست یا jpg؟ در سایتی که کد رو برداشتم کد برای gif و jpeg جدا بود.چطور از کد gif تونستم برای به دست اوردن ابعاد استفاده کنم؟

    علاوه بر اینکه کد بالا فکر کنم خیلی کند باشه.کد رو که می بینم هیچ ضرورتی برای خوندن همه اطلاعات فایل نمی بینم.به نظرم فقط باید ده بایت خونده بشه نه اینکه اندازه فایل رو به دست بیاریم و همه اش رو لود کنیم.
    و ساده بودن کد که اطلاعات طول و عرض در بایت خاصی باشه برام مشکوکه.کسی در این زمینه اطلاعاتی داره؟

    کد رو اینطور تغییر دادم باز جواب داد.ممکنه ببینید اشکالی نداشته باشه؟
    Procedure GetGifSize(const sGIFFile: string; var width, height: Word);
    function GetWH(a: array of byte): boolean;
    begin
    Result := (a[1] = $47) and (a[2] = $49) and (a[3] = $46); //'GIF' Signature
    width := a[8] * 256 + a[7];
    height := a[10] * 256 + a[9];
    end;
    var
    f: file;
    a: array of byte;
    begin
    assignfile(f,sGIFFile);
    reset(f, 1);
    setlength(a, 10);
    blockread(f, a[1], 10);
    if GetWH(a)=false then
    ShowMessage('Bad Gif File!');
    closefile(f);
    end;


    آخرین ویرایش به وسیله mbshareat : یک شنبه 12 آبان 1398 در 00:40 صبح

تاپیک های مشابه

  1. پاسخ: 1
    آخرین پست: یک شنبه 06 فروردین 1396, 09:01 صبح
  2. پاسخ: 2
    آخرین پست: جمعه 31 مرداد 1393, 10:12 صبح
  3. سوال: ساخت چند یوزر پس برای هاست و محدود کردن هاست برای نویسندگان هاست.
    نوشته شده توسط rezanic در بخش توسعه وب (Web Development)
    پاسخ: 0
    آخرین پست: شنبه 04 مرداد 1393, 21:07 عصر
  4. پاسخ: 7
    آخرین پست: سه شنبه 28 آذر 1391, 13:48 عصر

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •