ต้องการตัวอย่าง Delphi 6 เพื่ออัปเดตแถบความคืบหน้าระหว่างการดำเนินการส่ง TIdSmtp โดยเฉพาะอย่างยิ่งสำหรับไฟล์แนบขนาดใหญ่

TIdSMTP เข้ารหัสอีเมลได้ทันทีขณะถูกส่งไปยังเซิร์ฟเวอร์ ไม่ทราบจำนวนไบต์ทั้งหมดที่ถูกส่งล่วงหน้า วิธีเดียวที่คุณจะสามารถกำหนดค่าที่ปิดได้อย่างสมเหตุสมผลคือเข้ารหัสอีเมลเป็น TStream ชั่วคราวผ่านเมธอด TIdMessage.SaveToStream() จากนั้นรับค่าของคุณสมบัติ TStream.Size เนื่องจากคุณกำลังเข้ารหัสไฟล์แนบขนาดใหญ่ จึงต้องใช้เวลาพอสมควรและต้องใช้หน่วยความจำจำนวนมาก เนื่องจาก TIdSMTP จะเข้ารหัสอีเมลอีกครั้งในระหว่างการส่ง จึงไม่รับประกันว่าจำนวนไบต์ที่ส่งจริงจะตรงกับอุณหภูมิ TStream.Size เนื่องจากลักษณะแบบไดนามิกของส่วนหัวอีเมลต่างๆ เช่น การประทับเวลาและขอบเขต MIME

หากต้องการกำหนดจำนวนไบต์ที่ถูกส่งจริง ให้ใช้เหตุการณ์ TIdSMTP.OnWork... โดยที่พารามิเตอร์ AWorkMode จะถูกตั้งค่าเป็น wmWrite เนื่องจาก TIdSMTP.Send() ไม่ทราบล่วงหน้าว่าจะส่งจำนวนไบต์เท่าใด พารามิเตอร์ AWorkCountMax ของเหตุการณ์ TIdSMTP.OnWorkBegin จะเป็น 0 แต่อย่างน้อยคุณจะทราบเมื่อข้อมูลอีเมลจริงเริ่มเข้ารหัส/ส่ง (หลังจาก TIdSMTP ได้แลกเปลี่ยนคำสั่งหลายคำสั่งกับ เซิฟเวอร์). พารามิเตอร์ AWorkCount ของเหตุการณ์ TIdSMTP.OnWork จะเป็นจำนวนไบต์ทั้งหมดที่ส่งจริง เมื่อเหตุการณ์ TIdSMTP.OnWorkEnd เริ่มทำงาน แสดงว่าส่งอีเมลเสร็จสิ้นแล้ว

ขึ้นอยู่กับคุณสมบัติ temp TStream.Size และพารามิเตอร์ AWorkCount ของเหตุการณ์ TIdSMTP.OnWork คุณจะสามารถแสดงค่าประมาณเปอร์เซ็นต์สำหรับแถบความคืบหน้าได้ ไม่อาจรับประกันได้ว่าแม่นยำ 100% แต่ก็จะใกล้เคียง