˹á
 úҹ
  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
  Ѻ ͹ matlab ¹ matlab...
2017-06-03 16:27:23
  ੾зҧҴ ͧҢ...
2017-05-25 16:18:08
  ͧ˹Ѻ os ...
2017-05-25 16:12:47
  ¹ 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
  Homework comment
  ͺسҡѺ...
2017-08-16 18:27:25
  ͧ ͧ ѧ ^^...
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
  Article comment
  [b] ...
2017-08-20 08:53:10
  [b]
2017-08-11 22:39:58
  [b]
...

2017-08-11 14:46:33
  ҨѺ ͧ
...

2017-07-11 09:59:35
  ö͡Ѻ anycast ...
2017-07-05 10:12:35
  Ѻ س "Դ" ͧ֡...
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
  9Mcode comment
  ҡ...
2014-02-21 08:52:19

Link Exchange

ѵҤɳ
Statistics of Sourcecode in Thailand
 
Post ѧ ASP (ҹ 14,924)
Ԩ ͧ (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 )
 

- - - - - - - - - - - - - - ʹѺʹع- - - - - - - - - - - - - -

ͺ
´

 
 
µͨ Ѻͧ 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