โดย โชติพันธุ์ หล่อเลิศสุนทร
ความสามารถของการเขียนโปรแกรมในลักษณะ Active X Automation อีกประเภทหนึ่งที่ Visual Basic 5.0 สามารถนำมาใช้งานได้ดี นอกจากการเรียกใช้งานกับ MS Office 97 หรือ Visio อี่น ๆ เรานำมาประยุกต์เข้ากับแฟกซ์ซอฟรแวร์ ซึ่งทางบริษัท ไอโซเน็ท จำกัด เป็นตัวแทนจำหน่ายแฟกซ์ซอฟรแวร์ประเภทนี้ได้แก่ Faxport / Winport , FACSys และ FaxSr เป็นต้น
ในบทความนี้ผมจะแนะนำการสร้าง Fax Object เพื่อเรียกใช้กลุ่ม Properties และ Method ต่าง ๆ ของ Fax Object นี้ มาดูโครงสร้างของ Fax Object ในรูปที่ 1 แสดงการติดต่อระหว่าง Fax Server กับ Fax Client ผ่านเน็ตเวิร์ค อาศัย Protocol ชนิด TCP/IP , UDP , IPX/SPX และ NETBEUI เป็นต้น การใช้งานโดยรวมก็คือ เป็นการจัดการเกี่ยวกับเอกสารแฟกซ์ต่าง ๆ ผ่านเครื่อง Client ที่ต้องการส่งเอกสารแฟกซ์ออกไปยังปลายทางตามเวลาที่กำหนด หมายเลขแฟกซ์ที่ต้องการ หรือสำหรับการรับเอกสารจากต้นทางก็ช่วยประหยัดเวลา ค่าใช้จ่ายต่าง ๆ เช่น กระดาษแฟกซ์ เป็นต้น
รูปที่ 1 ลักษณะทั่วไปเกี่ยวกับการติดต่อสื่อสาร Fax Client / Server
ในส่วนของ Fax Client แบ่งเป็นส่วนได้ดังนี้
รูปที่ 2 เป็นโครงสร้างของ Fax Object
สำหรับการสร้าง Application ในลักษณะ Active X Automation กับ Fax Object เราเริ่มจากอ้างถึง ไฟล์ Library ของ Fax Object เพื่อที่จะนำมาใช้สร้าง Object ในโปรแกรมหลังจากประกาศตัวแปรไว้แล้วดังตัวอย่างต่อไปนี้
จากนั้นก็ทำการสร้าง Fax Object ตัวแปรขึ้นเพื่อที่จะนำกลุ่ม Properties และ Method ต่าง ๆ มาใช้งานดังตัวอย่างต่อไปนี้
หลังจากทำการสร้างตัวแปร Fax Object เสร็จสิ้นแล้วเราก็สามารถนำมาใช้งานเช่น ทำการ Login ตามรายชื่อของผู้มีสิทธิใช้ Fax Client ดังนี้
objFaxSession.Logon ชื่อ Server , ชื่อผู้ใช้ , รหัสผ่าน
ต่อไปนี้เรากำหนดตัวแปร Fax Object เพิ่มเติมคือ
ทำการสร้างตัวแปร Message Object สำหรับจัดเตรียมข้อความที่ต้องการจัดส่ง
| Set objMessage = objFaxSession.CreateMessage ( สร้างตัวแปรกลุ่ม Message ) |
| objMessage.Subject = Subject ( กำหนดหัวเรื่อง ) |
| objMessage.Text = MessageText ( กำหนดข้องความที่ต้องการส่ง ) |
| objMessage.Attachments.Add FileName ( กำหนดชื่อไฟล์ที่ต้องการจัดส่งเพิ่ม ) |
เลือกรายชื่อผู้ที่ต้องการส่งเอกสารแฟกซ์
| Set objRecip = objMessage.Recipients.Add ( สร้างตัวแปรกลุ่ม Recipients ) |
| objRecip.Name = RecipName ( เลือกชื่อผู้ส่ง ) |
| objRecip.FaxNumber = FaxNumber ( เลือกหมายเลขแฟกซ์ ) |
ทำการส่งเอกสารแฟกซ์โดยเรียก Send Method ผ่าน Message Object ดังนี้
ขั้นตอนสุดท้ายก็อย่าลืมกำหนดตัวแปร Object ทุกตัวให้มีค่าเป็น Nothing ก็สิ้นสุดกระบวนการประยุกต์ใช้ Fax Object กับ Visual Basic 5.0 ซึ่งหลักการดังกล่าวทั้งนี้ก็คือ Active X Automation นั่นเอง
