استخدم Delphi و Kingsoft Powerword لإنشاء ترجمات Watch Word

واجهة

يستخدم

Windows ، الرسائل ، sysutils ، المتغيرات ، الفئات ، الرسومات ، عناصر التحكم ، النماذج ، الحوار ، stdctrls ، comctrls ، clipbrd ، الأزرار ، extctrls ، القوائم ؛

يكتب

tform1 = فئة (tform)

Mlist: Tmemo ؛

Rtrans: Trichedit ؛

Button1: Tbutton ؛

Timer1: تتيمر ؛

Button2: Tbutton ؛

RCONV: TRICHEDIT ؛

Button3: Tbutton ؛

OD: Topendialog ؛

Richedit3: Trichedit ؛

MainMenu1: tmainmenu ؛

F1: tmenuitem ؛

N1: tmenuitem ؛

N2: tmenuitem ؛

N3: Tmenuitem ؛

C1: tmenuitem ؛

N4: tmenuitem ؛

N5: tmenuitem ؛

RTF1: tmenuitem ؛

لوحة 1: tpanel ؛

ProgressBar1: TprogressBar ؛

Splitter1: tsplitter ؛

Splitter2: tsplitter ؛

E1: Tmenuitem ؛

N6: tmenuitem ؛

N7: tmenuitem ؛

N8: tmenuitem ؛

EDIT1: TEDIT ؛

Label1: tlabel ؛

Label2: tlabel ؛

Label3: tlabel ؛

الإجراءات button1click (المرسل: tobject) ؛

الإجراء timer1timer (المرسل: TOBJECT) ؛

الإجراءات button2click (المرسل: tobject) ؛

الإجراء button3click (المرسل: tobject) ؛

الإجراء n3click (المرسل: tobject) ؛

الإجراء n6click (المرسل: tobject) ؛

الإجراء n8click (المرسل: tobject) ؛

خاص

{إعلانات خاصة}

عام

{الإعلانات العامة}

نهاية؛

var

Form1: Tform1 ؛

i: integer = 0 ؛ // إعلان متغير عالمي لحفظ الكلمات

تطبيق

{$ r *.dfm}

// ابدأ حدث التحويل

الإجراء tform1.button1click (المرسل: tobject) ؛

يبدأ

rtrans.clear ؛ // مسح منطقة التحويل

rconv.clear ؛

timer1.Interval: = strtoint (edit1.text)*1000 ؛ // اضبط وقت الفاصل الزمني

Timer1.Endabled: = true ؛ //

ProgressBar1.Position: = 0 ؛ // اضبط حالة شريط التقدم

I: = 0 ؛

ProgressBar1.Max: = mlist.lines.count ؛

نهاية؛

الإجراء tform1.timer1timer (المرسل: tobject) ؛

var

King ، // Kingsoft Powerword 2002 Main Window Handle

التحرير والسرد ، // كلمة إدخال الإدخال مقبض النافذة الأصل

تحرير ، // مقبض مربع إدخال الكلمات

يعني: Thandle ؛ // مقبض نافذة عرض الترجمة

يبدأ

إذا كنت <= mlist.lines.count-1 ثم

يبدأ

King: = FindWindow (nil ، pchar ('Kingsoft Powerword 2002')) ؛

التحرير والسرد: = findwindowex (king ، 0 ، 'combobox' ، nil) ؛

تحرير: = findwindowex (combo ، 0 ، 'edit' ، nil) ؛

تعني: = findWindowex (King ، 0 ، 'xDict_Explainview' ، nil) ؛

// عرض المعلومات

label3.caption: = '('+inttoStr (i+1)+'/'+inttoStr (mlist.lines.count)+')'+mlist.lines [i] ؛

// معلومات التخزين

clipboard.astext: = mlist.lines [i] ؛

showwindow (king ، sw_shownormal) ؛

BringWindowtotop (King) ؛

setforegroundwindow (الملك) ؛

windows.setfocus (تحرير) ؛

// محاكاة Ctrl+V Paste

keybd_event (vk_control ، mapVirtualKey (vk_control ، 0) ، 0 ، 0) ؛

keybd_event (ord ('v') ، mapVirtualKey (ord ('v') ، 0) ، 0 ، 0) ؛

keybd_event (ord ('v') ، mapVirtualKey (ord ('v') ، 0) ، keyeventf_keyup ، 0) ؛

keybd_event (vk_control ، mapVirtualKey (vk_control ، 0) ، keyeventf_keyup ، 0) ؛

setForeGroundWindow (يعني) ؛

windows.setfocus (يعني) ؛

// Simulation Ctrl+A حدد الكل

keybd_event (vk_control ، mapVirtualKey (vk_control ، 0) ، 0 ، 0) ؛

keybd_event (ord ('a') ، mapVirtualKey (ord ('a') ، 0) ، 0 ، 0) ؛

keybd_event (ord ('a') ، mapVirtualKey (ord ('a') ، 0) ، keyeventf_keyup ، 0) ؛

keybd_event (vk_control ، mapVirtualKey (vk_control ، 0) ، keyeventf_keyup ، 0) ؛

setForeGroundWindow (يعني) ؛

windows.setfocus (يعني) ؛

// محاكاة نسخة Ctrl+C.

keybd_event (vk_control ، mapVirtualKey (vk_control ، 0) ، 0 ، 0) ؛

keybd_event (ord ('c') ، mapVirtualKey (ord ('c') ، 0) ، 0 ، 0) ؛

keybd_event (ord ('c') ، mapVirtualKey (ord ('c') ، 0) ، keyeventf_keyup ، 0) ؛

keybd_event (vk_control ، mapVirtualKey (vk_control ، 0) ، keyeventf_keyup ، 0) ؛

windows.setfocus (rtrans.handle) ؛

// محاكاة Ctrl+V Paste

keybd_event (vk_control ، mapVirtualKey (vk_control ، 0) ، 0 ، 0) ؛

keybd_event (ord ('v') ، mapVirtualKey (ord ('v') ، 0) ، 0 ، 0) ؛

keybd_event (ord ('v') ، mapVirtualKey (ord ('v') ، 0) ، keyeventf_keyup ، 0) ؛

keybd_event (vk_control ، mapVirtualKey (vk_control ، 0) ، keyeventf_keyup ، 0) ؛

rtrans.lines.add ('============================'+#13) ؛

ProgressBar1.stepit ؛ // تحركات شريط التقدم

INC (I) ؛ // زيادة العد

إنهاء آخر

يبدأ

Timer1.Enabled: = false ؛

rtrans.lines.savetofile ('temp.txt') ؛

نهاية؛

نهاية؛

// اقرأ قائمة الكلمات في Mlist

الإجراء tform1.button2Click (المرسل: tobject) ؛

يبدأ

إذا od.execute ثم

mlist.lines.loadfromfile (od.filename) ؛

نهاية؛

// وظيفة التحويل ، لأنه لا يمكن عرض الرموز الصوتية بشكل صحيح في الترجمة التي تم الحصول عليها في rtrans

// يجب أولاً تثبيت الخط الصوتي العادي في دليل الخط في Kingsoft Powerword

// تنفيذ العرض الصحيح للرموز الصوتية

الإجراء tform1.button3click (المرسل: tobject) ؛

var

أنا: عدد صحيح.

ابدأ ، ينتهي: عدد صحيح ؛

يبدأ

rconv.clear ؛

لأني : = 0 إلى rtrans.lines.count-1 تفعل

يبدأ

RichEdit3.text: = rtrans.lines [i] ؛

ابدأ: = pos ('[' ، richedit3.text) ؛ // ابحث عن موضع الرمز الصوتي ، والرمز الصوتي في [] []

إذا ابدأ> 0 ثم

يبدأ

ينتهي: = pos (']' ، richedit3.text) ؛

Richedit3.selstart: = ابدأ ؛

RichEdit3.SellNength: = نهايات start-1 ؛

RichEdit3.seLattributes.name: = 'Kingsoft phonetic plain' ؛

نهاية؛

Richedit3.selectall ؛

Richedit3.CopyToclipboard ؛

rconv.pastefromclipboard ؛

Application.ProcessMessages ؛

نهاية؛

نهاية؛

// خروج البرنامج

الإجراء tform1.n3click (المرسل: tobject) ؛

يبدأ

application.layinate ؛

نهاية؛

// copy function

الإجراء tform1.n6click (المرسل: tobject) ؛

يبدأ

rconv.selectall ؛

rconv.copytoclipboard ؛

نهاية؛

// توقف عن التحويل

الإجراء tform1.n8click (المرسل: tobject) ؛

يبدأ

Timer1.Enabled: = false ؛

نهاية؛

نهاية.

حسنًا ، حتى الآن ، تم تصميم جميع البرامج.

كيفية الجري:

تأكد من تشغيل "Kingsoft Powerword 2002" مع هذا البرنامج.

حسنًا ، لقد نجحت في ترجمة 600 كلمة وطباعتها على الورق.

كيفية الحصول على البرامج القابلة للتنفيذ والرمز المصدر:

يمكنك أن ترسل لي بريدًا إلكترونيًا: [email protected]

أو قم بتسجيل الدخول إلى موقعي واترك رسالة: http://redlegend.51.net