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

نام تاپیک: یه مشکل عجیب در delphi berlin

  1. #1
    کاربر دائمی آواتار Delphi Coder
    تاریخ عضویت
    آذر 1386
    محل زندگی
    c:\windows\system32
    پست
    557
    تشکر کردن
    30
    316 بار تشکر شده در 139 پست

    Question یه مشکل عجیب در delphi berlin

    این کدها وقتی با دلفی 7 کمپایل میشن کار میکنند اما با دلفی برلین exception میدن که مربول به GlobalSize هست. محیط تست من ویندوز 7 64 بیتی هست.
    procedure TForm1.Button1Click(Sender: TObject);
    var
    b: integer;
    Hnd: Cardinal;
    begin
    Hnd := Clipboard.GetAsHandle(ClipFormatInd);
    b := GlobalSize(Hnd);
    if b <> 0 then
    Caption := 'Clipboard: '+ IntToStr(b) + ' bytes'
    else Caption := 'Clipboard: <empty>';
    end;

    procedure TForm1.Button2Click(Sender: TObject);
    var
    b: integer;
    begin
    b := GlobalSize(0);
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    ClipFormatInd := RegisterClipboardFormat('Test Proj Berlin');
    end;

    من هر چر هم کدهای اسمبلی رو trace کردم چیز خاصی ندیدم یعنی چیز خاصی نبود که ببینم یه application خالی و یه فراخوانی API از کرنل 32 هست که هر دو انجام میدن اونیکی همه چی درست کار میکنه اینیکی error میده. ظاهرا زمانی که کلیپ بورد خالی هست globalsize کار نمیکنه!!!؟؟؟
    با این اوصاف حالا اگر بخوایم سایز clipboard رو در دلفی برلین بدست بیاریم چیکار باید بکنیم.

  2. #2
    مدیر بخش آواتار Mahmood_M
    تاریخ عضویت
    بهمن 1384
    محل زندگی
    گیلان _ رشت
    پست
    2,453
    تشکر کردن
    1,364
    2,028 بار تشکر شده در 814 پست

    نقل قول: یه مشکل عجیب در delphi berlin

    پیغامی که نمایش داده میشه یک First Chance Exception هستش
    این نوع خطا معمولا به معنی مشکل درون کد نیست، اگر برنامه رو خارج از محیط دلفی اجرا کنید احتمالا خطایی ظاهر نمیشه
    اگر خطا از کد نوشته شده بود برنامه روی همون خط متوقف میشد اما تابع مقدارش رو برگشت میده و برنامه هم به کارش ادامه میده
    حتی اگر کد رو درون Try ... Except هم بنویسید، بعد از اجرای تابع برنامه به قسمت Except نمیره
    این نوع خطا یک جور اعلان هستش به برنامه نویس که بدونه یک خطای داخلی رخ داده و Handle شده
    وقتی درون برنامه یک تابع یا متد خارجی رو Call می کنید، مثل توابع API ، درون اون توابع ممکنه خطایی رخ بده که از دسترس شما خارج هستش، First Chance Exception امکانی هست که در Debugger گذاشته شده تا برنامه نویس بدونه که خطایی رخ داده اما توسط همون متد خارجی Handle شده
    مشکلی که این خطا رو هم درون تابع API بالا به وجود آورده نبود Data در ClipBoard و درواقع نامعتبر بودن مقدار متغیر Hnd به عنوان Handle هستش
    مثلا اگر به جای Format ایجاد شده از فرمت CF_TEXT استفاده کنید و یک متن رو کپی کنید، می بینید که همون خطا هم ظاهر نمیشه
    به هر حال، اون خطا به معنی وجود مشکل نیست و می تونید اون رو نادیده بگیرید
    دوره آموزشی تخصصی Threading در دلفی - شهر تهران - 20 و 21 خرداد 97
    برای هماهنگی و ثبت نام به آیدی تلگرام @Mahmood_Mhr پیام بفرستید

  3. کاربرانی که به خاطر مطلب مفید Mahmood_M از وی تشکر کرده‌اند:


  4. #3
    کاربر دائمی آواتار Delphi Coder
    تاریخ عضویت
    آذر 1386
    محل زندگی
    c:\windows\system32
    پست
    557
    تشکر کردن
    30
    316 بار تشکر شده در 139 پست

    نقل قول: یه مشکل عجیب در delphi berlin

    تجربه به من نشون داده که خطای access violation رو اصلا نباید سرسری گرفت ولی به نظر فرمایش شما صحیح هست چون داخل except نمیره و ظاهرا با نادیده گرفتنش برنامه در اصل درست کار میکنه و مشکل هم فقط زمان debug خودشو نشون میده. اما هنوز این نکته که چرا تو دلفی 7 این اتفاق نمی افته سوال برانگیز هست.

  5. #4
    مدیر بخش آواتار Mahmood_M
    تاریخ عضویت
    بهمن 1384
    محل زندگی
    گیلان _ رشت
    پست
    2,453
    تشکر کردن
    1,364
    2,028 بار تشکر شده در 814 پست

    نقل قول: یه مشکل عجیب در delphi berlin

    اما هنوز این نکته که چرا تو دلفی 7 این اتفاق نمی افته سوال برانگیز هست
    نحوه برخورد با First Chance Exception توسط Debugger مشخص میشه و یکی از امکانات Debugger هستش
    می تونید تنظیمات Debugger رو تغییر بدید که این پیام رو نمایش نده
    در حال حاضر دلفی 7 ندارم اما ممکنه این امکان در Debugger دلفی 7 به صورت پیشفرض غیر فعال باشه که پیغام نمایش داده نمیشه
    تجربه به من نشون داده که خطای access violation رو اصلا نباید سرسری گرفت
    پیغام AV اگر به خاطر کد برنامه شما نمایش داده شده باشه، باید حتما دلیلش رو پیدا کنید و مشکل رو رفع کنید اما همونطور که گفتم این پیغام از کد برنامه شما نیست و به صورت داخلی در تایع GlobalSize اتفاق می افته و البته Handle شده
    برای درک بهتر کد زیر رو درنظر بگیرید :
    function ConvertStrToInt(S : String) : Integer;
    var
    I : Integer;
    begin
    try
    I := StrToInt(S);
    except
    I := 0;
    end;

    Result := I;
    end;

    این تابع یک رشته رو می گیره و سعی می کنه که اون رو به عدد تبدیل کنه، اگر خطایی رخ بده، مقدار برگشتی رو صفر می کنه
    وقتی برنامه اجرا بشه و به ورودی تابع یک متن غیر عددی بدید، خطا اتفاق می افته و Debugger هم اون خطا رو نمایش میده اما خطا توسط تابع Handle شده و مشکلی در عمل وجود نداره و شاید نیازی به نمایشش هم وجود نداشته باشه
    در تابع GlobalSize هم می تونید فرض کنید که اون Handle به این صورت چک میشه و اگر خطایی رخ داد خروجی صفر میشه و باز در عمل مشکلی وجود نداره، اما Debugger باز بهتون اطلاع میده که خطایی رخ داده برای اینکه بتونید بهتر عمل Debug رو انجام بدید و اتفاقاتی که افتاده رو بررسی کنید
    در نهایت با خیال راحت می تونید خطا رو نادیده بگیرید
    دوره آموزشی تخصصی Threading در دلفی - شهر تهران - 20 و 21 خرداد 97
    برای هماهنگی و ثبت نام به آیدی تلگرام @Mahmood_Mhr پیام بفرستید

  6. کاربرانی که به خاطر مطلب مفید Mahmood_M از وی تشکر کرده‌اند:


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

  1. یه مشکل عجیب در دلفی
    نوشته شده توسط mskm100 در بخش برنامه نویسی در Delphi
    پاسخ: 8
    آخرین پست: جمعه 04 آبان 1386, 16:53 عصر
  2. یه مشکل عجیب در رکوردست
    نوشته شده توسط alireza1514 در بخش Access
    پاسخ: 1
    آخرین پست: دوشنبه 23 مرداد 1385, 10:55 صبح
  3. یه مشکل عجیب در Access و vb
    نوشته شده توسط riyahiyan در بخش برنامه نویسی در 6 VB
    پاسخ: 10
    آخرین پست: جمعه 12 خرداد 1385, 00:23 صبح
  4. یه مشکل عجیب در dbisam
    نوشته شده توسط MNosouhi در بخش بانک های اطلاعاتی در Delphi
    پاسخ: 4
    آخرین پست: چهارشنبه 20 مهر 1384, 23:38 عصر

برچسب های این تاپیک

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

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