مشکل با FarsiMaker

[hadi2345]

با سلام خدمت تمامی دوستان .
برای تبدیل کدپیج ویندوز به کدپیج ایران سیستم که یکی از مشکلات برنامه نویسان هست برنامه مناسبی پیدا نکردم تا اینکه کامپوننت FarsiMaker رو پیدا کردم که به نظر جالب میاد ولی متاسفانه نمیتونم ازش استفاده کنم اگه ممکنه دوستان تستش کنن و روش استفاده این OCX رو به منم بگن .
من واقعا احتیاج شدیدی به تبدیل کننده فوق دارم حالا اگه این هم نشد یه ابزار دیگه که من بتونم تو برنامه خودم ازش استفاده کنم . کدی که آقای غیبی در تاپیک مرجع حل مشکلات فارسی گذاشتن ، این مشکلو داره که با تایپ حرف به حرف کاربر ، کار میکنه در حالیکه من میخوام یک رشته رو بگیره و تبدیل کنه . البته میشه کد آقای غیبی رو تبدیل کرد که همین کارم کردم ولی متاسفانه به مشکل برخوردم .
به هرحال از دوستان عزیز ممنون میشم که کدی ، کامپوننتی ، طرز استفاده از این OCX و یا حتی اگه جدول تبدیل کاراکترها رو دارن به من بدن .
اون ابزار رو هم اینجا میذارم شاید که از طریق اون مشکل من حل بشه .

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

[hadi2345]

با سلام مجدد .

طرز استفاده از OCX :

This is the easiest to use ActiveX, You've ever seen. You
should simply drag it in your Form, Then Add your controls
to your form, such as TextBox(s), Grid(s), DBGrid(s) and
any other controls. Now it is the time of writing pice of
code to able write Farsi in your controls. Let me show
you an example:

Register FarsiMaker.OCX with Regsvr32.exe. You can find this file
from System directory of you Windows.

Make a new StandardEXE project and Drag a TextBox in your form.
TextBox will be named to Text1 automatically.

Right click on toolbox and select Components. Select FarsiMaker from
that list and click OK. Double click on the Text1 and write
follow lines:

-8<--- CUT FROM HERE ---8<------------------------------

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
PersianMaker1.KeyDown_Preview Text1, KeyCode, Shift
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
PersianMaker1.KeyPress_Preview Text1, KeyAscii
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
PersianMaker1.KeyUp_Preview Text1, KeyCode, Shift
End Sub

-8<--- CUT FROM HERE ---8<------------------------------

Now it's the time to set some properties of your controls.

Set CodePage property of PersianMaker1 to IranSystem.(For an example)
Set StartupLanguage property of PersianMaker1 to Persian.

Set Font property of Text1 to IranSystem.
Set Alignment property of Text1 to Right.

That's it! If you run your app, you will can write Farsi!!!!

موفق باشید.

[ramin_ramin]

برادر اگه میخواهی من یک کانورتور رو به صورت exe که با دلفی نوشته شده برات بزارم

[ironclip]

با سلام دوست من

دستت درد نکنه که این فرسی میک را برای ما دوستان پیدا کردی

اما برای من مشکلی هست نمیدانم چرا فارسی نمی نویسه این کدی که دادی منظورم اینه :


-8<--- CUT FROM HERE ---8<------------------------------

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
PersianMaker1.KeyDown_Preview Text1, KeyCode, Shift
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
PersianMaker1.KeyPress_Preview Text1, KeyAscii
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
PersianMaker1.KeyUp_Preview Text1, KeyCode, Shift
End Sub

-8<--- CUT FROM HERE ---8<------------------------------


منظور از این کد چیه ؟

به نظر شما مشکلی داره زبان پیش فرض سیستم من اینگلیسی هست . آیا ابن FarsiMaker.ocx با سیستم زبان پیش فرض انگلیسی کار میکنه یا نه ؟

با تشکر ....