หน้าแรก
 การบ้าน
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  Windows Phone
  แจ้งเรื่องที่ต้องการ
 บทความ
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 แบบเรียนฟรี
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 ซอร์สโค้ด
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 บริการจากเรา
  เปิดท้าย... ขายโค้ด
  DoodeeHosting
  รับออกแบบ พัฒนาเว็บไซต์
  Freeware
  อัตราค่าโฆษณา
  รายชื่อลูกค้า
  สถิติผู้เข้าเว็บ
 ดาว์นโหลด
 ค้นหาข้อมูล
 กระดานสนทนา
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
  อื่นๆ
 กระดานงาน
 ลิงค์เว็บ
 เกี่ยวกับผม
 อัตราค่าโฆษณา
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
โปรแกรมเบอร์ดี (BerDee)
โปรแกรมเบอร์ดี (Android)
เกมส์เป่ายิ้งฉุบ
เกมส์เป่ายิ้งฉุบ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ติดต่อสอบถามมาได้ตลอดนะครับ...
2015-07-29 13:35:58
  ถ้าผมต้องการเว็บที่พัฒนาด้วย HTML5 ...
2015-01-18 15:33:54
  ถ้าผมต้องการเว็บที่พัฒนาด้วย HTML5 ...
2015-01-18 15:32:51
  ติดต่อสอบถามเข้ามาได้นะคับ
งานเล...

2014-01-06 12:47:38
  ถ้ายังหาคนสอนไม่ได้ ก็ลองศึกษาเองได...
2013-07-06 01:04:37
  สนใจส่งขอบเขตมาคุยราคาก่อนได้นะคับ...
2013-03-24 18:54:20
  ถ้ายังไม่มีคนรับงานติดต่อได้ครับ 08...
2012-12-16 19:18:14
  สนใจคะ ติดต่อ 0905076277...
2012-11-12 11:07:46
  รับทำโปรเจ็คนักศึกษาหรือบริษัท
ส...

2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  ถ้าเขียน php ก็ใช้ curl ส่...
2017-04-20 01:04:20
  เขียนโค้ดไม่เป็น เอาโค้ดไป ...
2017-03-27 12:50:54
  คือสงสัยว่าทำไม ต้องอัพเดทด...
2017-03-27 12:37:20
  ทดสอบการตอบ...
2017-02-22 13:10:24
  ลองอีกวิธีเขียน recursive f...
2017-02-14 13:11:03
  อยากได้ โค้ดระบบห้องสมุดมาก...
2017-01-30 11:45:28
  ทำ for-loop ซ้อนกัน
โดย...

2017-01-28 16:00:12
  เดาว่าใช้ Stack เข้ามาช่วย...
2017-01-28 15:57:09
  ยืมเสร็จแล้ว ก็เอามาคืนด้วย...
2016-10-27 14:56:42
  ยืมโค้ดหน่อยครับ...
2016-10-27 14:49:44
  Homework comment
  ทำเอง งง เอง กะลังทำใหม่ค่ะ ^^...
2017-04-18 18:40:46
  ทำเอง งง เอง กะลังทำใหม่ค่ะ ^^...
2017-04-18 18:37:54
  ประเด็นแรก flowchart มันไม่มีภ...
2017-04-18 17:43:33
  อยากได้ flowchart ค่ะ เป็นภาษา...
2017-04-18 16:25:29
  kungking คำถามคืออะไรครับ ?...
2017-03-18 23:28:36
  จงเขียนโปรแกรมแสดงผลรวมของตัวเ...
2017-03-06 10:56:25
  ก็โค้ดทำงานคล้ายๆแบบนี้หละ แต่...
2016-09-06 01:00:12
  ผมอยากทราบว่าโค้ดนับถอยหลังเป็...
2016-09-05 09:31:27
  ได้โค้ดแล้ว ลองศึกษาแล้วเขียนผ...
2016-04-22 00:47:49
  ขอแผนผังของโปรแกรมนับตัวอักษรภ...
2016-04-21 19:24:55
  Article comment
  ครับ คุณ "ติด" แล้วลองนึกต่อว่...
2016-06-18 15:21:09
  vs2008 c# ครับ ขอบคุณครับ...
2016-06-17 14:39:30
  ผมใช้ vs c# ทำตามทุขั้นตอนแต่ต...
2016-06-17 14:37:44
  ต้องวิเคราะห์ครับ "ว่าจริงๆ ส่...
2016-03-12 23:36:05
  ผมส่งข้อความในวง LAN ได้เฉพาะค...
2016-03-12 18:25:42
  โปรแกรม Terminal บน Mac ก็เป็น...
2016-02-16 11:02:01
  โปรแกรม Terminal คืออะไรหรอคะ...
2016-02-16 05:58:21
  ไปตั้ง โครงการไว้เลยครับ ที่
2016-01-25 13:29:55
  ด่วน!!! ต้องการคนเขียน App โดย...
2016-01-25 10:56:34
  ผมได้ทำตามคำแนะนำจนสิ้นสุดแล้ว...
2016-01-20 23:30:25
  9Mcode comment
  อยากได้...
2014-02-21 08:52:19

Link Exchange

อัตราค่าโฆษณา
Statistics of Sourcecode in Thailand
 
โปรแกรม Post ข้อมูล ไปยังไฟล์ ASP (อ่าน 14,787)
ศุภกิจ ทองดี (9'M) บทความโดย: นาย ศุภกิจ ทองดี (9'M)
e-mail: webmaster@sourcecode.in.th
mobile: 09-5009-5351
Line: suppakit.thongdee
Youtube: 9Mcode
Fanpage: Sourcecode.in.th
   
: ดาว์นโหลดตัวอย่างโปรแกรม (ดาว์นโหลด 3,054 ครั้ง)

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

 
 
Freelanceรับพัฒนาโปรแกรม และเว็บ โดย 9'M 

สวัสดีกันอีกรอบครับ สำหรับเพื่อนๆพี่ๆ ที่ติดตามบทความต่างๆของทางเว็บ Sourcecode in Thailand :-) ที่มาของบทความนี้ เกิดจากความขี้เกียจ ของผม ที่จะต้องตัดข่าว จากเว็บต่างๆ มา Post ไว้ใน เว็บ Sourcecode เพื่อให้ เพื่อนๆพี่ๆ ได้อ่าน และรับรู้ข่าวสารกัน คิดดูสิครับขนาดคนพิมพ์เองยังเมื่อยเลย คน copy อย่างผมก็เมื่อยเหมือนกัน -_-!!! แต่ก็ ไม่ได้ copy มาอย่างเดียวนะครับ ผมก็บอกแหล่งที่ผม copy มาด้วย เผื่อว่าใครที่สนใจ ข่าวอื่นๆ จะได้ไปเข้าเว็บนั้นๆ ด้วย (แก้ตัวกันซะ อิอิ)

จากความขี้เกียจ ต่างๆนาๆ ที่ได้กล่าวมาข้างต้น (อิอิ) ทำให้ผมเกิดแนวคิดถึงวิธีการในการสร้างโปรแกรม update ข่าวอัตโนมัติ ซึ่งมีส่วนการทำงานอยู่ 3 ส่วนใหญ่ๆ ด้วยกัน คือ การดูดหน้าเว็บข่าวที่ต้องการ, ตัดเอาเฉพาะข้อมูลที่ต้องการ และ สุดท้ายคือ การ Post ข้อมูลไปยัง Server เพื่อให้เก็บข้อมูลลง Database และสำหรับบทความนี้ ผมจะกล่าวถึงเฉพาะการ Post ข้อมูล

ก่อนอื่นก็อยากจะบอกกล่าวเกี่ยวกับการส่งข้อมูลไปยัง Server side Script ต่างๆ (เช่น asp,php,jsp...) สามารถทำได้ 2 วิธีด้วยการ คือ การ Post และการ Get ครับ ซึ่งมีวิธีการส่งมีความแตกต่างกันโดย การ Get จะเป็นวิธีการสร้าง link โดยป้อน ข้อมูลที่ต้องการส่งไปด้วย ต่อท้ายไฟล์ปลายทาง เช่น <a href="test.asp?web=sourcecode&article=delphi" >Test</a> จากตัวอย่างจะเห็นได้ว่า เป็นการส่ง 2 ข้อมูล ไปยังไฟล์ชื่อ test.asp ซึ่งประกอบด้วย web มีค่าเป็น sourcecode และ article มีค่าเป็น delphi ส่วนวิธีการส่งอีกแบบคือการ Post ซึ่งจะเป็นจะต้องสร้าง Form ขึ้นมาเพื่อให้ผู้ใช้ กรอกข้อมูล แล้วทำการกดปุ่ม ส่งข้อมูลไปยัง Server (ดูตัวอย่างได้จาก หน้าแรก ในส่วนของการรับข่าวสาร)

พอมาถึงจุดนี้แล้ว ผมก็อยากบอกกล่าวถึงความแตกต่างกันระหว่างการ Post และ Get ครับ ดังจะเห็นว่าการ Get เป็นการส่งที่เป็นการ ต่อท้ายข้อมูลเข้าไป หากเมื่อเรามีข้อมูลมากๆ เราจะไม่สามารถส่งด้วยวิธีนี้ได้ครับ และอีกอย่างคือ การส่งแบบ Get ทำให้ผู้ใช้เห็นข้อมูลต่างๆได้ ผ่านทาง Webbrowser ซึ่งก็คงไม่ดีแน่นอน ส่วนการส่งแบบ Post จะส่งข้อมูลได้มาก และหลายรูปแบบ (ทั้ง ข้อความ และ ไฟล์ข้อมูล)

หากจะมองกันจริงแล้ว การส่งทั้ง 2 แบบ จะขึ้นอยู่กับการนำมาใช้งานซะมากกว่า

พูดกันมาซะยาวคงเบื่อกันพอสมควร (ฮ่าๆๆ) สำหรับผู้ที่พอรู้เรื่อง Post กับ Get คงไม่ต้องอ่านนะครับ เริ่มต้นสร้างโปรแกรม กันเลยดีกว่าครับ โดยทำตามขั้นตอนดังนี้

1. ทำการสร้างเอกสาร Active Server Page (ASP) โดยมีโค้ดดังนี้

<html>
<head>
<title>Sourcecode in Thai</title>
<meta http-equiv="Content-Type" content="text/html; charset=Windows-874">
</head>
<body>
<% strName=Request("name")
strSurname=Request("surname") Response.Write("Name ="&strName&"<br>") Response.Write("Surname ="&strsurname) %>
</body>
</html>

2. ทำการบันทึกไว้ path C:\InetPub\wwwroot\ ซึ่งเป็น Root ของ Home Directory ของ Web Server (เช่น IIS, PWS) ตั้งชื่อไฟล์เป็น test.asp

3. เปิดโปรแกรม Delphi แล้วทำการออกแบบ โดยใช้ Control ต่างๆอันได้แก่ Label, Edit, Button และ WebBrowser โปรแกรมดังรูป

***หมายเหตุ ในการใช้งาน WebBrowser เราจำเป็นจะต้องทำการ Update TWebBrowser เสียก่อน ซึ่งดูวิธีการได้จาก อัพเดด TWebBrowser ให้กับ Delphi 5

4.กำหนด Property ต่างๆดังตาราง

Name Property Value
Label1 Caption Name
Label2 Caption Surname
Edit1 Text [ว่าง]
Edit2 Text [ว่าง]
ฺButton1 Caption Submit Data
Webbrowser1 align alRight

5. เข้าไปในส่วนของ Code ให้ทำการเพิ่มบรรทัด uses HTTPApp; ด้านล่างของบรรทัด implementation ตามตัวอย่าง

var
Form1: TForm1;

implementation
uses HTTPApp; // Add this line

6.ทำการ ดับเบิ้ลคลิก ที่ Button1 แล้วป้อนโค้ดดังนี้

procedure TForm1.Button1Click(Sender: TObject);
var
 EncodedDataString: String;
 PostData: OleVariant;
 Headers: OleVariant;
 i: Integer;
begin
 EncodedDataString :='name='+HTTPEncode(Edit1.Text)+'&'+
                     'surname='+HTTPEncode(Edit2.Text);
 PostData :=VarArrayCreate([0,Length(EncodedDataString)-1],varByte);
 for i:=1 to Length(EncodedDataString) do
   PostData[i-1] :=Ord(EncodedDataString[i]);
 Headers :='Content-Type: application/x-www-form-urlencoded'+#10#13;
 WebBrowser1.Navigate('http://localhost/test.asp',
                       EmptyParam,
                       EmptyParam,
                       PostData,
                       Headers);                       
end;

7. ทดสอบโปรแกรม โดยกด F9 เพื่อ Run โปรแกรม แล้วป้อนชื่อและนามสกุล ต่อจากนั้น ทำการคลิกปุ่ม Submit Data จะได้ผลดังรูป

ทิ้งทาย
โค้ดดังกล่าวผมได้ทดสอบกับ asp เท่านั้นหนะครับ ผมยังไม่ได้ลองทดสอบกับ Server side Script ตัวอื่นๆ หาใครทดสอบแล้วได้ผล ยังไงก็ช่วยเมล์มาบอกกันด้วยก็ดีครับ แล้วพบกันใหม่กับ 9'M :-)

: ดาว์นโหลดตัวอย่างโปรแกรม (ดาว์นโหลด 3,054 ครั้ง)
 

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

สอบถาม
  • ห้ามการโฆษณา หากต้องการติดต่อหาลูกค้า ติดต่อโฆษณาโดยตรงได้ที่ webmaster@sourcecode.in.th
  • ห้ามใช้คำหยาบและคำพูดที่ไม่เหมาะสม
  • ขอสงวนสิทธิหากตรวจพบ ข้อความที่ไม่เหมาะสม ข้อความนั้นจะถูกลบทันที
ชื่อ
อีเมล์
รายละเอียด

 
 
สายต่อจอ สำหรับเครื่อง macbook pro 2016 (usb-c to HDMI)
สายต่อจอ สำหรับเครื่อง macbook pro 2016 (usb-c to HDMI) ความละเอียดระดับ 4K
หัวแปลง Mini DisplayPort to HDMI Adapter หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
สายต่อหูฟัง และชาร์จไฟ สำหรับ iPhone 7 และ 7 Plus
สายต่อหูฟัง และชาร์จไฟ สำหรับ iPhone 7 และ 7 Plus
หัวแปลงจาก USB-C Type ไปเป็น USB 3.1 สำหรับ MacBook
หัวแปลงจาก USB-C Type ไปเป็น USB 3.1 สำหรับ MacBook
ไขควงสำหรับเครื่อง Macbook Air/Pro
ไขควง สำหรับแกะเครื่อง Macbook Air/Pro (300บาท)
HDMI เข้า 3 ออก  1 มีรีโมท
HDMI เข้า 3 ออก 1 มีรีโมท (350บาท)
คลิปสอนเขียนโปรแกรม
เรียนเขียนโปรแกรมดอทเน็ต
เรียนเขียนโปรแกรมแอนดรอยด์
เรียนเขียนโปรแกรมเบล็คเบอร์รี่
เรียนเขียนโปรแกรมซี ซีพลัสพลัส
เรียนเขียนโปรแกรมจาวา
เรียนการใช้งานลินุกส์
เรียนการเขียนโปรแกรมวินโดว์โฟน
เรียนการเขียนโปรแกรมพีเฮชพี มายเอสคิวเอล
9M Blog บอกเล่าเรื่องราว การเขียนโปรแกรมของ นายเอ็ม
บริการ ถ่ายภาพรับปริญญา
OrmSin.com: ขายหนังสืองานฝีมือไทย-ญี่ปุ่น-จีน (country crafts)
อัตราค่าโฆษณา
 
บทความที่เกี่ยวข้อง

Zoom หน้าจอด้วย Delphi

What?s new in Delphi 2005 #1 ( for ?in loop statement)

Dynamic Cast ใน Delphi

เขียนโปรแกรมให้ Run ตอน Startup Windows

สร้าง LED Control

การเขียน ActiveForm(ActiveX Control) เบื้องต้น

แสดงหมายเลข IP Address ของเครื่องบน NetWork

การแสดงรายชื่อ Email Contact ของ Microsoft Outlook

การหาตำแหน่งของ Caret ใน Memo

การเขียน Service Application เพื่อใช้งานบน Windows NT/2000/XP
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
แบบสำรวจ
Freelance รับพัฒนาโปรแกรม

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

สงวนลิขสิทธิ์ ห้ามคัดลอก ทำซ้ำ แก้ไข ดัดแปลง ไม่ว่าในรูปแบบใด โดยไม่ได้รับอนุญาตเป็นลายลักษณ์อักษร
เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์จากกระทรวงพาณิชย์: 7100503002000
Copyright 2001 SourceCode.in.th