کندی Application کامپایل شده با دلفی 2010 روی ویندوز 7

سلام.
یک Application که با 2010 هست رو من روی ویندوزهای مختلف تست کردم.سرعتش خوبه. ولی روی 7 به شدت کند کار میکنه. Config سیستمها هم از لحاظ سخت افزاری خوب هستند.آیا میتونه به تنظیمات Compiler ارتباطی داشته باشه؟ یا راه حل دیگری برای اون وجود داره.
من روی ویندوزهای xp,Vista تست کردم و سرعتش خیلی عالیه ولی همون برنامه روی ویندوز 7 خیلی کند کار میکنه.تمامی منوها با تاخیر باز می شوند.
ممنون

یک نمونه سورس کد بذارید که مشکل شما رو reproduce کنه.

دوست گرامی منم دقیقا مشکل شمارو داشتم وبه این نتیجه رسیدم که پروژه های دلفی ای که در ویندوزی غیر از ویندوز 7 ایجاد شده و کامپایل شدن سرعت انجام عملیاتشون در برخی از کامپوننت ها مثل : چک باکس،رادیوباتن و تب کنترل خیلی کمه.
اگه حرفمو قبول نداری همون برنامرو با دلفی 2009 یا بیشتر تو خود ویندوز 7 ایجاد کن و از اول بنویس به حرفی که گفتم میرسی.

موفق باشید.

ممنون.
این نرم افزار سیستم مالی هست که با دلفی 7 توسعه داده شده و در ویندوز XP روی آن کار شده است.
که من اونو به نسخه 2010 آوردم. و از زمانی که روی ویندوز 7 دارم کار میکنم به این مشکل برخورده.جالبه که EXE برنامه فقط روی ویندوز 7 کند کار میکنه و روی ویندوزهای دیگه اصلا مشکلی نداره.

نقل قول:

---

اگه حرفمو قبول نداری همون برنامرو با دلفی 2009 یا بیشتر تو خود ویندوز 7 ایجاد کن و از اول بنویس به حرفی که گفتم میرسی.

---

از اول بنویسه یا از اول کامپایل کنه ؟ اگر بگی کامپایل میشه قبول کرد ولی در مورد نوشتن برنامه از اول مگر سورس ذخیره شده در دو ویندوز متفاوت با هم فرق میکنه ؟!

به نظر من ابتدا یک VMware نصب کنید و همه ویندوزها رو با مشخصات سیستم یکسان در اون نصب کنید و بعد تست کنید. من تابه حال برنامه های زیادی نوشتم که توی همه ویندوزها و سیستم های مختلف کار کرده و به مشکلاتی هم بر خوردم که شبیه همین مورد بوده، بعضی از سیستم ها با little endian و big endian مشکل دارند و بار اضافی بهشون اعمال میشه در زمان اجرا و یا با 32 بیت و 64 بیت شدن،باید این مورد و مواردی مثل این رو در نظر داشت. من کدی رو توی Delphi 7 اجرا میکردم، روی PC خونه شمارنده از 0 تا 99 میشمرد ولی روی لپتاپ از 99 تا 0 میشمرد که بعدها متوجه شدم که از معماری CPU شرکت اینتل بوده. تغییر در معماری کامپیوتر از اصلی ترین موارده که حتی سیستمهای multi-thread رو هم در بر میگیره.
مطمئن بشید که از دو سیستم یکسان با XP و 7 استفاده میکنید.

موفق باشید.

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

من فکر می کنم چون نحوهی ساخت ابزار ویژوال تو ویندوز7 با ویندوزهای قبلی فرق می کنه واسه همین خاطره وگرنه هیچ مشکل دیگه ای نمیتونه داشته باشه.

نقل قول:

---

نوشته شده توسط nilidelphi

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

من فکر می کنم چون نحوهی ساخت ابزار ویژوال تو ویندوز7 با ویندوزهای قبلی فرق می کنه واسه همین خاطره وگرنه هیچ مشکل دیگه ای نمیتونه داشته باشه.

---

اشتباه فکر میکنی !
یعنی چی که نحوه ساخت ابزار ویژوال فرق میکنه ، در هر صورت شما با نوشتن برنامه هیچ کاری به جز ذخیره چند تا فایل متنی نمیکنی ! اون وقت چیه این فایل میتونه روی 2 سیستم عامل مختلف تغییر کنه ؟ برنامه وقتی برنامه میشه که کامپایل بشه ؛ تنها به 2 چیز میشه شک کرد یکی تنضیمات ذخیره شده در پروژه و دیگری فایل ریسورس هست ، قبل از کامپایل تنضیمات رو بررسی کنید و فایل های dcu کامپایل شده و فایل ریسورس رو حذف و برنامه رو سیستم عامل مورد نظر کامپایل کنید .

نقل قول:

---

اشتباه فکر میکنی !

---

خیلی هم درست فکر کرده!
ابزارهای gdi و یا به قولی ابزارای طراحی ویژال در ویندوز 7 میتونه متفاوت باشه و سرعت paintو repaint متفاوتی با سایر ویندوزها داشته باشه که در این برنامه خودش رو نشون داده .
اما در حالت کلی این میتونه ارتباطی با تنظیمات کارت گرافیکی هم داشته باشه و ارتباطی با کامپایل مجدد و کارهای از این دست ندارد.

نقل قول:

---

نوشته شده توسط tdkhakpur

خیلی هم درست فکر کرده!
ابزارهای gdi و یا به قولی ابزارای طراحی ویژال در ویندوز 7 میتونه متفاوت باشه و سرعت paintو repaint متفاوتی با سایر ویندوزها داشته باشه که در این برنامه خودش رو نشون داده .
اما در حالت کلی این میتونه ارتباطی با تنظیمات کارت گرافیکی هم داشته باشه و ارتباطی با کامپایل مجدد و کارهای از این دست ندارد.

---

:قهقهه: اصلا میدونی چی میگی ؟!
الان یه سورس دلفی باز کن ، این ابزارهای gdi کجای سورس آورده شده که شما وقتی از اول برنامه رو مینویسی تغییر میکنه ؟! ایشون میگه برنامه رو از اول بنویس ، یعنی یه چیزهایی داخل فایل های سورس ( pas , dpr , dfm ) ذخیره میشه دیگه ، حالا شما بگو این ابزارهای gdi کجای این فایل ها ذخیره میشن ما هم بدونیم !

این مشکل فقط مربوط به دلفی نیست. من حتی در مورد برنامه هایی که با دات نت هم ایجاد شده اند این مشکل را دیده ام. راستی یک سوال، ویندوز 7 شما چند بیتی است؟؟؟

نقل قول:

---

نوشته شده توسط مجتبی تاجیک

:قهقهه: اصلا میدونی چی میگی ؟!
الان یه سورس دلفی باز کن ، این ابزارهای gdi کجای سورس آورده شده که شما وقتی از اول برنامه رو مینویسی تغییر میکنه ؟! ایشون میگه برنامه رو از اول بنویس ، یعنی یه چیزهایی داخل فایل های سورس ( pas , dpr , dfm ) ذخیره میشه دیگه ، حالا شما بگو این ابزارهای gdi کجای این فایل ها ذخیره میشن ما هم بدونیم !

---

اصلا به سابقه تون نمی خوره که هیچی درباره معماری ویندوز و GDI ندونید!

نقل قول:

---

اصلا به سابقه تون نمی خوره که هیچی درباره معماری ویندوز و GDI ندونید!

---

لطفاً به این کل کل ها خاتمه دهید، چون این بحث ها بی ربط با موضوع تاپیک است. مسائلی در مورد GDI و معماری ویندوز در فایلهای پروژه مانند فایلهای pas، dpr، dfm ذخیره نمی شوند.

لطفا بحث های زاید نکنید، و راه حل شانسی هم ارائه نکنید!

برای اینکه بشه یک مشکل رو با کمک دیگران ارزیابی کرد، باید مشکل شما توسط سایرین قابل بازتولید (reproducible) باشه، برای اینکه بتونید اون رو برای دیگران قابل بازتولید کنید، باید بتونید محدوده مشکل رو کوچیک کنید. یک برنامه مالی ممکنه توش از کامپوننت های مختلف طرف ثالث، یا کدهای مختلف نوشته شده توسط شما، استفاده شده باشه، که هر کدومشون به نوعی با برخی سرویس های ویندوز درگیر هستند، و نسخه ویندوز میتونه روی اونها تاثیر منفی یا مثبت بذاره.

اگر نتونستید، یا نخواستید، مشکل رو در یک پروژه ساده باز تولید کنید، باید خودتون وقت بذارید و با ابزارهای Profiling و مانیتورینگ مختلف، رفتار برنامه در دو سیستم رو بررسی و با هم مقایسه کنید، تا ببینید چه تفاوت هایی در رفتارشون هست، و کدومیک از این تفاوت ها زمان بیشتری رو به خودش اختصاص میده.

نقل قول:

---

:قهقهه: اصلا میدونی چی میگی ؟!

---

مشکلت اینه که تازه کار تشریف دارید.

نقل قول:

---

الان یه سورس دلفی باز کن ، این ابزارهای gdi کجای سورس آورده شده که شما وقتی از اول برنامه رو مینویسی تغییر میکنه ؟! ایشون میگه برنامه رو از اول بنویس ، یعنی یه چیزهایی داخل فایل های سورس ( pas , dpr , dfm ) ذخیره میشه دیگه ، حالا شما بگو این ابزارهای gdi کجای این فایل ها ذخیره میشن ما هم بدونیم

---

:لبخندساده:
ببین قرار نیست همه چی رو بصورت سورس ببینید یا خودتان uses کرده باشید خیلی از توابع و متدهای هستند که از خود سیستم عامل استفاده میکنند مثل gdi32.dll که ابزارهای لازم رو برای کارت گرافیکی فراهم میاره و لزما همه چی یک کتابخونه نیست که به exe بچسبه
و یا یکسری از کنترلهای دیگه که میتونه ارتباط سخت افزار مثلا ا ram رو فراهم کنه و خیلی چیرهای دیگه.
خواهشا وقتی چیزی در موردی مطلبی نمیدونید یا بپرسید ویا اینکه یک پیش زمینه ای داشته باشید تا بیخودی مطالب ارسالی دیگران رو مورد مضحکه ندانسته های خودتان قرار ندید.

نقل قول:

---

نوشته شده توسط a_mosavian

اصلا به سابقه تون نمی خوره که هیچی درباره معماری ویندوز و GDI ندونید!

---

خوب به سابقم نگاه نکنید ، توضیح بدید که وقتی کد رو از اول مینویسید چی میشه که این مشکل درست میشه تا افرادی مثل من هم یاد بگیرند .

یک بار دیگه پست ها رو بخون ، سورس کد چیزی نیست به جز یکسری متن که در فایلهایی متنی در غالب pas و dpr و ... ذخیره میشه ، نه بیشتر نه کمتر ، نوشتن دوباره برنامه هیچ تفاوتی در روند اجرای اون نداره .

نقل قول:

---

نوشته شده توسط tdkhakpur

مشکلت اینه که تازه کار تشریف دارید.

:لبخندساده:
ببین قرار نیست همه چی رو بصورت سورس ببینید یا خودتان uses کرده باشید خیلی از توابع و متدهای هستند که از خود سیستم عامل استفاده میکنند مثل gdi32.dll که ابزارهای لازم رو برای کارت گرافیکی فراهم میاره و لزما همه چی یک کتابخونه نیست که به exe بچسبه
و یا یکسری از کنترلهای دیگه که میتونه ارتباط سخت افزار مثلا ا ram رو فراهم کنه و خیلی چیرهای دیگه.
خواهشا وقتی چیزی در موردی مطلبی نمیدونید یا بپرسید ویا اینکه یک پیش زمینه ای داشته باشید تا بیخودی مطالب ارسالی دیگران رو مورد مضحکه ندانسته های خودتان قرار ندید.

---

خوشم میاد از انکار به جواب میرسی ؛ بابا IQU ، الان به من و شما چه که GDI چی کار میکنه ؟ تو الان تو XP مثلا مینویسی Canvas.Rectangle خوب الان وقتی میای این رو تو 7 مینویسی چه فرقی میکنه ؟ پیاده سازی اون تو بر سورس برنامه تغییر میکنه ؟ 1000 ی هم پیاده سازی GDI تو دو ویندوز با هم تفاوت داشته باشه موقع کامپایل کتابخانه ها الحاق میشن و فایل باینری خروجی این تغییرات رو به ارث میبره نه سورس ؛ به قول خودت توابع gdi32 ؛ به من و شما چه که چه طور پیاده سازی شدن ؟ شما به عنوان یک تابع داری ازش استفاده میکنی و ویندوز اون رو در پشت صحنه پیاده کرده ؛ این رو بفهم اون کتابخانه ها قبلا نوشته شدن و به سورس تو ربطی ندارن !

دوستان شما چرا دارید مسئله رو به حاشیه می کشید.

دوست عزیز آقای تاجیک من نگفتم سورس رو دویاره بنویسن؟؟؟ من گفتم یه پروژه ی دیگه باز کنند تا از اول برنامه رو بنویسن.

درضمن اگه کامپایلر خودش رو الحاق می کنه با تغییرات جدید پس چرا یه برنامه که از رشته های غیر یونیکد استفاده کرده وقتی می آید تو مثلا دلفی 2009 برای این دسته از متغییر ها ایراد میگیره؟

این مشکل در تمامیه زبان های نیتیو وجود داره حتی C++‎ پس متوجه میشیم که مشکل در زبان ها نیست بلکه در سیستم عامل و طریقه ی تولید ابزار گرافیگی است.
در ضمن در جواب دوستمان آقای عشایری بگم که این مشکل نمیتونه تو دات نت وجود داشته باشه چون دات نت خود یه پلت فرمه.
در ضمن به 64 بیت بوده یا 32 بیت بودن هم ربطی نداره.

راستی من یه جایی خوندم که ویندوز 7 یک سری از ابزار هارو به جای CPU تو GPU پردازش می کنه شاید ایراد از این باشه که اگه برنامه قبلا تو XP کامپایل شده چون پردازش ابزار گرافیکی رو به CPU میفرسته پس سرعتش در 7 فرق میکنه.

در ضمن خطاب به دوست عزیز آقای تاجیک اگه گفته ی شما در مورد فایل های ریسورس پروژه درسته پس چرا بعضی از ابزار های ویژوال کند هستند و بعضی کار عادی انجام میدن؟ مثلا ابزار های مربوط به منوها و توول بار ها در سرعتشان هیچ فرقی نمی کنند؟؟؟؟

نقل قول:

---

دوستان شما چرا دارید مسئله رو به حاشیه می کشید.

---

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

نقل قول:

---

دوست عزیز آقای تاجیک من نگفتم سورس رو دویاره بنویسن؟؟؟ من گفتم یه پروژه ی دیگه باز کنند تا از اول برنامه رو بنویسن.

---

اولا الان بحث سر صحبت 2 تا از دوستان هست که نظرشون این هست که کد باید از اول نشوته بشه ؛ دوما یک پروژه دیگه باز کنید یعنی چی ؟ یعنی این اطلاعات در جایی ذخیره شده دیگه ، اونجا کجاست ؟

نقل قول:

---

درضمن اگه کامپایلر خودش رو الحاق می کنه با تغییرات جدید پس چرا یه برنامه که از رشته های غیر یونیکد استفاده کرده وقتی می آید تو مثلا دلفی 2009 برای این دسته از متغییر ها ایراد میگیره؟

---

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

درسته که پیاده سازی GDI در دو ویندوز XP و 7 با هم متفاوت هست ولی تو طراحی GUI معمولی به شما مربوط نمیشه ، اگر اشکال رفع نمیشد میشد گفت Embarcadero این توابع رو درست پیاده سازی نکرده یا ... ، ولی شما میگی مشکل رفع میشه پس مشکل از دلفی هم نیست ، اون توابع هم که جز کتابخانه های خود دلفی هستند و شما تو هر سیستم عاملی برنامه رو کامپایل کنید بر اساس اون سیستم عامل از توابع gdi32.dll استفاده میشه !

فرض کنید تابع زیر در کتابخانه gdi32.dll در ویندوز XP قرار داره :

Procedure Test(S: String);

begin

  ShowMessage(S);

end;

با صدا زدن تابع متنی که به عنوان پارامتر به تابع ارجاع داده شده نمایش داده میشه ، درسته ؟ حالا فرض کنید این تابع در ویندوز 7 به شکل زیر تغییر پیدا کرده :

Procedure Test(S: String);

begin

  ShowMessage(S +'test');

end;

حالا با صدا زدن این تابع رشته test به پارامتر ورودی الحاق میشه و بعد نمایش داده میشه ، حالا این پیاده سازی که تو Dll هست به برنامه شما چه ربطی داره ؟ شما داری فقط ازش استفاده میکنی .

دیگه موندم چه طور بگم ...

نقل قول:

---

راستی من یه جایی خوندم که ویندوز 7 یک سری از ابزار هارو به جای CPU تو GPU پردازش می کنه شاید ایراد از این باشه که اگه برنامه قبلا تو XP کامپایل شده چون پردازش ابزار گرافیکی رو به CPU میفرسته پس سرعتش در 7 فرق میکنه.

---

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

نقل قول:

---

در ضمن خطاب به دوست عزیز آقای تاجیک اگه گفته ی شما در مورد فایل های ریسورس پروژه درسته پس چرا بعضی از ابزار های ویژوال کند هستند و بعضی کار عادی انجام میدن؟ مثلا ابزار های مربوط به منوها و توول بار ها در سرعتشان هیچ فرقی نمی کنند؟؟؟؟

---

کدوم گفته ؟ من گفتم اگر قرار باشه ایراد از پروژه باشه ممکنه تنضیماتی تو فایل های کامپایل شده ( dcu و ... ) یا ریسورس پروژه باشه که موجب بروز این مشکل میشه ؛ قبل از دادن پست متن رو دقیقا بخونید و سریع موضع نگیرید .

نقل قول:

---

در ضمن در جواب دوستمان آقای عشایری بگم که این مشکل نمیتونه تو دات نت وجود داشته باشه چون دات نت خود یه پلت فرمه.

---

من گفتم که نمونه این مشکل رو در دات نت هم دیده ام. در ضمن توجه داشته باشید که این موضوع چندان هم بی ارتباط با موضوع نیست، چون همانطور که می دانید پلت فرم .net هم برای این که کارش را به درستی انجام دهد به یک سیستم عامل نیاز دارد و در اینجا هم منظور من ویندوز است. به هر حال به نظر من شاید این موضوع هم در این مورد دخیل باشد! :متفکر:

نقل قول:

---

در ضمن به 64 بیت بوده یا 32 بیت بودن هم ربطی نداره.

---

چرا ربطی نداره؟ آیا شما در مورد این ادعای خود دلایل محکمه پسندی دارید که ما از آن بی اطلاع هستیم؟؟؟ :متفکر: اگر به این راحتی و بدون دلایل محکم می گویید که فلان چیز دلیلش چیست، پس لطفاً بگویید که چگونه باید این مشکل را برطرف کرد؟؟؟

نقل قول:

---

شما به عنوان یک تابع داری ازش استفاده میکنی و ویندوز اون رو در پشت صحنه پیاده کرده ؛ این رو بفهم اون کتابخانه ها قبلا نوشته شدن و به سورس تو ربطی ندارن !

---

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

نقل قول:

---

حالا با صدا زدن این تابع رشته test به پارامتر ورودی الحاق میشه و بعد نمایش داده میشه ، حالا این پیاده سازی که تو Dll هست به برنامه شما چه ربطی داره ؟ شما داری فقط ازش استفاده میکنی .

---

خب مشکلت همینه .
ما که نگفتیم کارش رو درست انجام نمیده منظور اینه که این dll موجود در 7 با اون dll ای که داخل ورژنهای دیگه از xp استفاده میشه شاید تفاوت تحلیل و کدینگ داره که باعث کندی میشه.

نقل قول:

---

من گفتم اگر قرار باشه ایراد از پروژه باشه ممکنه تنضیماتی تو فایل های کامپایل شده ( dcu و ... ) یا ریسورس پروژه باشه که موجب بروز این مشکل میشه

---

چه ربطی به dcu داره یعنی میگید ویندوز یه سری آپد کد با سرعت جایگزین میکنه که میگید مجدد کامپایل بشه؟

نقل قول:

---

ما که نگفتیم کارش رو درست انجام نمیده منظور اینه که این dll موجود در 7 با اون dll ای که داخل ورژنهای دیگه از xp استفاده میشه شاید تفاوت تحلیل و کدینگ داره که باعث کندی میشه.

---

خوب عزیز من وقتی اون بحث تابع رو قبول داری پس با این اوصاف مشکل نباید رفع بشه ؛ خوب اگر تفاوت تحلیل و ... داشته باشه پس نباید مشکل رفع بشه چون شما به سورس DLL دسترسی ندارید ؛ پس برای چی میگی وقتی از اول پروژه رو بنویسی درست میشه ؟! :گیج:

نقل قول:

---

چه ربطی به dcu داره یعنی میگید ویندوز یه سری آپد کد با سرعت جایگزین میکنه که میگید مجدد کامپایل بشه؟

---

خیر ؛ مثل اینکه تاپیک رو کامل مطالعه نکردی ، ایشون گفتن پروژه رو از اول ایجا کنید ، من گفتم ربطی نداره و اگر تنضیماتی قرار باشه ذخیره شده باشه در فایل کامپایل شده هست و گفتم ممکنه فایل های dcu کامپایل شده تنضیمات خاصی دارن که با کامپایل مجدد درست میشن .

نقل قول:

---

پس برای چی میگی وقتی از اول پروژه رو بنویسی درست میشه ؟! :گیج:

---

مثل اینکه قاطی کردی! کدوم پست این مطلب رو ارسال نموده ایم فدایت بشوم؟

نقل قول:

---

نوشته شده توسط tdkhakpur

مثل اینکه قاطی کردی! کدوم پست این مطلب رو ارسال نموده ایم فدایت بشوم؟

---

پس شما کلا منظور رو اشتباه متوجه شدی ؛ پست شماره 7 و 8 رو بخون ، من در جواب پست شماره 7 اون پست رو دادم و شما اشتباه فکر کردی که من میگم تفاوتی در پیاده سازی نیست در صورتی که من گفتم تفاوت در این شرایط ربطی به برنامه نویس نداره .

دوست عزیزی که تاپیک رو ایجاد کردید آیا مشکلتون با این همه بحثی که اینجا شد حل شده یا خیر!؟
خواستم بپرسم برنامه شما از زبان فارسی استفاده میشه و اینکه برای تغییر زبان اقدامی (کد) هم انجام دادید!؟
برای من همین مشکل پیش اومد و اون هم مربوط بود به کدی که تغییر زبان میدادم به زبان فارسی!
اون کد رو حذف کردم و مشکلم حل شد و جالب اینجاست که وقتی وارد برنامه میشم بدون کد تغییر زبان ، موقع فوکوس روی کنترل تایپ، خودش فارسی میشه!!!
ولی وقتی یک پروژه جدید خواستم تعریف کنم برای برنامه دیگه این اتفاق نیوفتاد!:متفکر:

نقل قول:

---

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

---

چرا آشنایی ندارم؟؟؟؟؟؟
اولا که هر کلاسی ممکن از چندین کلاس پشت سر هم مشتق شده باشه.
دوما شاید در ورژن جدید کلاس کد های نسخه قبلی رو مد نظر گرفته باشند.

نقل قول:

---

درسته که پیاده سازی GDI در دو ویندوز XP و 7 با هم متفاوت هست ولی تو طراحی GUI معمولی به شما مربوط نمیشه ، اگر اشکال رفع نمیشد میشد گفت Embarcadero این توابع رو درست پیاده سازی نکرده یا ... ، ولی شما میگی مشکل رفع میشه پس مشکل از دلفی هم نیست ، اون توابع هم که جز کتابخانه های خود دلفی هستند و شما تو هر سیستم عاملی برنامه رو کامپایل کنید بر اساس اون سیستم عامل از توابع gdi32.dll استفاده میشه !

---

اما امکان این هم هست که زبان برنامه نویسی با توجه به ورژن پروژه به جای اینکه بخواد از GDI سیستم عامل جدید استفاده کنه دیگه تغییر نده که همیشه نسخه های بالای ویندوز کلاس های ورژن های پایین تر رو ساپرت می کنند.

نقل قول:

---

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

---

خوب جوابی که شما دادین چه ربطی به نوشته ی من داشت؟ من نمیدونم؟؟؟؟ متن رو دوباره بخونید لطفا.

نقل قول:

---

کدوم گفته ؟ من گفتم اگر قرار باشه ایراد از پروژه باشه ممکنه تنضیماتی تو فایل های کامپایل شده ( dcu و ... ) یا ریسورس پروژه باشه که موجب بروز این مشکل میشه ؛ قبل از دادن پست متن رو دقیقا بخونید و سریع موضع نگیرید .

---

مثل اینکه شما خودتون متن رو نخوندین!!؟؟؟؟ من کی گفتم مشکل از پروژه است که شما بررسی فایل های DCU رو پیشنهاد می کنید؟ من گفتم احتمالا(متن دقیقش این بود: :من فکر می کنم") سیستم عامل جور دیگه ابزار هارو پیاده سازی و پراسس میکنه.آیا من حرفی از کد برنامه و متد و یا فایل های پروژه کردم؟؟؟؟ من گفتم اجزاءها که انگلیسیش میشه : "Component" تازه اونم ویژاوالش .

نقل قول:

---

من گفتم که نمونه این مشکل رو در دات نت هم دیده ام. در ضمن توجه داشته باشید که این موضوع چندان هم بی ارتباط با موضوع نیست، چون همانطور که می دانید پلت فرم .net هم برای این که کارش را به درستی انجام دهد به یک سیستم عامل نیاز دارد و در اینجا هم منظور من ویندوز است. به هر حال به نظر من شاید این موضوع هم در این مورد دخیل باشد! :متفکر:

---

بله شما درس می فرمایید خود دات نت یک پلت فرمی هست که برای تکمیل شدنش به یک سیستم عامل ربط داره. البته این رو هم در نظر بگیرین که دات نت اجزاء ساخت رو خودش در اختیار زبان برنامه نویسی قرار میده که این زیادی تو تغییراتی که ما بحث می کنیم نمیتونه دخیل باشه. اگه توجه داشته باشید وقتی یک برنامه رو دات نت 2 می نویسید و وقتی اون رو به دات نت مثلا 3.5 منتقل می کنید مشکلی برا سورس پیش نمیاد حتی اگه سیستم عامل به هنگام کامپایل فرق کرده باشه.

نقل قول:

---

چرا ربطی نداره؟ آیا شما در مورد این ادعای خود دلایل محکمه پسندی دارید که ما از آن بی اطلاع هستیم؟؟؟ :متفکر: اگر به این راحتی و بدون دلایل محکم می گویید که فلان چیز دلیلش چیست، پس لطفاً بگویید که چگونه باید این مشکل را برطرف کرد؟؟؟

---

بله دارم.
چون در سیستم عامل های 64 بیتی کلاس های کاری 32 بیتی برای توسعه دهندگان نرم افزار تعبیه شده. با یک مثال میگم :شما اگر رو ویندوز XP 64 بیت دلفی 32 بیت نصب کنید بی هیچ مشکلی میتونید برنامه بنویسید.
البته اینم بگم که اگه زبان برنامه نویسی شما محضا 64 بیت باشه دیگه این قاعده بی فایده است.


راستی خطاب به آقای تاجیک : اگه گفته ی شما درست باشه و داخل متد ها اگر فرق کنه برنامه در هنگام کامپایل خودش الحاق میکنه پس چرا اگه یک چنین برنامه هایی رو که فقط فایل EXE باشن رو هم باز هم تو ویندوز 7 کند اجرا میکنه؟؟؟؟
ایندفعه که دیگه سورسی در کار نیستتتتتتتتتتتتتتتتتت؟؟؟؟
و این مربوط به دلفی هم نمیشه من گفتم زبان های Native همش این مشکل رو دارند.

لازم شد منم یک چیز رو بگم کلا مشکل از ویندوز 7 هست نه کمپایل و سورس کار ما برای مثال شما الان زبان سیستمون رو EN هست حالا با تابع LoadKeyboardLayout تعریف کنید که زبان فعلی سیستم که مثلا EN هست رو به زبان دیگری مانند FA تغییر بده ایندفعه وقتی روی دکمه کلیک میکنید تا زبان فعلی سیستم رو از EN به FA تغییر بده برای یک ثانیه برنامه فریز میشه و مکث کوچیک میکنه تا زبان ویندوز رو تغییر بده در صورتی که این مشکل تو ویندوز XP مشاهده نمیشه

نقل قول:

---

اولا که هر کلاسی ممکن از چندین کلاس پشت سر هم مشتق شده باشه.
دوما شاید در ورژن جدید کلاس کد های نسخه قبلی رو مد نظر گرفته باشند.

---

در ورژن جدید چی کدهای قبلی رو مد نظر گرفته باشند ؟

نقل قول:

---

اما امکان این هم هست که زبان برنامه نویسی با توجه به ورژن پروژه به جای اینکه بخواد از GDI سیستم عامل جدید استفاده کنه دیگه تغییر نده که همیشه نسخه های بالای ویندوز کلاس های ورژن های پایین تر رو ساپرت می کنند.

---

آقا خوب ما هم میگیم این ورژن کجا ذخیره میشه ، به ما هم بگید .

نقل قول:

---

خوب جوابی که شما دادین چه ربطی به نوشته ی من داشت؟ من نمیدونم؟؟؟؟ متن رو دوباره بخونید لطفا.

---

ربط داشت ، جناب عالی گفتی شاید به خاطر این هست که برنامه قبلا در XP کامپایل شده ، در صورتی که من قبلا همین رو گفتم و گفتید که باید پروژه از اول ایجاد بشه !

نقل قول:

---

مثل اینکه شما خودتون متن رو نخوندین!!؟؟؟؟ من کی گفتم مشکل از پروژه است که شما بررسی فایل های DCU رو پیشنهاد می کنید؟ من گفتم احتمالا(متن دقیقش این بود: :من فکر می کنم") سیستم عامل جور دیگه ابزار هارو پیاده سازی و پراسس میکنه.آیا من حرفی از کد برنامه و متد و یا فایل های پروژه کردم؟؟؟؟ من گفتم اجزاءها که انگلیسیش میشه : "Component" تازه اونم ویژاوالش .

---

مثل اینکه اصلا تو باغ نیستی ، دقیقا پست ها رو بخون ببین چی گفتی چی نگفتی .

حرف من این هست که نوشتن برنامه یا ایجاد پروژه در یک ویندوز با ویندوز دیگه فرق نمیکنه چون سورس کد صرفا چندتا فایل متنی هستند و این کامپایل شدن سوسرس هست که تو 2 تا ویندوز مختلف متفاوت هست .

نقل قول:

---

راستی خطاب به آقای تاجیک : اگه گفته ی شما درست باشه و داخل متد ها اگر فرق کنه برنامه در هنگام کامپایل خودش الحاق میکنه پس چرا اگه یک چنین برنامه هایی رو که فقط فایل EXE باشن رو هم باز هم تو ویندوز 7 کند اجرا میکنه؟؟؟؟
ایندفعه که دیگه سورسی در کار نیستتتتتتتتتتتتتتتتتت؟؟؟؟

---

پسر خوب ، مشکلت همین جاست که پست ها رو درست نمیخونی و میای موضع میگیری ؛ اولا شما میگی تو ویندوز XP درست کار میکنه و تو 7 به این مشکل بر میخوره در این صورت استفاده از کلمه باز هم چیه ؟!

دوما شما گفتی پروژه از نو اجرا بشه من گفتم ربطی نداره چون در داخل سورس چیز خاصی ذخیره نمیشه و گفتم اگر با ایجاد پروژه جدید مشکل برطرف میشه امکان داره در زمان کامپایل اطلاعاتی به فایلهای کامپایل شده ( dcu و ... ) الحاق میشه که اون مشکل رو پیش میاره ، دیگه نمیدونم به چه زبونی بگم !

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

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

nدوست عزیز انگار شما به حد کافی مغرور هستین که حرف 4 نفر رو که در فروم دارن میزنند رو قبول نمی کنید.

حالا من می خوام یه کاری کنم که خیاله همرو راحت کنم : من یه برنامه کوچک دارم که با دلفی 2009 نوشته شده و تو ویندوز XP هم کامپایل شده و در XP و Vista و ورژن های پایین درست کار میکنه ولی در ویندوز 7 سرعت نمایش بعضی کامپننت هاش خیلی پایین.

من امروز این پروژه رو تو سیستم خودم که ویندوز 7 داره دوباره کامپایل و اجرا کردم و دیدم که بازم کند کار میکنه.
بعد تصمیم گرفتم نظر شما در مورد فایل های DCU رو روش اعمال کنم و همه ی تنظیمات رو چک کردم و همه ی فایل های DCU پروژه رو پاک کردم و دوباره کامپایل کردم ولی باز هم کند کار کرد.

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

اگه بتونی ثابت کنی که برنامه رو با توجه به حرف هایی که زدی درست کردی من تو همین تاپیک ازت معذرت می خوام.

حالا این پروژه را دانلود کن و بعد از این که درست کردی بذار تا ما هم دانلود کنیم ببنیم تو کجا ایراد داریم یا شاید ما اصلا برنامه نویس نیستیم که شما اینقدر به ما توهین می کنید.....

اینم لینک :
http://up.iranblog.com/images/12k0m3w15f3vhbk1hpl.rar

منتظریم...................

نقل قول:

---

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

---

کدوم 4 نفر ؟
آقای خاکپور یک حرفی زد و معلوم شد اشتباه برداشت کرده ( پست شماره 22 این رو ثابت میکنه ) ؛ کاربر a_mosavian هم یک حرفی زد و رفت ، اگر براش دلیل داره من هنوز حاظرم جواب بدم ، الان فقط جناب عالی روی این گفته اصرار داری که جوابت در زیر اومده :

نقل قول:

---

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

---

برای اینکه مطمئن بشی از اول ننوشتم فایل dpr پروژت رو باز کن و خط Application.BiDiKeyboard:='00000429' رو Comment کن یعنی کد فایل پروژت میشه :

program Project1;



uses

  Forms,

  Unit1 in 'Unit1.pas' {Asli},

  Unit2 in 'Unit2.pas' {AddCantact},

  Data1 in 'Data1.pas' {dm1: TDataModule},

  Unit3 in 'Unit3.pas' {search},

  About in 'About.pas' {Aboutfrm};



{$R *.res}



begin

  Application.Initialize;

  //Application.BiDiKeyboard:='00000429';

  Application.NonBiDiKeyboard:='00000409';

  Application.MainFormOnTaskbar := True;

  Application.Title := 'ntjv]i jgtk lahyg';

  Application.CreateForm(TAsli, Asli);

  Application.CreateForm(TAddCantact, AddCantact);

  Application.CreateForm(Tdm1, dm1);

  Application.CreateForm(Tsearch, search);

  Application.CreateForm(TAboutfrm, Aboutfrm);

  Application.Run;

end.

حالا برنامه رو اجرا کن ، نتیجه چی شد ؟

اینکه چرا با استفاده از این کد این مشکل پیش میاد بحثش جداست و باید بررسی کرد و راه حلی براش پیدا کرد ولی چیزی که واضح هست این هست که هیچ ربطی به نوشتن برنامه در سیستم عامل n نداره !

نقل قول:

---

حالا این پروژه را دانلود کن و بعد از این که درست کردی بذار تا ما هم دانلود کنیم ببنیم تو کجا ایراد داریم یا شاید ما اصلا برنامه نویس نیستیم که شما اینقدر به ما توهین می کنید.....

---

تو پست هام نمیبینم که به کسی توهین کرده باشم ؛ به خودم هم مغرور نیستم ولی از چیزی که ازش اطمینان دارم دفاع میکنم ، این حرف که ایجاد پروژه تو این ویندوز با اون ویندوز متفاوت هست اصلا معنایی نداره ، به جز اون دلایلی که آوردم اگر حرفتون درست بود به 2 روز نکشیده 100 نفر اینجا من رو به صلیب میکشیدن که داری اشتباه میکنی .

میشه بفرمایید دقیقا کدوم کامپوننتهاش کنده!؟
بنده که کندی در اون مشاهده نکردم!

نقل قول:

---

نوشته شده توسط mohsen24000

میشه بفرمایید دقیقا کدوم کامپوننتهاش کنده!؟
بنده که کندی در اون مشاهده نکردم!

---

کلا سرعت برنامه پائین هست ( ویندوز 7 ) ، مثلا از منوی " جست و جوی مخاطب " گزینه " با نام موئسسه " رو انتخاب کنید .

- با بررسی هایی که انجام دادم این مشکل زمانی پیش میاد که اولین بار هر فرم رو باز کنید ، دارم روش کار میکنم .

خوب عزیز ما هم مشکلمون اینه که چرا کلا سرعت برنامه در ویندوز 7 پایین؟

مخصوصا اگه همون کد پروژه را مینویسیم؟

ابته من ازتون معذرت هم میخوام که مسئله را کش دادم.ولی چرا پروژه را وقتی از اول می نویسیم درست میشه؟

نقل قول:

---

نوشته شده توسط مجتبی تاجیک

کدوم 4 نفر ؟
آقای خاکپور یک حرفی زد و معلوم شد اشتباه برداشت کرده ( پست شماره 22 این رو ثابت میکنه )

---

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

نقل قول:

---

حرف من این هست که نوشتن برنامه یا ایجاد پروژه در یک ویندوز با ویندوز دیگه فرق نمیکنه چون سورس کد صرفا چندتا فایل متنی هستند و این کامپایل شدن سوسرس هست که تو 2 تا ویندوز مختلف متفاوت هست

---

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

نقل قول:

---

نوشته شده توسط tdkhakpur

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

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

---

خوبی ؟
جدیدا واژه " فرق نمیکنه " یعنی بستگی داره ؟
این پست جناب عالی در جواب من هست :

نقل قول:

---

مثل اینکه قاطی کردی! کدوم پست این مطلب رو ارسال نموده ایم فدایت بشوم؟

---

اگر کسی این پست رو خوند و برداشت دیگه ای کرد به من خبر بده !

نقل قول:

---

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

---

من نگفتم صرفابه سیستم عامل بستگی داره و اصلا حرفی از وابستگی نزدم ولی برای اینکه جناب عالی روشن شی کامپایل 2 سورس مشابه به سیستم عامل و کامپایلر بستگی داره ، من گفتم نوشتن 2 سورس مشابه در دوسیتم عامل متفاوت تقاوتی با هم نداره چون سورس ها صرفا فایل های متنی هستند .

موندم چه قدر تو این بخش باید زیر سوال بری تا دست از این اخلاق مزخرفت برداری ، هر بار سر یک تاپیک میای یک بحث راه میندازی و آخر سر هم که کم میاری شروع میکنی به نوشتن خزعبلات یا کلا تو اون تاپیک پیدات نمیشه ، ماشاالله اعتماد به نفس نیست که ...

همونقدر که اون کاربر فهمید اشتباه متوجه موضوع شده برام کافی هست ، جناب عالی هم مهم نیستی چون کار همیشت هست ، وقتم خیلی بیشتر از این ارزش داره که صرف جواب دادن به پست های بی در و پیکر کسی بکنم که سابقش برای اعضای این بخش کاملا واضحه ، دیگه اینجا کاری ندارم .

آن کس که نداند و نداند که نداند در جهل مرکب ابدالدهر بماند

نقل قول:

---

نوشته شده توسط مجتبی تاجیک

من نگفتم به سیستم عامل بستگی داره ، کامپایل 2 سورس مشابه به سیستم عامل و کامپایلر بستگی داره ، گفتم نوشتن 2 سورس مشابه در دوسیتم عامل متفاوت تقاوتی با هم نداره چون سورس ها صرفا فایل های متنی هستند .

---

بالاخره چی شد این یا اون؟
از دوستان میشه منظور ایشون رو یکی توضیح بده شاید ما انشای ایشون رو متوجه نمیشیم.؟
پست شماره 27 و این هم نظر ارسالی ایشون

نقل قول:

---

حرف من این هست که نوشتن برنامه یا ایجاد پروژه در یک ویندوز با ویندوز دیگه فرق نمیکنه چون سورس کد صرفا چندتا فایل متنی هستند و این کامپایل شدن سوسرس هست که تو 2 تا ویندوز مختلف متفاوت هست

---

خب، الحمدلله یکی پیدا شد که یه نمونه کد برای reproduce کردن مشکل اعلام شده، بذاره، تا بشه مشکل رو بررسی کرد.

علت بروز اون مشکل، مقداردهی به دو خصوصیت Application.BiDiKeyboard و Application.NoBiDiKeyboard هست. اتفاقی که میافته به این صورت هست که در صورت مقدار داشتن هر کدوم از این خصوصیت ها، دلفی در زمان ورود به هر کنترل مشتق شده از TWinControl، یک بار تابع LoadKeyboardLayout رو فراخوانی میکنه. تابع LoadKeyboardLayout هم در نسخه های ویندوز سرور 2008 و ویندوز 7، دچار کاهش سرعت شده، و این مسئله رو افراد مختلف به مایکروسافت اطلاع دادند، ولی اقدامی برای رفع اون صورت نگرفته. این کاهش سرعت خیلی زیاد نیست، ولی وقتی برای هر کنترلی که فوکس میگیره، این تابع مرتبا فراخوانی بشه، تاخیر بوجود اومده محسوس میشه.

علت کند شدن LoadKeyboardLayout در نسخه های جدید ویندوز اعلام نشده، ولی اینطوری که من بررسی کردم، این تابع در نسخه های جدید ویندوز به دفعات مقادیری رو از شاخه HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\CTF\TIP رجیستری میخونه، در حالی که در نسخه های قدیمی تر ویندوز این اتفاق نمیافته.


برای رفع مشکل...

دلفی باید به جای لود کردن مکرر Layout کیبورد، بعد از یک بار فراخوانی این تابع، مقدار برگشتی اون رو نگهداری می کرد، تا در دفعات بعدی مجبور نباشه مرتبا این تابع رو فراخوانی کنه. حالا که دلفی این کار رو نکرده، باید از خیر استفاده از Application.BidiKeyboard و Application.NonBidiKeyboard بگذرید، و خودتون یک بار تابع LoadKeyboardLayout رو فراخوانی کنید، و خروجی اون رو در برنامه ذخیره کنید، و هر جا که لازم داشتید، Layout مناسب را با استفاده از تابع ActivateKeyboardLayout فعال کنید.

نقل قول:

---

این تابع در نسخه های جدید ویندوز به دفعات مقادیری رو از شاخه HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\CTF\TIP رجیستری میخونه، در حالی که در نسخه های قدیمی تر ویندوز این اتفاق نمیافته.

---

مگه کد LoadKeyboardLayout به همراه ویندوز عرضه میشه؟!

نقل قول:

---

مگه کد LoadKeyboardLayout به همراه ویندوز عرضه میشه؟!

---

خیر، ولی این دلیل نمیشه که نشه رفتار یک نرم افزار یا بخشی از اون نرم افزار را بررسی کرد.

نقل قول:

---

خودتون یک بار تابع LoadKeyboardLayout رو فراخوانی کنید، و خروجی اون رو در برنامه ذخیره کنید، و هر جا که لازم داشتید، Layout مناسب را با استفاده از تابع ActivateKeyboardLayout فعال کنید.

---

بنده نیز در پست 24 همین تاپیک این مسئله رو عنوان کردم، حالا بفرمایید چه طوری میشه این کار رو انجام داد!؟
در ضمن چرا وقتی من همه دستورات تغییر زبان رو از پروژه ام حذف کردم باز هم موقع فوکوس روی کنترلهای مثلا TEDIT خود به خود زبان فارسی میشه!!!
با تشکر

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

نقل قول:

---

حالا بفرمایید چه طوری میشه این کار رو انجام داد!؟
در ضمن چرا وقتی من همه دستورات تغییر زبان رو از پروژه ام حذف کردم باز هم موقع فوکوس روی کنترلهای مثلا TEDIT خود به خود زبان فارسی میشه!!!

---

خطاب شما بنده نیستم ولی منظور اینه که یک بار لیست زبانهای موجود در سیستم رو در آرایه داشته باشید بعد از طریق اون آرایه زبانی را که مد نظر دارید active کنید.

نقل قول:

---

حالا بفرمایید چه طوری میشه این کار رو انجام داد!؟

---

می تونید از یک کلاس ساده مثل کد زیر استفاده کنید:

unit uKbLayoutFix;



interface



uses SysUtils, Windows;



type

  TKbLayoutFix = class

  private

    const KLF_SETFORPROCESS = $00000100;

    class var FBiDiLayoutHandle : Cardinal;

    class var FNonBiDiLayoutHandle : Cardinal;

    class var FBiDiKeyboard : string;

    class var FNonBiDiKeyboard : string;

    class procedure SetKeyboardLayout(Index: Integer; const Value: string); static;

  public

    class procedure ActivateBiDiKeyboard;

    class procedure ActivateNonBiDiKeyboard;

    class property BiDiKeyboard: string index 1 read FBiDiKeyboard write SetKeyboardLayout;

    class property NonBiDiKeyboard: string index 2 read FNonBiDiKeyboard write SetKeyboardLayout;

  end;



implementation



{ TKeyboardLayoutFix }



class procedure TKbLayoutFix.ActivateBiDiKeyboard;

begin

  if FBiDiLayoutHandle > 0 then

    ActivateKeyboardLayout(FBiDiLayoutHandle,KLF_SETFO  RPROCESS);

end;



class procedure TKbLayoutFix.ActivateNonBiDiKeyboard;

begin

  if FNonBiDiLayoutHandle > 0 then

    ActivateKeyboardLayout(FNonBiDiLayoutHandle,KLF_SE  TFORPROCESS);

end;



class procedure TKbLayoutFix.SetKeyboardLayout(Index: Integer; const Value: string);

var

  CurrentKeyboard: PChar;

  CurrentHandle : PCardinal;

begin

  CurrentKeyboard := nil;

  CurrentHandle := nil;



  case Index of

    1 :

    begin

      CurrentKeyboard := PChar(FBiDiKeyboard);

      CurrentHandle := @FBiDiLayoutHandle;

    end;



    2 :

    begin

      CurrentKeyboard := PChar(FNonBiDiKeyboard);

      CurrentHandle := @FNonBiDiLayoutHandle;

    end;

  end;



  if Value <> CurrentKeyboard then

  begin

    UnloadKeyboardLayout(CurrentHandle^);

    CurrentHandle^ := 0;

    StrPCopy(CurrentKeyboard,Value);

    CurrentHandle^ := LoadKeyboardLayout(CurrentKeyboard, KLF_ACTIVATE);

  end;

end;



end.

برای استفاده ازش، به خصوصیات BiDiKeyboard و NonBiDiKeyboard مقدار بدید، و سپس هر جا که لازم داشتید، با استفاده از متدهای ActivateBiDiKeyboard یا ActivateNonBiDiKeyboard، زبان مورد نظرتان را فعال کنید:

  TKbLayoutFix.BiDiKeyboard := '00000429';

  TKbLayoutFix.NonBiDiKeyboard := '00000409';

  TKbLayoutFix.ActivateBiDiKeyboard;

البته این متدها مثل حالت استفاده از Application.BiDiKeyboard به طور خودکار فراخوانی نمیشند. خوبی Application.BiDiKeyboard این بود که به طور خودکار، با توجه به BiDiMode هر کنترل، زبان رو تغییر می داد. اما نمیشه فعلا کاری برای اون کرد؛ تغییر سورس کد Application کار جالبی نیست. از طرف دیگه، استفاده از class helpers هم فایده ایی نداره، چون این تغییر زبان در متد CMEnter از TWinControl انجام میشه و این یک message handler به صورت private هست، و مستقیما از طرف کد ما فراخوانی نمیشه، در نتیجه تعریف class helper براش نتیجه ایی نداره.

نقل قول:

---

در ضمن چرا وقتی من همه دستورات تغییر زبان رو از پروژه ام حذف کردم باز هم موقع فوکوس روی کنترلهای مثلا TEDIT خود به خود زبان فارسی میشه!!!

---

نمیدونم، برای من که اینطوری نمیشه.

سلام
هرچند که در کل، به نظر میاد تاپیک به نتیجه رسیده، اما مشکل بعضی از برنامه‌های کامپایل شده تو XP و اجرای کند اونا تو 7، غیر از تغییر زبان کیبورد، علی القاعده، دلایل دیگه هم داره.
مثلاً برنامه‌ای که از افکت‌های تصویری کامپوننت Billenium Effects استفاده می‌کنه، توی 7، کند اجرا می‌شه. که با کمپایل مجدد اون تو خود 7، اوضاع خیلی بهتر می‌شه.

متأسفانه تاپیک با داشتن بیشتر از 40 پست، آنچنان که باید، روی موضوع اصلی (کندی اجرای برنامه‌ها در 7 نسبت به XP) نپرداخته.
البته تو پست 3 راه حلی بیان شده که اصولاً شاید بهترین راه حل باشه:

نقل قول:

---

نوشته شده توسط nilidelphi

...همون برنامرو [برنامه رو] با دلفی 2009 یا بیشتر [بالاتر] تو خود ویندوز 7 ایجاد کن و از اول بنویس...

---

ولی قسمت قرمز رنگ نقل قول بالا که البته قاعدتاً درست نیست، باعث شد که بحث بی موردی ایجاد بشه و به اصل قضیه پرداخت نشه. هرچند آقای تاجیک تو چندتا پست بیان کردن که نیازی به از اول نوشتن کد برنامه نیست، ولی لحن تند ایشون و نگاه بالا به پایین به سایر اعضا، باعث این بحث‌های بی مورد شده. این قضیه تو همون اولین پست ایشون (پست 4) دیده می‌شه:

نقل قول:

---

نوشته شده توسط مجتبی تاجیک

از اول بنویسه یا از اول کامپایل کنه ؟ اگر بگی کامپایل[،] میشه قبول کرد ولی در مورد نوشتن برنامه از اول[،] مگر سورس ذخیره شده در دو ویندوز متفاوت[،] با هم فرق میکنه ؟!

---

و یا تو پست دوم ایشون (پست 7)

نقل قول:

---

نوشته شده توسط مجتبی تاجیک

اشتباه فکر میکنی !
یعنی چی که نحوه ساخت ابزار ویژوال فرق میکنه ، ...
تنها به 2 چیز میشه شک کرد یکی تنضیمات [تنظیمات] ذخیره شده در پروژه و دیگری فایل ریسورس هست ، قبل از کامپایل تنضیمات [تنظیمات] رو بررسی کنید و فایل های dcu کامپایل شده و فایل ریسورس رو حذف و برنامه رو سیستم عامل مورد نظر کامپایل کنید .

---

هرچند تو این پست دقیقاً و به طور کامل راهکار (و احتمال قریب به یقین تنها راهکار) قابل اجرا برای رفع مشکل بیان شده، ولی باز هم تأکید می‌کنم که همون طرز نگاه، سبب شده تا دوستان دیگه، مطالبی رو ارائه کنن که خیلی نمی‌تونه درست باشه (و البته روش پافشاری هم بکنن).
تو پست 9 و 10، کار یه جورایی داره بالا می‌گیره و حتی بعد از توصیه‌های آقای عشایری و جناب استاد کشاورز (تو پستای 13 و 14)، باز هم بحث بی مورد تموم نمی‌شه.
من فکر می‌کنم که اولاً دانش هیچ کسی کامل نیست و به قولی "همه چیز را همگان دانند" و در صورتیکه چیزی رو بهتر از بقیه بلد هستیم، لزومی نداره با کسایی که از ما کمتر بلدن، بصورت تحقیر آمیز رفتار کنیم (صحبت کنیم). ثانیاً، کل این سایت برای تبادل اطلاعات علمی درست شده و فکر می‌کنم تمام اعضا، اومدن تا چیزی یاد بگیرن و چیزهایی رو هم که بلدن، در اختیار بقیه بذارن. این موضوع از شماره تعداد تشکر کردنحتی کاربری مثل استاد کشاورز هم مشخصه.
به نظر من، دوستان سایت، اگه علاقه مند هستن که با سواد بودنشون رو به بقیه ثابت کنن، بهتر این هست که توی بحث‌ها شرکت نکنن، چون اینجوری می‌شه فکر کرد که، بحث برای اونا اینقدر پیش و پا افتاده‌س که ارزش وقت گذاشتن رو براشون نداره. ولی در صورتیکه لطف بیشتری دارن، بهتره نظر صحیح (یا لااقل چیزی که فکر می‌کنن درسته) رو وارد کنند و از به رخ کشیدن سواد خودشون و به رو اوردن کم دانشی بقیه خود داری کنن.

موفق باشید.

نقل قول:

---

به نظر من، دوستان سایت، اگه علاقه مند هستن که با سواد بودنشون رو به بقیه ثابت کنن، بهتر این هست که توی بحث‌ها شرکت نکنن، چون اینجوری می‌شه فکر کرد که، بحث برای اونا اینقدر پیش و پا افتاده‌س که ارزش وقت گذاشتن رو براشون نداره. ولی در صورتیکه لطف بیشتری دارن، بهتره نظر صحیح (یا لااقل چیزی که فکر می‌کنن درسته) رو وارد کنند و از به رخ کشیدن سواد خودشون و به رو اوردن کم دانشی بقیه خود داری کنن.

---

قبل از موضع گیری بحث رو کامل مطالعه کن ؛ من چند بار گفتم نه قصد توهین دارم و نه قصد به رخ کشیدن چیزی رو ، جناب عالی تازه وارد این سایت و این بخش شدی ، انشاالله تا چند ماه دیگه به مباحث فنی! جناب خاکپور عادت میکنی ، اون وقت بیا ببینم نظرت چیه اگر میخوای زودتر با این مباحث آشنا بشی تو همین بخش مباحث فنی دیگه زیادی وجود داره !

من با یکم ابتکار تغییر زبان رو یکجور دیگه درست کردم البته باید حرفه ای درستش میکردم که نکردم میتونستم لیست تمامی زبانها رو بگیرم و بر اساس اون حلقه دور بزنه و عمل تغییر زبان با شبیه سازی ALT + SHIFT انجام بشه که این کد تنها برای ویندوزهایی که دو زبان نصبه کار میکنه و دیگه تو ویندوز 7 مکثی در کار نیست.

procedure TForm1.Button1Click(Sender: TObject);

var

Change : String;

Select : String;

GKLN: array [0..8] of Char;

i : Integer;

begin

Change := 'FA';

GetKeyboardLayoutName(GKLN);

if GKLN='00000409' then Select:='EN';

if GKLN='00000429' then Select:='FA';

if Select <> Change then

for i := 1 to 1 do

GetKeyboardLayoutName(GKLN);

if GKLN='00000409' then

keybd_event(VK_Menu,0,0,0);

keybd_event(VK_SHIFT,0,0,0);

keybd_event(VK_Menu,0,KEYEVENTF_KEYUP,0);

keybd_event(VK_SHIFT,0,KEYEVENTF_KEYUP,0);

end;

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

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

نقل قول:

---

من با یکم ابتکار تغییر زبان رو یکجور دیگه درست کردم البته باید حرفه ای درستش میکردم که نکردم میتونستم لیست تمامی زبانها رو بگیرم و بر اساس اون حلقه دور بزنه و عمل تغییر زبان با شبیه سازی ALT + SHIFT انجام بشه که این کد تنها برای ویندوزهایی که دو زبان نصبه کار میکنه و دیگه تو ویندوز 7 مکثی در کار نیست.

---

نیازی به شبیه سازی کلیدهای صفحه کلید نیست، ActivateKeyboardLayout خودش پارامترهایی برای فعال کردن Layout بعدی و قبلی داره.

نقل قول:

---

فقط مشکلی که اینجا پیش میاد اینه که برنامه خیلی بزرگه. آیا باید برای هر رویدادی این تابع فراخوانی بشه؟

---

باید ببیند که اولا آیا شما در برنامه نیازی به سوئیچ کردن بین دو زبان دارید یا نه؟ اگر دارید، آیا فقط در چند مورد محدود هست، یا در جاهای مختلفی این نیاز وجود داره؟ اگر بر فرض در نقاط متعددی به همچین چیزی نیاز دارید، می تونید در هر فرم یک کد بنویسید که وضعیت BiDiMode یک کنترل رو بررسی کنه، و بر اساس همون، متد مورد نظر را برای لود کردن Layout مناسب فراخوانی کنه. اون وقت می تونید اون کد را به رویداد OnEnter هر کدوم از کنترل های اون فرم نسبت بدید.

نقل قول:

---

نیازی به شبیه سازی کلیدهای صفحه کلید نیست، ActivateKeyboardLayout خودش پارامترهایی برای فعال کردن Layout بعدی و قبلی داره.

---

بله کاملا درسته راستش قبلش دنبال همچین تابعی گشتم ولی پیدا نکردم برای همین مجبور شدم با شبیه سازی Alt + Shift اینکار رو بکنم و در کل میخواستم نمونه کار باشه که برسونم راه دیگری وجود داره و با کدنویسی کمتر

ممنون . من فقط در یکی دومورد نیاز به تغییر زبان دارم.
ولی در ابتدای برنامه زبان رو تغییر میدم. هنگام کار در فرمهای دیگه باز زبان انگلیسی هست باز مجبورم این تابع رو صدا بزنم.؟

نقل قول:

---

ولی در ابتدای برنامه زبان رو تغییر میدم. هنگام کار در فرمهای دیگه باز زبان انگلیسی هست باز مجبورم این تابع رو صدا بزنم.؟

---

LoadKeyboardLayout فقط یک بار برای هر زبان فراخوانی بشه، کافی هست. برای ActivateKeyboardLayout، کدی که من نوشتم، زبان کیبورد کل Process را تغییر میده، ولی بررسی نکردم که آیا در هنگام ایجاد یک فرم، دلفی مجددا خودش زبان فعال فعلی را تغییر میده یا نه؛ اگر میده، مجبورید که در هنگام نمایش هر کدام از فرم ها، یک بار ActivateKeyboardLayout را برای زبان مورد نظرتان فراخوانی کنید.