TWebBrowser เป็นคอมโพเนนท์ ที่มีฟังก์ชั่นในการทำงานที่เป็น Web Browser
โดยจะมีการใช้งาน Microsoft?s Shell Doc Object และ Control Library (SHDOCVW.DLL)
ทำให้สามารถที่จะใช้คอมโพเนนท์ตัวนี้ในการสร้างโปรแกรม ที่มี ความสามารถเช่นเดียวกับ
IE (Internet Explorer)
หากคุณเป็นคนนึง ที่สนใจและศึกษาถึงวิธีการเขียนโปรแกรมบนอินเตอร์เน็ต
โดยใช้ Delphi คุณอาจเคยพบกับปัญหา การ Run โค้ดจากอินเตอร์เน็ต ไม่ผ่านและมีการแจ้งข้อผิดพลาดว่า
[Fatal Error] DelphiBand.dpr(8): File not found: 'SHDocVw_TLB.dcu'
การที่ Delphi แจ้งช้อผิดพลาดเช่นนี้ ก็เพราะว่าโค้ดที่คุณได้ทำการดาว์นโหลดมานั้น
มีการเรียกใช้ TWebBrowser หรือ ส่วนอื่นๆ ที่ได้มีการอัพเดตคอมโพเนนท์แล้ว
ต่อไปผมจะแนะนำถึงวิธีการอัพเดต TWebBrowser ซึ่งเมื่อทำการอัพเดตแล้วเรา
จะได้ไฟล์ shdocvw_Tlb.pas กับไฟล์ mshtml_tlb.pas และจะสามารถ Run โค้ดที่ต้องการได้
โดยไม่เกิดข้อผิดพลาดนั้นอีก
ก่อนอื่น ต้องทำการตรวจสอบว่าคุณได้ทำการติดตั้ง
Update
Pack 1 for Delphi 5 แล้วหรือไม่ โดยทำการเลือกที่เมนู Help->About.
ถ้ามีการติดตั้งเอาไว้แล้วจะมีข้อความ "Update Pack 1" อยู่ด้านหลังของ
version number แต่ถ้าไม่มี
คุณจะต้องทำการดาว์นโหลดมาติดตั้งก่อนทำการอัพเดต
ขั้นตอนในการอัพเดต
TWebBrowser
1. เลือกที่เมนู Component>Install
Packages...
2. เลือกช่อง Internet
Explorer Components ที่อยู่ใน Design package list ตามรูป
3. คลิ้ก "Remove"
แล้วคลิ้ก"Yes" เพื่อยืนยันการถอดถอน dclie50.bpl ออกจาก
design package list.
4. คลิ้ก "Ok"
แล้วปิดหน้าต่าง Install packages
5. เลือกเมนู Project->Import
Type Library.
6. เลือก Microsoft
Internet Controls จากรายชื่อ
7. คลิ้กปุ่ม "Install".
8. ที่หน้าต่าง Install
เลือกแท็ป"Into new package" แล้วป้อนค่า ดังรูป:
9. คลิ้กปุ่ม "OK"
และ "Yes" เพื่อยืนยันการติดตั้งแพ็กเกจ IE55.bpl
จะมีหน้าต่างแสดงรายชื่อคอมโพเนนท์
2 คอมโพเนนท์ที่ได้ทำการติดตั้งลงใน Component palette:
10. ทำการปิดหน้าต่างของแด็กเกจ
IE55 กดปุ่ม "save"
11. เลือกเมนู Project->Import
Type Library....
12. ทำการเลือก
Microsoft HTML Object Library จากหน้าต่าง
13. เลือกแท็ป into existing
package แล้วทำการเลือกไฟล์แพ็กเกจ "IE55.DPK" ที่ได้จากขั้นตอนต่างๆที่ผ่านมา
14. แล้วคลิ้กปุ่ม "OK"
และปุ่ม "Yes" เพื่อยืนยัน ,คอมโพเนนท์ TScriptlet จะถูกเพิ่มเข้ามาใน
Component palette
15.ปิดหน้าต่าง Package
IE55 แล้วทำการบันทึก
|