Delphi 7 ก็ส่ง Line Notify ได้นะ ตอนที่ 2

หากใครที่ยังไม่ได้อ่านตอนก่อนหน้า
Delphi 7 ก็ส่ง Line Notify ได้นะ ตอนที่ 1

เมื่อพบแล้วก็ทำการ Download เอามาลองใช้งาน จากหน้า Download ของเขาจะมี Demo ให้ใช้เป็นตัวอย่างด้วยนะ

ดูทรงแล้วดีมากๆ แต่ พอ Download Demo มาดูยังไม่ใช่ที่เราต้องการ เนื่องจาก ของเราจะมีการส่ง Param เข้าไปด้วยเช่น Token ของ Line Notify จึงต้องทดลองเขียนเอาเอง

จากการ Google ก็พบว่ามีตัวอย่างเรื่องนี้น้อยมากๆ แต่ก็พอได้เบาแสมาบ้าง อยากได้ลูกเสือก็ต้องเข้าถ้ำเสือ ไปกันครับ

เริ่มจากต้องหา Component เป็น HTTP กับ HTTP Request มาวางใน Form ก่อน

เราก็ทำการใส่ Event ที่ปุ่ม

Point สำคัญก็คือเรื่องของ “Header” ที่ใช้ส่ง และเรื่องของ “ภาษาไทย”

NetClientRequest.BuildJSONRequest(json);
NetClientRequest.Header.ContentType := ‘application/x-www-form-urlencoded’;
NetClientRequest.Header.Authorization := ‘Bearer ‘+ TxtToken.Text;

ถ้าส่งโดยไม่มีการ Encoding ภาษาไทยจะกลายเป็นภาษาต่างด้าว

ให้เราทำการ Encoding มันเป็น UTF 8

NetClientRequest.Header.CharSet := ‘UTF-8’ ;

คราวนี้ภาษาไทยก็ไม่มีปัญหา

Tips : ถ้าต้องการส่ง Parameter ที่เป็นตัวข้อความให้ส่งผ่านทาง Textbox อย่าใช้พวก Memo เพราะจะมีปัญหาว่าเมื่อเว้นวรรค ข้อความจะหาย