หน้าแรก
 การบ้าน
  C/C++ new
  Java new
  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
 บริการจากเรา
  เปิดท้าย... ขายโค้ด
  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
  ถ้าผมต้องการเว็บที่พัฒน...
2015-01-18 15:33:54
  ถ้าผมต้องการเว็บที่พัฒน...
2015-01-18 15:32:51
  ติดต่อสอบถามเข้ามาได้นะ...
2014-01-06 12:47:38
  ถ้ายังหาคนสอนไม่ได้ ก็ลอ...
2013-07-06 01:04:37
  สนใจส่งขอบเขตมาคุยราคาก...
2013-03-24 18:54:20
  ถ้ายังไม่มีคนรับงานติดต...
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
  มาส่อง...
2024-08-19 15:45:12
  ช่วยเขียนโปรเจค: การควบค...
2024-08-07 09:13:31
  เขียนโปรแกรมภาษาจาวา
1.โ...

2023-09-12 11:40:28
  ต้องลอง debug ดูเองครับ
ไล่...

2023-06-08 18:03:06
  ร้านค้าแห่งหนึ่ง จะต้องน...
2021-09-21 08:47:08
  จงเขียนโปรแกรมดำเนินการ...
2021-05-07 15:06:11
  จงเขียนโปรแกรมสำหรับคำน...
2021-03-09 14:21:45
  ขอดู...
2021-01-04 23:56:45
  ขอโค้ดเพื่อทำการเรียนกา...
2020-12-09 23:02:09
  แล้ว ?...
2020-12-09 10:56:34
  Homework comment
  เขียนโปรแกรมเพื่อรับค่า...
2022-02-24 10:45:17
  จากโค้ดนี้อะครับ พอดีลอง...
2021-03-22 01:22:39
  จากโค้ดนี้อะครับ พอดีลอง...
2021-03-22 01:22:39
  โจทย์การบ้าน c++ เขียนรูปแ...
2020-04-06 11:01:33
  แบบนี้ขอเป็น ภาษา php หน่อย...
2019-09-18 14:36:34
  ผมไม่อยากให้คุณได้คะแนน...
2019-04-27 01:29:07
  อาจารย์เขาบอกแนวข้อสอบม...
2019-04-27 00:44:29
  ขอสอบถามการเขียน c++ ครับ เ...
2018-04-02 12:19:21
  โค้ดตัวอย่างศึกษาให้เข้...
2017-11-26 14:50:05
  คำนวณค่าน้ำโดยรับค่ามิเ...
2017-11-20 23:15:26
  Article comment
  เท่าที่อ่าน error คือพื้นที่...
2022-03-23 13:56:48
  เรียน สอบถามปัญหา กับ อ.คร...
2022-01-24 17:39:49
  ต้องการ ให้เขียน โปรแกรม ...
2019-12-09 11:39:58
  รับเขียน arx จาก vc++ 2017 ล็อคโปร...
2019-09-19 09:48:09
  ทำการ register ไฟล์ที่ชื่อ mswinsck.oc...
2019-09-17 14:05:56
  ใน vb 6 ไม่มี component winsock เลยค่ะ ส...
2019-09-03 10:31:02
  รบกวนขอสอบถามหน่อยนะครั...
2019-03-04 05:31:04
  สามารถนำตัวหนังสือจากภา...
2018-12-25 08:54:32
  มีcode ของ VB ไหมค่ะ ถ้ามีรบกว...
2017-09-28 16:50:02
  น่าจะได้ครับ ไม่เคยลอง
...

2017-07-11 09:59:35
  9Mcode comment

Link Exchange

อัตราค่าโฆษณา
 
ตัวอย่างการสร้าง client เพื่อเรียกใช้ Web Service แปลภาษา (อ่าน 33,385)
ศุภกิจ ทองดี (9'M) บทความโดย: นาย ศุภกิจ ทองดี (9'M)
e-mail: webmaster@sourcecode.in.th
mobile: 09-5009-5351
Line: suppakit.thongdee
Youtube: 9Mcode
Fanpage: Sourcecode.in.th
   
: ดาว์นโหลดตัวอย่างโปรแกรม (ดาว์นโหลด 3,291 ครั้ง)

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

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

บทความนี้จะแสดงตัวอย่างการสร้างโปรแกรมโปรแกรม client เพื่อทำการเรียกใช้ Web Service ที่ชื่อ BabelFish จากเว็บ http://www.xmethods.net/ โดยใช้ Delphi 6 มีขั้นตอนดังนี้

1. ให้ทำการเปิด Browser ไปยังเว็บ http://www.xmethods.net/ แล้วคลิกที่ หัวข้อ BabelFish ดังรูป

2. ทำการคัดลอก ค่าของ WSDL URL เอาไว้ (WSDL URL มีค่าเป็น http://www.xmethods.net/sd/2001/BabelFishService.wsdl) ดูรูปประกอบด้านล่าง

3.เปิดโปรแกรม Delphi แล้วเลือกวาง Control Edit,Button จาก Component Palette Standard และ Control HTTPRIO จาก Component Palette Webservices ดังรูป

4.เลือกเมนู File -> New -> Other แล้วเลือก Web Services Importer จาก WebServices ดังรูป

5.ทำการป้อนค่าของ WSDL URL ลงในช่อง ดังรูป แล้วคลิกปุ่ม Generate

โปรแกรมจะทำการสร้าง Unit2 ที่ใช้สำหรับการเรียกใช้ Web Service ขึ้นมา

6. ทำการเพิ่ม Unit2 ภายใต้ uses ของ Unit1 ดังรูป

7. กำหนด Property ของ Control HTTPRIO1 ดังนี้

WSDLLocation =http://www.xmethods.net/sd/2001/BabelFishService.wsdl
Service =BabelFishService
Port =BabelFishPort
ดูรูปประกอบ

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

procedure TForm1.Button1Click(Sender: TObject);
var BabelService: BabelFishPortType;
begin
BabelService :=HTTPRIO1 as BabelFishPortType;
Memo2.Text :=BabelService.BabelFish('en_fr',Memo1.Text);
end;

9. กดปุ่ม F9 เพื่อ Run โปรแกรม แล้วใส่ข้อความ "Hello Word" บนช่องด้านบน ทำการกดปุ่ม Button1 รอสักครู่ โปรแกรมก็จะทำการเรียกใช้ BabelFish Web Service ที่มี translationmode
เป็นค่า 'en_fr' ในการแปลข้อความจาก English -> French ดังแสดงผลในรูปด้านล่างนี้

คุณสามารถที่จะกำหนดค่า translationmode เพื่อแปลภาษาต่างๆได้ดังนี้

Translation translationmode
English -> French
English -> German
English -> Italian
English -> Portugese
English -> Spanish
French -> English
German -> English
Italian -> English
Portugese -> English
Russian -> English
Spanish -> English
'en_fr'
'en_de'
'en_it'
'en_pt'
'en_es'
'fr_en'
'de_en'
'it_en'
'pt_en'
'ru_en'
'es_en'

?

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

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


110.77.211.145 ความคิดเห็น #14 (จาก IP: 110.77.211.145)
ขอสอบถามเกี่ยวกับการทำ windows service ใน delphi ค่ะคือแนนทำ windows service ให้มีการเปลี่ยนภาพวอลเปเปอร์แล้วติดตั้งลงใน windows xp สามารถใช้งานได้ แต่เมื่อติดตั้งใน windows 7 และ windows 8 รันผ่านแต่ไม่สามารถแสดงผลได้ เป็นเพราะอะไรค่ะ
จากคุณ : nan / nannykawaiii@hotmail.com [2014-04-10 10:21:41]

61.90.53.25 ความคิดเห็น #17 (จาก IP: 61.90.53.25)
เป็นเพราะ windows ทั้ง 2 มันแตกต่างกัน บน windows xp ถูกออกแบบให้เป็น desktop ธรรมดาตั้งแต่ต้น แต่ windows 7 นั้นได้มีการนำความแกร่งของ server มาพัฒนา ทำให้มันเสถียรกว่าและดีกว่า

ถ้าจะให้ทำงานได้บน win7 ก็ต้องไป compile และ debug บน win7 ครับ
จากคุณ : maddog [2014-04-10 16:44:18]

110.171.155.16 ความคิดเห็น #101 (จาก IP: 110.171.155.16)
รบกวนขอสอบถามหน่อยนะครับ ถ้าหากเราอยากนำโปรแกรมที่เราเขียนทำงานกับฐานข้อมูลบนPageFormคอมพิวเตอร์ธรรมดา ที่ใช้คอมโปรแนน Adoconnection , Adodataset, DataSource link กับฐานข้อมูลไว้ แต่อยากจะนำ page Form ทั้งหมดที่เขียนไว้ไป Run เป็น webใช้งานบน internet จะต้องทำอย่างไรบ้างน่ะครับผม ขอรบกวนวิธีการด้วยน่ะครับผม
ขอบคุณครับ
จากคุณ : นิก / iamumnuay2510@gmail.com [2019-03-04 05:31:04]
สอบถาม
  • ห้ามการโฆษณา หากต้องการติดต่อหาลูกค้า ติดต่อโฆษณาโดยตรงได้ที่ webmaster@sourcecode.in.th
  • ห้ามใช้คำหยาบและคำพูดที่ไม่เหมาะสม
  • ขอสงวนสิทธิหากตรวจพบ ข้อความที่ไม่เหมาะสม ข้อความนั้นจะถูกลบทันที
ชื่อ
อีเมล์
รายละเอียด

 
 
คลิปสอนเขียนโปรแกรม
เรียนเขียนโปรแกรมดอทเน็ต
เรียนเขียนโปรแกรมแอนดรอยด์
เรียนเขียนโปรแกรมเบล็คเบอร์รี่
เรียนเขียนโปรแกรมซี ซีพลัสพลัส
เรียนเขียนโปรแกรมจาวา
เรียนการใช้งานลินุกส์
เรียนการเขียนโปรแกรมวินโดว์โฟน
เรียนการเขียนโปรแกรมพีเฮชพี มายเอสคิวเอล
อัตราค่าโฆษณา
 
บทความที่เกี่ยวข้อง

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

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

Dynamic Cast ใน Delphi

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

สร้าง LED Control

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

โปรแกรม Post ข้อมูล ไปยังไฟล์ ASP

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

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

การหาตำแหน่งของ Caret ใน Memo
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
แบบสำรวจ

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

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