NEWS update

ตอนนี้ทาง SSC มีแผนที่จะจัดเทรนนิ่ง PB V.12 โดยจะเชิญผู้สอนจากทาง Sybase (สิงค์โปร) วันที่ 29 -30 กรกฎาคม 53 (กำหนดการอาจจะมีการเปลี่ยนแปลงจะแจ้งให้ทราบล่วงหน้า)
ติดต่อ  SSC Solutions Co., Ltd. www.sscs.co.th, www.senseflow.org  Phone: +66 2618 8638  Ext.210

THAIPBL Sections

GO TO

หาค่า IP address ของเครื่อง PDF พิมพ์ อีเมล
วันจันทร์ที่ 08 มีนาคม 2010 เวลา 17:19 น. เขียนโดย Pattama
ก่อนอื่นต้องสร้าง Structure ตามตัวอย่างครับ

name = str_wsadata
   unsignedinteger version
   unsignedinteger highversion
   character description[257]
   character systemstatus[129]
   nsignedinteger maxsockets
   unsignedinteger maxupddg
   string vendorinfo

จากนั้นต้องประกาศ เรียก External function ครับ
function int WSAStartup (uint UIVerionrequested, ref str_wsadata lpWSAdata)
library "wsock32.DLL"
function int WSACleanup() library "wsock32.DLL"
function int WSAGetLastError() library "wsock32.DLL"
function int gethostname(ref string name, int namelen) library
"wsock32.DLL"
function string GetHost(string lpszhost,ref blob lpszaddress) library
"pbws32.dll"

เขียน code ใช้งานตามนี้ครับ
String ls_ip, ls_host
Blob{4} lb_host
Integer li_version, li_rc
str_wsadata lstr_wsadata

ls_host = Space(128)
li_version = 257

If WSAStartup(li_version, lstr_wsadata) = 0 Then
   If GetHostName(ls_host, Len(ls_host)) < 0 Then
      li_rc = WSAGetLastError()
   Else
      GetHost(ls_host, lb_host)
      ls_ip = String(Asc(String(BlobMid(lb_host, 1, 1)))) + "."
      ls_ip += String(Asc(String(BlobMid(lb_host, 2, 1)))) + "."
      ls_ip += String(Asc(String(BlobMid(lb_host, 3, 1)))) + "."
      ls_ip += String(Asc(String(BlobMid(lb_host, 4, 1))))
      li_rc = 0
   End If
   MessageBox("My IP", ls_ip)
Else
   li_rc = WSAGetLastError()
End If

WSACleanup()

มาจากเวปต่างประเทศนะครับ ทดสอบแล้วใช้งานได้จริงนะครับ
ตัวอย่าง และ dll หาได้จากหน้า Download นะครับ