ข้าน้อยมาถ่ายทอดวิทยายุทธเพลงกระบี่ขั้นหนึ่ง delphi Karaoke

สิ่งที่ต้องเตรียมสำหรับท่านจอมยุทธทีลมปราณยังไม่ถึงขั้นหนึ่ง
ในการเรียนเค็ดวิชานี้ สิ่งที่ท่านต้องเตรียม

กระบี่ Delphi 7 และ component TVideoGrabber v6.7.5
ลมปราณนกไฟ Firebird
ตำราเส้าหลิน EMS InterBase & FireBird Manager 3

เมื่อพวกท่านจอมยุทธ เข้าใจตรงกันแล้วก็

สร้าง Folders ไว้เก็บโปรเจ็ก

เปิด Delphi
ติดตั้ง component TvideoGrabber v6.7.5
เลือกเมนู-Component-install packages
เลือกเมนู Tools-environment option-libary-libary path-add path delphi7

สร้างโปรเจ็ก

เลือก File-New-Application
กด F11 object Inspector

กำหนด Properties
Name - fmMain(ชื่อฟร์อม)
Font - Tahoma ขนาด 10
Height - 768
Width - 1366
กำหนด Events-OnClose
เขียนโค๊ด
Action := caFree ;
fmMain := nil ;

บันทึกและรันโปรเจ็ก
เลือกเมนู File-Save project

บันทึกชื่อ Project - Karaoke
บันทึกชื่อ Unit - UMain
กดปุ่ม Ctrl-F9 (Compile Project)

เริ่มเขียนเค็ดวิชา
โค๊ดกำหนด หน้าจออัตโนมัติ

กำหนดตัวแปรในส่วน
{ Public declarations }
procedure run_MIter(id:Integer) ;

กำหนดฟังชั่นในส่วน
{$R *.dfm}
function NewRes(XRes,YRes:DWord):integer;
var
DevMode:TDeviceMode;
begin
EnumDisplaySettings(nil, 0, DevMode);
DevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
DevMode.dmPelsWidth:=XRes;
DevMode.dmPelsHeight:=YRes;
Result:=ChangeDisplaySettings(DevMode, 0);
end;

กำหนดโค๊ดฟร์อม(fmMain) กด F11 object Inspector
Events-ondestroy

NewRes(ScrWidth,ScrHeight) ;

Evnents-Onshow

ScrWidth:=Screen.Width;
ScrHeight:=Screen.Height;
NewRes(1024,768);

กดปุ่ม Ctrl-F9 ทดสอบลองปรับขนาดลง


โค๊ด Media Player ข้าน้อยจะมาต่ออีกครั้งข้อไปทำธุระแป๊ป