tudev - บลอกเกี่ยวกับ-computer-programming และอื่นๆ: November 2008

25 November 2008

เปลี่ยน port mysql ใน AppServ

Apache เพิ่ม Services และ uninstall services

View Help apache with :
>Apache.exe /?

Install Apache as Services
>apache.exe -n "Apache Web Server (Test)" -k install
-n คือชื่อที่จะเห็น ใน Services ของ Windows

สามารถ ลงได้ หลาย Service เช่น
apache.exe -n "Apache2(Test)" -k install
apache.exe -n "Apache2(Test 2)" -k install
apache.exe -n "Apache2(Test 3)" -k install
จะเห็นว่ามี 3 Services เมื่อ เปิด หน้าต่าง Services ใน Admin Tools
แต่ทั้ง สาม จะมี property ว่า เป็น .exe ตัวเดียวกัน
สามารถ แยก รันได้ อิสระ แต่มีปัญหาว่า มันใช้ port 80 เหมือนกัน มันเลย
รัน ให้พร้อมกันจริงๆไม่ได้ ในตอนนี้

apache.exe -k uninstall -n "Apache Web Server"
-n คือชื่อ

จาก ทั้ง 3 services ที่เห็น จะสามารถ uninstall ทั้ง 3 ได้ โดย
apache.exe -n "Apache2(Test)" -k uninstall
apache.exe -n "Apache2(Test 2)" -k uninstall
apache.exe -n "Apache2(Test 3)" -k uninstall

การ uninstall จะทำไม่สำเร็จ ถ้า service ยังรันอยู่
แต่ว่าจะโดนมาร์ค ไว้ว่า ให้ลบ เมื่อ มีการ stop services

mysql and mysqladmin

ดู help ของ mysql.exe
ได้โดย
>mysql.exe --help
>mysqld-nt.exe --help
>mysqld.exe --help

connect database
mysql.exe --user=myuser --pass=mypassword --host=myhost.com
mysql.exe --user=myuser --pass=mypassword --host=localhost
mysql.exe --user=myuser --pass=mypassword --host=127.0.0.1

connect database at localhost
mysql.exe

query data
>show databases
>use mydatabase
>show tables
>select count(*) from table1

mysql is active status
mysqladmin.exe ping ----- view status of mysql at localhost
mysqladmin --host=192.168.0.10 --user=root --pass=mmppst ping
mysqladmin --host=myhostname --user=root --pass=mmppst ping

show current mysql server variable (with path )
mysqladmin --host=myhostname.com --user=root --pass=mmppst variables
mysqladmin --host=myhostname.com --user=root --pass=mmppst variables more

shutdown mysql server
mysqladmin --host=myhostname.com --user=root --pass=mmppst shutdown

view version
mysqladmin.exe --host=myhostname.com --user=root --pass=mmppst version

การ์ตูน ตอนเด็ก

Locke the Superman

คำพูด ใน Red Alert (Games PC)
http://www.gamefaqs.com/computer/doswin/file/476890/20018

เขี้ยวงาสีแดง Crimson Fang Blue Sonnet
เขี้ยวงาสีแดง Crimson Fang/Red Fang โดย อ. Shibata Masahiro
http://www.bloggang.com/viewdiary.php?id=pookpui&month=10-2006&date=25&group=7&gblog=26

23 November 2008

Google Data API

Google Data (with download sample client )
http://code.google.com/p/google-gdata/
.NET Library http://code.google.com/p/google-gdata/downloads/list

Blogger Data API
Reference Guide http://code.google.com/apis/blogger/docs/2.0/reference.html#Parameters

Developer Guild (.NET) Developer's Guide: .NET
http://code.google.com/apis/blogger/docs/2.0/developers_guide_dotnet.html

Developer Guide (Protocol , In deep )
http://code.google.com/apis/blogger/docs/2.0/developers_guide_protocol.html

22 November 2008

ruby sketchup export to *.x ( for directx)

exportx.rb
place in folder Plugins
C:\Program Files\Google\Google SketchUp 6\Plugins


# add item if menu is not already loaded
if( $directxExport_loaded != true ) then
 UI.menu("PlugIns").add_item("Export DirectX...") { export_directx3 }
 $directxExport_loaded = true
end

#Collect objects and explode group or components, apply transformation
def get_all_model_faces(entities, trans)
    # get the array of entities
 if entities.class == Sketchup::ComponentInstance
  entity_list=entities.definition.entities
 elsif entities.class == Sketchup::Group
  entity_list=entities.entities
 else
  entity_list=entities
 end
 # for each element
 for e in entity_list
     # if the element is a Group or a Component
  if (e.layer.visible? and (e.class == Sketchup::Group or e.class == Sketchup::ComponentInstance)) then
   $groups +=1 if e.class == Sketchup::Group
   $components += 1 if e.class == Sketchup::ComponentInstance
   #check for material to set it to the children on next recusive call
   if e.material != nil
    $parent_mat.push(e.material)
   else
    $parent_mat.push($parent_mat.last)
   end
   # recurs call on the group or component
   get_all_model_faces(e, trans*e.transformation)
   $parent_mat.pop
  end
  # if the object is a simple Face
  if( e.class == Sketchup::Face and e.layer.visible?) then
   # check for material
   if e.material == nil
    mat=$parent_mat.last  
   else
    mat = e.material
   end
   # add object to the global collection
   $face_trans_collection.push([e,trans,mat])
   #print e.to_s + "#" + trans.to_s + "\n"
   $faces += 1
  end
 end
end

# Main entry point
def export_directx3()
 # display ruby panel for messages
 Sketchup.send_action "showRubyPanel:"
 # call Save Dialog function
 filename = get_filename
 if filename == nil then # exit if cancel was choosen
  return
 end
 print "Saving to : #{filename} \n"

 # get the active sketchup model
 model = Sketchup.active_model
 # get a new writer for textures export
 texturewriter = Sketchup.create_texture_writer

 #global array that stores each individual text mesh
 meshes = []
 vertex_collection = []
 normal_objects = []
 normal_collection = []
 normal_faces = []
 texture_coords = []
 face_collection = []
 material_collection = []
 material_face = []
 # array to store material
 all_materials = []
 # add a default material when nothing special is specified for a face
 material_collection += ["{ Default_Material }"]

 # global push/pop array for children material propagation
 $parent_mat = []
 # global collection that stores a triplet [face, transformation, material]
 $face_trans_collection = []
 $faces = 0
 $groups = 0
 $components = 0

 #get model entities
 entities = model.entities

 $parent_mat.push(nil)
 # collect faces
 get_all_model_faces(entities, Geom::Transformation.new)

 print "#{$groups} group(s), #{$components} component(s), #{$faces} faces."

 startindex = 0
 # for all Faces
 for ft in $face_trans_collection
  entity = ft[0]
  trans = ft[1]
  mat = ft[2]
  if(entity.typename == "Face") then
   # Get a the MeshPolygon from the Face
   #0 (Include PolygonMeshPoints), 1 (Include PolygonMeshUVQFront), 2 (Include PolygonMeshUVQBack), 4 (Include PolygonMeshNormals).
   mesh = entity.mesh 1  4
   # apply transformation when the object was in a group or in a component
   mesh.transform! trans
   # For all points
   #print "mesh\n"
   for p in (1..mesh.count_points)
    # get the 3D point
    pos = mesh.point_at(p).to_a
    # get the normal at this point
    norm = mesh.normal_at(p)
    normal_objects +=[norm]
    norm = norm.to_a
    # default texture size
    texsize = Geom::Point3d.new(1,1,1)
  
    # if the material was obtained from the group or component
    if mat!=nil and mat.texture!=nil and entity.material==nil then
     # get the texture size
     texsize = Geom::Point3d.new(mat.texture.width, mat.texture.height, 1)
    end
    # get the mesh texture coords (texture deformation: texture can only be streshed, rotated, translated (no parallel deformation)
    uv = [mesh.uv_at(p,1).x/texsize.x, mesh.uv_at(p,1).y/texsize.y, mesh.uv_at(p,1).z/texsize.z]
    # change to left hand counter clockwise
    pos = counterclockwise(pos)
    v = "#{"%.4f" %(pos[0])};#{"%.4f" %(pos[1])};#{"%.4f" %(pos[2])};"
    vertex_collection += [v]
    # change to left hand counter clockwise
    norm = counterclockwise(norm)
    n = "#{"%.4f" %(norm[0])};#{"%.4f" %(norm[1])};#{"%.4f" %(norm[2])};"
    normal_collection += [n]
    u = "#{"%.4f" %(uv[0]+1)},#{"%.4f" %(-uv[1])};"
    texture_coords += [u]
   end
 
   # for each polygon
   for poly in mesh.polygons
    v1 = (poly[0]>=0?poly[0]:-poly[0])+startindex
    v2 = (poly[1]>=0?poly[1]:-poly[1])+startindex
    v3 = (poly[2]>=0?poly[2]:-poly[2])+startindex
    f = "3;#{v3-1},#{v2-1},#{v1-1}"
    face_collection += [f]

    mat_index = 0
    # get the material
    material = mat
    if material then
     # add the material to the global list if this is a new one
     # ! only export texture on front faces (back faces are ignored)
     if  !(all_materials.index(material)) then
      all_materials += [material]
      if material.texture then
       # build a filename based on the targetfilename and the texture name
       f = filename + File.basename(material.texture.filename)
       # load the texture of the entity into the texture writer object
       texturewriter.load entity, true
       # serialize the texture to disk
       texturewriter.write entity, true, f
      end
      m = material.name.gsub(/[^a-zA-Z0-9]/, "_")
      material_collection += ["{ " + m + " }"]
     end
     # get the index for the future added material
     mat_index = all_materials.index(material)+1
    end
    # add the index of the material in the list
    material_face += [mat_index.to_s]
   end
   startindex = startindex + mesh.count_points
  end
 end

 text = "xof 0303txt 0032
// SketchUp 6 -> DirectX (c)2008 edecadoudal, supports: faces, normals and textures
Material Default_Material{
1.0;1.0;1.0;1.0;;
3.2;
0.000000;0.000000;0.000000;;
0.000000;0.000000;0.000000;;
}
"
 #model.materials.purge_unused

 all_materials.each{mat
  # replace '[' and ']' in name by a '_'
  n = mat.name.gsub(/[^a-zA-Z0-9]/, "_")
  mat_string = "Material " + n + "{ \n"
   # faceColor
  mat_string += (mat.color.red/255.0).to_s + ";"  +(mat.color.green/255.0).to_s + ";" + (mat.color.blue/255.0).to_s + ";"
  # Alpha
  mat_string += mat.alpha.to_s + ";;\n"
  #power
  mat_string += "3.2;\n"
  # specularColor ColorRGB 
  mat_string += "0.000000;0.000000;0.000000;;\n"
  # emissiveColor  ColorRGB
  mat_string += "0.000000;0.000000;0.000000;;\n"
  if mat.texture && mat.texture.filename != "" then
   mat_string += "   TextureFilename { "
   mat_string += "\"" + File.basename(filename) + File.basename(mat.texture.filename) + "\";"
   mat_string += "   } \n"
  end
  mat_string += "} \n"
  text += mat_string
 }
 text+= "Mesh {\n"
 text+= " #{vertex_collection.length};\n"
 stxt = vertex_collection.to_a.join(",\n ")
 text+= " #{stxt};\n"
 text+= " #{face_collection.length};\n"
 stxt = face_collection.to_a.join(",\n ")
 text+= " #{stxt};;\n"
 text+= "  MeshMaterialList {\n"
 text+= "  #{material_collection.length};\n"
 text+= "  #{material_face.length};\n"
 stxt = material_face.to_a.join(",\n  ")
 text+= "  #{stxt};\n"
 stxt = material_collection.to_a.join("\n  ")
 text+= "  #{stxt}\n"
 text+= "  }\n"
 text+= "  MeshTextureCoords {\n"
 text+= "  #{texture_coords.length};\n"
 stxt = texture_coords.to_a.join("\n  ")
 text+= "  #{stxt};\n"
 text+= "  }\n"
 text+= "  MeshNormals {\n"
 text+= "  #{normal_collection.length};\n  "
 stxt = normal_collection.to_a.join("\n")
 text+= "  #{stxt};\n"
 text+= "  #{face_collection.length};\n"
 stxt = face_collection.to_a.join(";\n  ")
 text+= "  #{stxt};;\n"

 text+= "  }\n"
 text+= " }\n"

 write_file(filename, text)
 print "end.\n"
end

def get_filename
 model = Sketchup.active_model
 model_filename = File.basename(model.path)
 if model_filename != ""
  model_name = model_filename.split(".")[0]
  model_name += ".x"
 else
  model_name = "Untitled.x"
 end
 my_str = UI.savepanel("Export as", "", model_name)
end

#convert a clockwise vector in a counterclockwise vector
def counterclockwise(v)
 v2 = Array.new
 v2 += [-v.to_a[1]]
 v2 += [v.to_a[2]]
 v2 += [v.to_a[0]]
 my_a = v2
end

def write_file(filename, text)
   fout = File.open(filename, "w")
   fout.puts text
   fout.close
end

21 November 2008

เพลง

Mary MacGregor - Torn Between Two Lovers

Mary Macgregor - SAYONARA
http://www.youtube.com/watch?v=goMuRq9Z9Mk

Enigma- Push the Limits

Enya . The River Sings *by valerio ottaviani*

Crimson tide soundtrack-Main theme

COBRA THE ANIMATION - Ending + Vol.2 preview

คัดลอก ข้อมูล ,xcopy , with exclude option

การคัดลอก ข้อมูล โดยใช้ batch xcopy
อาจใช้
xcopy
และหากต้องการ ไม่รวม ไฟล์ใดๆ ใน xcopy ให้ใช้ /exclude:ชื่อไฟล์ที่เก็บข้อมูล exclude
http://www.tech-recipes.com/rx/2682/xcopy_command_using_the_exclude_flag/

ส่วนการ สร้าง file exclude
น่าจะสร้างได้โดย dir /s /b
เช่น

dir myexcludepath /s /b >> d:\exclude.txt
แล้ว รัน xcopy คล้ายๆ ต่อไปนี้

xcopy.exe pathที่จะคัดลอก pathปลายทาง /exclude:d:exclude.txt
ตัวอย่าง จริงๆ เช่น
XCOPY C:\DATA\*.* C:\BKUP /S /I /Y /EXCLUDE:c:\excludelist.txt

หรือ
xcopy.exe D:\ms4w\apps\myapp\*.* d:\backup1\ /S /I /Y /exclude:d:\exclude2.txt
โดยใน exclude2.txt มี
ข้อมูล
D:\ms4w\apps\myapp\data\picture\path1
D:\ms4w\apps\myapp\data\picture\path2
D:\ms4w\apps\myapp\data\picture\path3
D:\ms4w\apps\myapp\data\picture\path4

รายชื่อแฟ้ม ที่ Exclude อาจใช้โปรแกรม ช่วย หาให้โดย
การ ใช้ Backup utility ของ windows เอง
แล้ว เลือก Job > Save Selection As ...
แล้ว เปิดด้วย notepad ก็จะเห็น ชื่อ ไฟล์ที่จะเป็น exclude นำมาใส่ใน exclude2.txt

สมมุติว่า ข้อมูล ทั้ง folder ของ myapp = 150GB
แต่เป็นข้อมูลใน picture path1 ,path2 ,path3,path4 รวม 145 GB
ดังนั้น ถ้าคัดลอก ปกติ ต้อง มีเนื้อที่ 150 GB แล้วลบ ออกเหลือ 5 GB คือต้องหา HardDisk ใหม่มาอีก 1ลูก และ อาจต้องใช้เวลา ยาวนาน หลาย ชั่วโมง อาจถึง 4 ขม ถ้า ผ่าน network
รวมทั้ง อาจต้อง ทำในช่วงเวลาเย็นๆ หลัง จาก เครื่อง server ไม่ได้ ใช้งานแล้วนานๆ

แต่ ถ้า เป็นวิธีนี้ ก็ จะใช้เนื่อที่ เพียง 5 GB ในการคัดลอก
รวมทั้งเวลา ที่น้อยกว่า ลดความจำเป็นที่จะต้องเบิก HardDisk ใหม่

19 November 2008

เปลี่ยน port mysql ใน AppServ

ในที่นี้ เนื่องจาก ติดตั้ง mysql 2 instance บนเครื่องเดียวกัน
และ มีการ ใช้ port ชนกันจึงต้องเปลี่ยน ที่ ตัวหนึ่้ง
( หลังจาก มีการเปลี่ยน port ของ apache web server ไปแล้ว )
โดยให้ instance ตัวหนึ่ง ใช้ port 3306 ปกติ
และอีกตัว ใช้ port 3307

ต้องการเปลี่ยน port ก็ แก้โดย
C:\AppServ\MySQL\my.ini

เปลี่ยน section
[client]
port=3306

ให้กลายเป็น
[client]
port=3307

หมายเหตุ ในส่วน [client] อาจไม่ต้องแก้ไขก็ได้ เพราะจะ ใช้กับ mysql.exe ซึ่งเป็น client
แต่ server ส่วนใหญ่จะเป็น 3306 อยู่แล้ว อาจแก้ไขเฉพาะ [mysqld] ก็พอ

และต้องเปลี่ยน section mysqld จาก
[mysqld]
# The TCP/IP Port the MySQL Server will listen on
port=3306

ไปเป็น
[mysqld]
# The TCP/IP Port the MySQL Server will listen on
port=3307

แล้ว restart mysql
แล้วอาจทดสอบด้วยการ telnet localhost 3307 ดู

และต้องเปลี่ยน phpMyAdmin อีกให้ มองเห็นตัวนี้ รวมทั้ง เมื่อจะติดต่อด้วย php
ต้องเรียกด้วย
$link = mysql_connect('127.0.0.1:3307', 'mysql_user', 'mysql_password');
หรือ
$link = mysql_connect('example.com:3307', 'mysql_user', 'mysql_password');

แก้ไข ที่ phpMyAdmin ดังนี้
C:\AppServ\www\phpMyAdmin
config.inc.php แก้ไข จาก

cfg['Servers'][$i]['port'] = '';

ให้เป็น
cfg['Servers'][$i]['port'] = '3307';

แล้ว ลอง start mysql ใหม่
และ start phpmyadmin ใหม่ จาก browser

ถ้าทำการเปลี่ยน port ของ apache ต้อง restart apache ใหม่ด้วยครับ

17 November 2008

Apache Virtual Path

set Apache Virtaul Path by
edit httpd.conf
(for AppServe software bundle ( http://www.appservnetwork.com/ )
edit c:\Appserv\Apache2.2\httpd.conf

for : browse file , download
data path : c:\checkCPU
virtual path : /download/check_cpu
url : http:/127.0.0.1/download/check_cpu

Add this text to httpd.conf .


Alias /download/check_cpu "C:/checkCPU"
<directory>
   Options Indexes FollowSymLinks MultiViews ExecCGI
   AllowOverride All
   Order allow,deny
   Allow from all
</directory>

ref from
http://www.amenco.com/golivein24//tips/dynamic_content/03_apache_alias.html
http://www.google.co.th/search?hl=th&q=apache++virtual+path&meta=