发表于 2009-1-5 19:48
| 
鐢╬b鐢熸垚guid
鍙戝竷: 2008-6-26 20:41 | 浣滆: admin | 鏌ョ湅: 10娆
缂栦竴涓叏灞鍑芥暟濡備笅锛
銆銆//---------------------------------------------
銆銆//Function f_get_GUID//寰楀埌鍏ㄧ悆鍞竴鐮
銆銆//Argument: of_guid //鍏ㄧ悆鍞竴鐮
銆銆//Return: [None]
銆銆//Create by 娉ヨ崏闉 2004-03-10
銆銆//----------------------------------------------
銆銆oleObject PBObject
銆銆long ll_result
銆銆PBObject = CREATE oleObject
銆銆ll_result = PBObject.ConnectToNewObject("PowerBuilder.Application")
銆銆IF ll_result < 0 THEN
銆銆messagebox(gs_message,"杩炴帴澶辫触锛氫笌PowerBuilder.Application杩炴帴鍑洪敊锛")
銆銆return
銆銆ELSE
銆銆ll_result = PBObject.GenerateGUID(REF of_guid)
銆銆END IF
銆銆IF ll_result < 0 THEN
銆銆messagebox(gs_message,"鐢熸垚GUID澶辫触锛氫笉鑳借幏寰桮UID锛")
銆銆return
銆銆END IF
銆銆of_guid = mid(of_guid,2,len(of_guid) - 2)
銆銆//End of Fuction
銆濂藉暒锛屼互鍚庝笉鐢ㄤ负涓婚敭閲嶅闂鍐嶇儲鎭间簡鍚с
銆銆涓嶈繃锛岃娉ㄦ剰璇ュ嚱鏁伴渶瑕佺殑鏀寔鏂囦欢锛氾紙浠B7.0涓轰緥锛
銆銆pbappl.reg锛堟墽琛屽畠娉ㄥ唽涓閬嶏紝7.0浠ヤ笅蹇呴』姝ゆ枃浠讹級
銆銆Pbvm70.dll锛堜笉鐢ㄥ璇翠簡锛
銆銆Pbaen70.tlb锛圥B鑷姩搴旂敤鏈嶅姟绫诲簱鍏ュ彛锛
銆銆 GUID濡備綍鍋氬埌鍞竴锛
銆銆瑕佺‘淇濅竴涓爣璇嗘槸鍞竴鐨勶紝浠呮湁涓や釜鏂规硶锛
銆銆1锛庨氳繃涓浜涙満鏋勭粍缁囨潵鐧昏锛
銆銆2锛庝娇鐢ㄧ壒鍒殑绠楁硶鏉ヤ骇鐢熷敮涓鐨勬暟瀛楋紝杩欎簺鏁板瓧鍙璁や负鍦ㄤ笘鐣岃寖鍥村唴鏄敮涓鐨勩
銆銆绗竴涓柟娉曞緢甯歌锛屾瘮濡傝韩浠借瘉鍙风爜鏄浗瀹跺埗瀹氱殑鏍囪瘑涓汉銆傚畠鐨勯棶棰樻槸锛屽埗瀹氳繖鏍囪瘑鐨勬満鏋勭粍缁囪嚜韬瓨鍦ㄦ墽琛屽亸宸紝鑰屼笖鎵嬬画绻佺悙锛屽鏁版儏鍐典笅浣犲緱鑺遍挶璐规椂銆
銆銆绗簩涓柟娉曟洿閫傚悎浜庡紑鍙戣呫傚鏋滀綘鍙互鍙戞槑涓涓畻娉曪紝姣忔璋冪敤瀹冮兘鍙互浜х敓涓涓彲琚涓烘槸鍞竴鐨勫悕瀛楋紝閭ｄ箞杩欎釜闂灏辫В鍐充簡銆
銆銆浜嬪疄涓婏紝寮鍙戣蒋浠跺熀閲戜細(Open Software Foundation锛孫SF)宸茬粡鐮旂┒鍑轰竴绉嶈兘浜х敓鍞竴鏍囪瘑绗︾殑绠楁硶锛屼骇鐢熷叏鐞冨敮涓鏍囪瘑绗(Universally Unique Identifier锛孶UID)銆傚湪COM鐨勫懡鍚嶆爣鍑嗕笂锛屽井杞娇鐢ㄥ悓鏍风殑绠楁硶锛佸湪COM涓井杞皢瀹冮噸鍛藉悕涓篏lobally Unique Identifier(GUID)銆
銆銆鐢熸垚GUID鐨勭畻娉曟牴鎹互涓嬪嚑涓柟闈細1.褰撳墠鏃ユ湡鍜屾椂闂淬2.缃戠粶閫傞厤鍣ㄥ崱鍦板潃銆3.鏃堕拡搴忋4.鑷姩閫掑璁℃暟鍣ㄣ傚叾涓紝缃戝崱鍦板潃鏄浉浜掍笉鍚岀殑锛屽娌℃湁缃戝崱鐨勬満鍣紝鍦板潃瀵逛娇鐢ㄤ腑鐨勬満鍣ㄤ繚鎸佸敮涓鎬с
銆銆GUID鐨勮褰曢氬父閲囩敤16杩涘埗銆備笉杩囪繖娌℃湁鍏崇郴锛屼竴涓吀鍨嬬殑GUID绫讳技涓猴細"88AB240C-F761-49B8-B47F-94B0ABA4115A"锛岀暐鍘"-"锛屽嵆涓轰竴涓128浣嶇殑鍞竴鏁板瓧銆2鐨128娆℃柟鏄竴涓潪甯稿ぇ鐨勬暟瀛椼128浣嶇殑鎺ュ彛鏍囪瘑绗︿娇寰楁垜浠彲鑳藉垱寤哄ぇ绾340282366920900000000000000000000000000涓嫭绔嬬殑鎺ュ彛锛岃冻澶熶负灏嗘潵10782897524560000000骞存瘡绉掑垱寤轰竴涓囦嚎涓帴鍙ｃ
銆銆杩欐槸涓粈涔堟蹇靛憿锛熷氨鎷胯繖鍑犱釜鏁板瓧涓渶灏忕殑鈥滀竴涓囦嚎鈥濇潵璇淬傚亣濡傛妸閾舵渤绯荤缉灏忎竴涓囦嚎鍊嶏紝涔熷氨鏄妸閾舵渤绯荤洿寰勭缉灏忓埌涓鐧句竾鍏噷锛岃繖鏃跺お闃冲氨鍙樻垚涓绮掕姖楹伙紝閭ｄ箞鏈澶х殑琛屾槦鏈ㄦ槦灏卞彉鎴愪簡涓绮掔伆灏樸
銆銆鍗充娇鍦扮悆姣佺伃浜嗭紝瀹冧粛鐒舵槸鍏ㄧ悆鍞竴銆
