回答1：
灞曞紑鍏ㄩ儴
Delphi 6 鍚湁璁稿鏇存柊鏇村己鐨刋ML鏀寔鍔熻兘锛屽鍔犱簡XML鏂囦欢缂栫▼锛孹ML鏁版嵁缁戝畾鍚戝锛孹ML鏄犺薄鍜孊izSnap(SOAP/XML Web鏈嶅姟)銆傛湰鏂囨槸涓夌瘒璁鸿堪Delphi 6涓璛ML鍔熻兘绯诲垪鏂囩珷鐨勭涓夌瘒锛屼篃鏄渶鍚庝竴绡囷紝璁鸿堪Delphi 6涓殑XML鏄犺薄宸ュ叿锛屼篃绉颁箣涓篨ML鏄犺薄鍣?XML Mapper)銆?br />XML鏄犺薄鍣?br />鍙互鍗曠嫭鎵撳紑鎴栬€呭湪IDE鐨勫伐鍏?Tools)鑿滃崟涓墦寮€鏄犺薄鍣?XML Mapper)銆傝繖涓伐鍏峰皢XML鏂囦欢褰卞皠涓虹被浼间簬鏁版嵁搴撲腑鐨勬暟鎹泦(DataSet)锛佸湪鍓嶄簩绡囨枃绔犱腑锛屾垜浠兘浣跨敤TXMLDocument缁勪欢鏉ュ鐞?XML鏂囦欢鎴朮ML缁戝畾鐨勬暟鎹€傜幇鍦紝鎴戜滑涓嶅啀浣跨敤TXMLDocument缁勪欢浜嗐€傛垜浠敤XML鏄犺薄鍣ㄥ皢XML鏂囦欢杞崲鎴愭暟鎹寘(鎴栧弽涔?锛岃繖鏍峰氨鍙互璞℃垜浠潪甯哥啛鎮夊緱閭ｆ牱浣跨敤璇稿DataSet杩欐牱鐨勭粍浠舵潵澶勭悊XML鏁版嵁銆?br />XML鏄犺薄鍣ㄥ彲浠ユ墦寮€XML鏂囦欢鍜屾暟鎹寘鏂囦欢(*.xml,*.cds)锛岀翰鏂囦欢(*.dtd,*.xdr,*.xsd)锛? 搴撴枃浠?(*.xrp) 鍜岃浆鎹㈡枃浠?*.xtr)銆傚悗闈㈣繖涓浆鎹㈡枃浠舵槸鐢辨槧璞″櫒鑷浜х敓鐨勩€傜幇鍦ㄥ姞杞芥垜浠湪鍓嶄簩绡囨枃绔犱腑鐢ㄥ埌鐨凜linic.xml鏂囦欢锛岀湅鐪嬫暟鎹奖灏勬垚浠€涔堟牱銆?br />濡傚浘1鎵€绀猴紝Clinic.xml褰卞皠涓轰竴涓狢linics缁撴瀯锛屽惈鏈夎嫢骞睠linic瀛愰」銆傛瘡涓狢linic鏈?涓煙锛欯No, Title, Date, 鍜孴opics銆傛敞鎰廆No鏄睘鎬э紝鍏朵粬3涓槸鍏冪礌銆?br />灏嗛紶鏍囩Щ鑷矯linic鑺傜偣锛屾寜鍙抽敭锛岄€夋嫨"Select All"(Ctrl+A)鎴栬€?quot;Select All Children"锛岃繖鏍峰氨鎶夽No, Title, Date and Topics鍚勯」鍔犲埌涓棿鐨勬槧璞¤〃鍐呫€傛鏃惰繕娌℃湁鐢熸垚鐩稿簲鐨勬暟鎹泦鍩熴€?br />鎴戜滑鍐嶆鍒癈linic鑺傜偣鎸変笅榧犳爣鍙抽敭锛岄€夋嫨"Create Datapacket from XML"(Ctrl+D)锛岃繖鏃朵骇鐢熶簡鐩稿簲鐨勬暟鎹寘骞舵樉绀哄湪鏄犺薄鍣ㄧ殑鍙虫柟锛屽鍥?鎵€绀恒€?br />鏄犺薄鍣ㄥ皢XML鏂囦欢杞崲鎴?涓爣鍑嗘牸寮忕殑鏁版嵁鍖呫€傛垜浠繕鍙互澧炲姞鎴栧垹闄ゆ暟鎹寘銆傝繖鍦˙2B鍦哄悎灏や负閲嶈锛屽皢鎺ユ敹鍒扮殑鏁版嵁(绾綍)鎻掑叆鍒版暟鎹簱涓€?br />鍒涘缓骞舵祴璇曡浆鎹?br />鎸変笅Create and Test Transformation鎸夐挳锛岄殢鍗冲脊鍑轰竴涓狣BGrid绐楀彛锛屼互ClientDataSet鏁版嵁鍖呮牸寮忔樉绀篊linic.xml鏂囦欢閲岀殑鏁版嵁銆傛暟鎹浆鎹箣鍚庯紝鏈?绉嶆柟寮忓瓨鐩樸€傚浜庡垵瀛﹁€呮潵璇达紝鍙互瀛樺洖鍘熷厛鐨凜linic.xml鏂囦欢銆傚彟澶栬繕鍙互瀛樹负鍖呮暟鎹枃浠舵牸寮?*.xml)锛屽簱鏂囦欢 (repository)鏍煎紡(.xrp)鍜岃浆鎹㈡枃浠舵牸寮?*.xtr)銆傚悗闈㈢殑搴撴枃浠跺彲浠ヨXMLTransform缁勪欢(鍦―ata Access鏍囩閲?璋冪敤銆?br />XML杞崲Delphi 6閲屾湁3涓猉ML杞崲缁勪欢銆俆XMLTransformProvider缁勪欢閫氳繃clinic.xtr鏂囦欢灏嗗師濮媂ML鏂囦欢杞崲鍒癈lientDataSet銆?br />涓句緥鏉ヨ锛屽湪Delphi 6鐨勪富绐椾綋涓婂畨鏀句竴涓猅XMLTransformProvider(鍦―ata Access鏍囩閲?銆傚皢TransformRead灞炴€х殑TransformationFile瀛愬睘鎬ц涓篶linic.xtr浣滀负鏁版嵁婧愩€傚皢 XMLDataFile璁句负clinic.xml鏂囦欢銆?br />鐒跺悗瀹夋斁涓€涓狢lientDataSet缁勪欢锛屽皢瀹冪殑ProviderName灞炴€ц涓篨MLTransformProvider銆?br />鐜板湪鍙互婵€娲籆lientDataSet缁勪欢浜嗭紝瀹冨皢鐢盭MLTransformProvider鎻愪緵鐨勬暟鎹浆鎹㈣繃鏉ャ€傚畠鐨凱acketRecords灞炴€у€肩己鐪佷负-1锛岃〃绀鸿浆鎹㈠叏閮╔ML鏂囦欢銆?br />瑕佹樉绀烘暟鎹紝鎴戜滑鍐嶅姞鍏ataSource鍜孌BGrid缁勪欢銆傚皢DataSource鎸囧悜ClientDataSet锛孌BGrid鎸囧悜DataSource锛屽氨璞℃垜浠€氬父浣跨敤寰楅偅鏍枫€傜粨鏋滄樉绀哄鍥?銆?br />鐜板湪鍙互璞′娇鐢ㄦ暟鎹簱鏁版嵁閭ｆ牱浣跨敤XML鏂囦欢閲岀殑鏁版嵁浜嗐€傚鏋滃鏁版嵁杩涜浜嗕慨鏀癸紝鍙互璋冪敤ClientDataSet.ApplyUpdates鏂规硶灏嗘敼鍔ㄧ殑鏁版嵁瀛樺洖XML鏂囦欢銆?br />浣嗘槸杩欐牱鍋氭槸涓嶅鐨勩€傛垜浠繕寰楀惎鍔╔ML鏄犺薄鍣紝灏嗗垱寤烘柟寮忕敱"XML to Datapacket"鏀逛负"Datapacket to XML"銆傝繖鏃跺鏋滄寜涓?quot;Create and Test Transformation"閿紝鐪嬪埌鐨勬槸绌虹櫧椤点€傜劧鍚庡皢杞崲缁撴灉瀛樹负ClinicToXml.xtr鏂囦欢銆?br />鐜板湪锛屽皢TXMLTransformationProvider鐨凾ransformationWrite灞炴€т腑鐨勫瓙灞炴€ransformationFile璁句负ClinicToXml.xtr鏂囦欢銆?br />鏈€鍚庡湪涓荤獥浣撶殑OnClose浜嬩欢涓姞涓婂瓨鐩樻寚浠わ細ClientDataSet1.ApplyUpdates(-1)绋嬪簭閫€鍑轰箣鍓嶄細灏嗕綔鍑虹殑鏁版嵁淇敼瀛樺洖XML鏂囦欢銆?br />杩欐牱灏变负Delphi 6鐨凚2B寮€鍙戠幆澧傿izSnap鐨勮櫄鎷熶腑闂村眰浣滃ソ浜嗘暟鎹噯澶囥€?
