การใช้การควบคุมแฟลชในเดลฟี

Flash ผลิตโดย Macromedia และใช้สำหรับคลื่นกระแทกแบบไดนามิกและโต้ตอบบนอินเทอร์เน็ต ของมัน

ข้อดีคือมีขนาดเล็กและสามารถเล่นได้ในขณะดาวน์โหลดจึงทำให้ผู้ใช้ไม่ต้องรอนาน

FLASH สามารถใช้เพื่อสร้างภาพเคลื่อนไหวและเพิ่มเสียงให้กับหน้าเว็บ ด้วยวิธีนี้คุณสามารถสร้างกราฟิกมัลติมีเดียและอินเทอร์เฟซในขณะที่รักษาขนาดไฟล์ให้เล็กได้

แม้ว่า FLASH จะไม่สามารถตั้งโปรแกรมเหมือนภาษาได้ แต่ก็สามารถใช้คำสั่งในตัวรวมกับได้

ด้วย javaSCRipE คุณสามารถสร้างหน้าแรกที่มีการโต้ตอบสูงได้

คุณสมบัติอีกอย่างของ FLASH ก็คือต้องติดตั้งปลั๊กอิน PLUG-IN เพื่อให้เบราว์เซอร์ยอมรับ! แน่นอนว่านี่ก็เช่นกัน

หลีกเลี่ยงความแตกต่างระหว่างเบราว์เซอร์และปฏิบัติต่อพวกเขาอย่างเท่าเทียมกัน!

แต่คุณรู้อะไรไหม? ใน Delphi คุณสามารถเปิดภาพเคลื่อนไหวแฟลชได้โดยตรงและควบคุมให้เล่นและหยุด คุณยัง

ฉันสามารถรับจำนวนเฟรมทั้งหมดได้หรือไม่ คุณรู้วิธีทำให้สำเร็จหรือไม่? ได้โปรดตามฉันมา

เลือก "Shockwave" ใน Component|Import ActiveX Controls... ใน delphi

Flash (เวอร์ชัน 1.0)" แล้วคลิกติดตั้ง หน้าต่างการติดตั้งจะปรากฏขึ้น

หากคุณต้องการเพิ่มลงในแพ็คเกจที่มีอยู่ ในกล่องโต้ตอบ "ลงในแพ็คเกจที่มีอยู่"

เลือกเส้นทางที่คุณต้องการติดตั้งในหน้าต่าง "ชื่อไฟล์:" และคลิก "ตกลง" กล่องโต้ตอบการยืนยันจะปรากฏขึ้น

ถามว่า "แพ็คเกจ dclusr50.bpl จะถูกสร้างขึ้นใหม่ ดำเนินการต่อ?" คลิก "ใช่" ในหน้าต่างป๊อปอัป

เพียงคลิก "ติดตั้ง" จากนั้นปลั๊กอินก็จะถูกติดตั้ง

หากคุณต้องการเพิ่มลงในแพ็คเกจใหม่ ให้คลิก "ไฟล์" ในกล่องโต้ตอบ "เป็นแพ็คเกจใหม่"

หน้าต่าง name:" เลือกพาธที่คุณต้องการติดตั้ง และสร้างแพ็คเกจใหม่ หากตั้งชื่อว่า test แล้วคลิก "ตกลง"

ถามว่า "จะถูกสร้างขึ้นแพ็คเกจ test.bpl ดำเนินการต่อหรือไม่" คลิก "ใช่" สั่งซื้อในหน้าต่างป๊อปอัป

คลิก "ติดตั้ง" และปลั๊กอินได้รับการติดตั้งแล้ว

ในเวลานี้ คุณจะพบตัวควบคุมใหม่ภายใต้ ActiveX ในแถบควบคุมชื่อ ShockwaveFlash

คลิกและใส่ไว้ในแบบฟอร์ม ใส่ตัวควบคุม OpenDialog และแผงในแบบฟอร์ม แล้วใส่

สี่ปุ่ม คุณลักษณะคำอธิบายภาพมีชื่อว่า "Openfile", "เล่น", "หยุด", "ปิด" ตามลำดับ

แผง 1 คุณสมบัติ Align ของ ShockwaveFlash คือ Allleft และ AlClient ตามลำดับในสี่คุณสมบัตินี้

เขียนโค้ดต่อไปนี้ในเหตุการณ์ OnClick ของปุ่ม:

ขั้นตอน TForm1.Button1Click (ผู้ส่ง: TObject);

เริ่ม

ถ้า OpenDialog1.Execute แล้ว

ShockwaveFlash1.ภาพยนตร์:=

OpenDialog1.FileName;

จบ;

ขั้นตอน TForm1.Button2Click (ผู้ส่ง: TObject);

เริ่ม

ShockwaveFlash1.เล่น;

จบ;

ขั้นตอน TForm1.Button3Click (ผู้ส่ง: TObject);

เริ่ม

ShockwaveFlash1.หยุดเล่น;

จบ;

ขั้นตอน TForm1.Button4Click (ผู้ส่ง: TObject);

เริ่ม

ShockwaveFlash1.FreeOnRelease;

ปิด;

จบ;

คุณสามารถรับจำนวนเฟรมทั้งหมดของภาพแฟลชที่เปิด เพิ่มป้ายกำกับบนแผง 1 และเพิ่มป้ายกำกับบนแบบฟอร์ม 1

เขียนโค้ดต่อไปนี้ในเหตุการณ์ OnClick

ขั้นตอน TForm1.FormCreate (ผู้ส่ง: TObject);

เริ่ม

label1.caption:=shockwaveflash.totalframes;

จบ;

คุณยังสามารถควบคุมภาพแฟลชที่เปิดอยู่เพื่อเริ่มเล่นจากเฟรมนั้นได้

เพิ่มปุ่มและตัวควบคุมการแก้ไขบนแผง 1

เพิ่มรหัสต่อไปนี้ให้กับเหตุการณ์ OnClick ของปุ่ม

ถ้า ShockwaveFlash1.เล่นแล้ว

ShockwaveFlash1.GotoFrame (หมุนแก้ไข1.ค่า);

ShockwaveFlash1.เล่น;

กรอกเฟรมที่คุณต้องการข้ามไปในการแก้ไขแล้วคลิกปุ่มเพื่อใช้ฟังก์ชันนี้

เป็นอย่างไรบ้าง ลองดูครับ ได้ผลค่อนข้างดีใช่ไหมครับ?