demo ของ delphi XE2 ครับ 

HTTP & TCP Server Console Version

1. ฟังก์ชั่นต่างๆ ที่ให้บริการในไฟล์ Console.dll มีดังนี้
    1.1 function post(FURL, FNAME, FPATH :Ansistring) :Ansistring;                 stdcall; external 'Console.dll' name 'post';
           ส่งไฟล์เข้า Server
    1.2 function compress(FURL, FNAME, FPATH :Ansistring) :Ansistring;             stdcall; external 'Console.dll' name 'compress';
           ส่งไฟล์เข้า Server โดยก่อนส่งจะทำการลดขนาดไฟล์ให้เล็กทึ่สุดก่อน
    1.3 function get(FURL, FNAME, FPATH :Ansistring) :Ansistring;                  stdcall; external 'Console.dll' name 'get';
           รับไฟล์จาก Server
    1.4 function query(FURL, FSQL :Ansistring) :OleVariant;                           stdcall; external 'Console.dll' name 'query';
           คิวรีข้อมูลจาก Server กลับเข้ามา
    1.5 function execute(FURL, FSQL :Ansistring) :Ansistring;                         stdcall; external 'Console.dll' name 'execute';
           สั่ง Server ทำงานตามคำสั่ง SQL Command
    1.6 function save(FURL, FSQL :Ansistring; FData :OleVariant) :Ansistring;      stdcall; external 'Console.dll' name 'save';
           บันทึกรายการคิวรีข้อมูลที่ได้แก้ไขปลี่ยนแปลงกลับเข้า Server
    1.7 function winapp(FURL, FName, FPath :ansistring; FParam :Variant) :TMemoryStream; stdcall; external 'Console.dll' name 'winapp';
           สั่งโปรแกรม DLL ที่พัฒนาขึ้นใช้เองบนฝั่ง Server ให้ทำงาน
    1.8 function varapp(FStream: TMemoryStream) :variant;          stdcall; external 'Console.dll' name 'varapp';
           นำเข้าข้อมูล FParam  ของ winapp
    1.9  function read(FIdTCPClient :TIdTCPClient; nick, FText :TStrings) :Ansistring; stdcall;  external 'Console.dll' name 'read';
            อ่านข้อความ chat
    1.10 function chat(FIdTCPClient :TIdTCPClient; Fnick :TStrings; nick, FText, tonick :Ansistring) :Ansistring; stdcall;  external 'Console.dll'

name 'chat';
             ส่งข้อความ chat

2. ให้บริการ Web server และ Chat server
3. นักพัฒนาสามารถสร้างโปรแกรม DLL ฝั่ง Server เพื่อรับค่าจาก web page ที่สร้างขึ้นได้เอง
4. ลดขนาดข้อมูลก่อนทุกครั้งที่ทำการส่งข้อมูลเข้าระบบเครือข่ายช่วยเพิ่มความเร็วและลดปริมาณข้อมูลที่วิ่งในเครือข่ายได้
5. นักพัฒนาสามารถสร้างโปรแกรม DLL ฝั่ง Server เพื่อรับค่าจากโปรแกรมแบบ window application สามารถใช้แทน web service ได้
6. มี source code พร้อมตัวอย่างต่างๆ ดังนี้
    6.1 AppDLL เก็บโปรแกรม DLL รับค่าจาก web page
    6.2 Example เก็บโปรแกรม EXE เรียกใช้งานไฟล์ Console.dll และโปรแกรม DLL รับค่าจากโปรแกรม window application
    6.3 Chat        เก็บโปรแกรม EXE รับส่งข้อความ
7. โปรแกรมหลักชื่อ HTTP.exe และมี HTTP.ini สำหรับกำหนดการเชื่อมต่อฐานข้อมูลและ HTTP&TCP Port
8. โปรแกรมพัฒนาด้วย component freeware ไม่มีค่าใช้จ่ายทุกการเชื่อมต่อ
9. temp folder ใช้เก็บไฟล์ที่ต้องการส่งให้โปรแกรม Browser ตามตัวอย่าง login.htm
10. การ execute SQL command ระบบจะไม่ทำคำสั่ง drop, truncate และ delete from ที่ไม่มีเงื่อนไข where

  Delphi XE & Report Builder v12.03 พิมพ์ภาษาไทยออกไฟล์ pdf ได้แล้ว
source code ตัวอย่างตามไฟล์แนบครับ 

  Delphi XE & Web Service สุดง่าย  พร้อมตัวอย่างครับ

อ้างจาก: manoi ที่ ตุลาคม 11, 2010, 16:53:17 PM

คงต้องรอ version HOSxP / XE ครับ ปรับทีเดียว ยกเครื่องใหม่ไปเลย (unicode / package module)

Delphi  XE  ด้วยหรือเปล่าครับ

Delphi XE v15 ครับ 

ThinVNC - HTML5 Remote Desktop

http://sourceforge.net/projects/thinvnc/

Remote Desktop ผ่าน Chrome หรือ firefox ได้ครับ

HTTP SERVER & Chat ทดสอบกับ Thai-OS แล้วใช้ได้ครับ

http://www.speedyshare.com/files/24839657/HTTP.rar

โหลดโปรแกรมพร้อมตัวอย่าง source code ส่งข้อความ chat ได้ตาม Link ข้างต้นครับ

 

 

ไฟล์ DLL สำหรับพัฒนาโปรแกรมขอใช้บริการผ่าน HTTP SERVER ได้เองแล้วครับ

function post(FURL, FNAME, FPATH :widestring) :widestring;     stdcall; external 'ClientDll.dll' name 'post';
function get (FURL, FNAME, FPATH :widestring) :widestring;     stdcall; external 'ClientDll.dll' name 'get';
function query(FURL,   SQL :widestring) :OleVariant;        stdcall; external 'ClientDll.dll' name 'query';
function execute(FURL, SQL :widestring) :widestring;        stdcall; external 'ClientDll.dll' name 'execute';
function chat(FURL, TXT :widestring) :widestring;        stdcall; external 'ClientDll.dll' name 'chat';
function save(FURL, SQL :widestring; Data :OleVariant) :widestring;     stdcall; external 'ClientDll.dll' name 'save';


http://www.speedyshare.com/files/24505778/HTTP.rar
โหลดโปรแกรมพร้อมตัวอย่าง Source Code ตาม Link ครับ

ขอบคุณครับ 

อยากแชร์ด้วย พี่เจมส์ลองดูตรงนี้ ไม่รู้ว่าจะช่วยได้แค่ไหนนะครับ
http://database.tha.im/?p=285
 

http://marcgrabanski.com/articles/jquery-google-maps-tutorial-basics

อันนี้ก้อด้วยครับ 

ต้องใช้โปรแกรม upstruc.exe สร้าง table ตามรูปครับ

น่าจะพอได้ความรู้กันบ้างนะครับ (อ่านเล่นๆ)

ตัวอย่างหน้าจอโปรแกรมแพทย์สำหรับเครื่อง tablet pc เช่น ipad
เชื่อมต่อกับอุปกรณ์ปากกาใช้ได้ทั้งเขียนข้อความและวาดรูปครับ

AMD X4 ram สัก 8 GB ครับ

ฝาก คุณ Tank ช่วยทำหน้าจอคำนวนให้ด้วยครับ

ตัวอย่างหน้าจอ
กำลังถอด source code (java script) ครับ


Wittaya K.

BMS

ตัวอย่างหน้าจอ intraweb บน centos

Source code ของ "GetGlobalValue" อยู่ใน "MainU.pas" ครับ

File HOSxP_Attachment_upstruc มันเป็น 0 bite อ่ะครับ
ช่วยส่งทาง emial ให้ผมหน่อยครับ
niyom66@hotmail.com
ขอบคุณครับ

ส่งให้แล้วนะครับ

Wittaya  K.

BMS

ขอบคุณครับ มียาแก้ไอน้ำดำ Delphi 2010 ป่าวครับ
ของผมมีแบบได้ 1 ปี

จัดส่งยาให้ใน "pakorn.c@anamai.mail.go.th" แล้วครับ

ใน properties ของ zconnection กำหนดดังนี้ครับ

compress=true
mysql_codepage=tis620
oidasblob=true

อ้างจาก: nuttavut ที่ มกราคม 13, 2010, 22:46:19 PM

อ้างจาก: thank ที่ มกราคม 13, 2010, 22:00:29 PM

ตัวอย่างหน้าจอครับ

อยู่ใน Module ไหนครับ ....หรือ Commercial..

ดีมากเลยครับ ถ้าได้ใช้ ยอดเยี่ยมเลย มีประโยชน์ต่อผู้ป่วยเบาหวานมากครับ แต่ผมยังไม่เคยได้ใช้ ดูตามวันที่แสดงแล้ว ใช้มามากกว่า 2 เดือนแล้วนะครับ

คาดว่าจะทดสอบใช้งานที่ รพ.สมุทรสาครเดือน ม.ค. 53 นี้ครับ
เป็น Module เพิ่มเติมมีค่าใช้จ่ายครับ (Commercial)


Wittaya  K.
BMS.

ตัวอย่างหน้าจอครับ

สวัสดีปีใหม่
ขอให้ทุกท่านสมปราถนาทุกอย่างใน HOSxP ตลอดปี 2553 นี้นะครับ

สวัสดีปีใหม่ 2553 ด้วยคนครับ


Wittaya  K.

BMS.