tag:blogger.com,1999:blog-88991515090805002882024-03-05T20:44:04.436-08:00Script of RoxThe price of life is very; even so, we need keep some for our love.Unknownnoreply@blogger.comBlogger72125tag:blogger.com,1999:blog-8899151509080500288.post-6701178410355734842022-09-29T03:17:00.006-07:002022-09-30T19:56:04.807-07:00Meta quest2 APP 一直顯示未安裝<p>可能是用到沒電造成,重新充飽電後可以開機但桌球APP卻一直停在未安裝狀態,連續點選安裝幾次都沒有成功,對於不熟悉的裝置一時之間還真無助。最後真沒辦法想到曾經重新啟用quest2成功拿到被推薦獎金,這次再重置quest2看看沒想到問題竟然解決了。所幸只有安裝3-4個APP,重新安裝完連紀錄都在。</p><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjSpqXWw2FSQd15oW_MEgdiN-TfYF6GkHgXyaLV9-3oKe6wQ6ZlrPJpX8M_UcLtznRvUHem13m4Z9aSlX0DiIvAVAEJTV0Q6YViLlU5wLN_IdUoiHsH12M8NotjV7G2udI5-E2JIbI_C6b4WIWtLihfCsqhXXhaWUU6AZ9iDE2P6vjB5f8fMmcpu1ZdUw/s2532/IMG_1755.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="1170" data-original-width="2532" height="148" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjSpqXWw2FSQd15oW_MEgdiN-TfYF6GkHgXyaLV9-3oKe6wQ6ZlrPJpX8M_UcLtznRvUHem13m4Z9aSlX0DiIvAVAEJTV0Q6YViLlU5wLN_IdUoiHsH12M8NotjV7G2udI5-E2JIbI_C6b4WIWtLihfCsqhXXhaWUU6AZ9iDE2P6vjB5f8fMmcpu1ZdUw/s320/IMG_1755.PNG" width="320" /></a></div><br /><p><br /></p>Unknownnoreply@blogger.com1tag:blogger.com,1999:blog-8899151509080500288.post-16959067170359541472022-03-15T16:42:00.000-07:002022-03-15T16:42:15.833-07:00HTC 不斷重新開機 - Google Play 服務的死亡之吻<p>前幾天舊手機HTC One X9突然一直不斷重新開機,本來以為電池是該掛了,上網查到低階重置的方法,重置了手機,死馬當活馬醫竟然可以開機了。</p><p>確定不是硬體或是電池的問題後,花了一些時間重新登入帳號安裝完該裝的軟體,還來不及高興又開始不斷重新開機⋯</p><p>再來一次低階重置問題仍然存在,不過一切問題的發生好像是在上網之後,經過一些嘗試發現在不斷重開機的秒差之間,點選飛航模式就可以阻止重開機。</p><p>在飛航模式下終於發現原兇是Google Play 服務,對就是你,在沒有經過我同意的情形下把我從快樂如天堂的版本12.6.85改成死機的地獄版本22.02.21!(有圖有真相)</p><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/a/AVvXsEjJa31SK58Z9m1HYXPEaaJ1nu3E_6-8vJzVao3itLo04VwrZopococjL_tlXP1yqXo1G3r889u51K5Hsch4XroqLiDL28lx4Np_GbcCYssJ5L0EgZx2TMHp4umNzBhSoY3BNTtGNZ-jvKKUbN7AW3-9X80iXMGRJ9E2GOnFAMfHHI4doVSZy92UmcsMcw=s1920" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="1920" data-original-width="1080" height="320" src="https://blogger.googleusercontent.com/img/a/AVvXsEjJa31SK58Z9m1HYXPEaaJ1nu3E_6-8vJzVao3itLo04VwrZopococjL_tlXP1yqXo1G3r889u51K5Hsch4XroqLiDL28lx4Np_GbcCYssJ5L0EgZx2TMHp4umNzBhSoY3BNTtGNZ-jvKKUbN7AW3-9X80iXMGRJ9E2GOnFAMfHHI4doVSZy92UmcsMcw=s320" width="180" /></a></div><div class="separator" style="clear: both; text-align: center;"><br /></div><div class="separator" style="clear: both; text-align: left;">在改回12.6.85後我的HTC只能活在飛航模式下,才能躲過你Google Play 服務的死亡之吻。</div><div class="separator" style="clear: both; text-align: left;"><br /></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/a/AVvXsEj6bbCoQbToURzaD3rTJ7N1MkJzeFwDG2wxVqTulBq52F460YNJIB5KUZJV38M_YayeuXip8dUbzm7F0sKewASb1jwTKI_pgLoE2AXt5y9y0M9AnCQphRLsRQxZWfslUdaoJVqBzt24nYY1wHiY7VjPiXO6NE3vOWDL0ssl3c7rNpueO_DS6NGv47FD2g=s1920" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="1920" data-original-width="1080" height="320" src="https://blogger.googleusercontent.com/img/a/AVvXsEj6bbCoQbToURzaD3rTJ7N1MkJzeFwDG2wxVqTulBq52F460YNJIB5KUZJV38M_YayeuXip8dUbzm7F0sKewASb1jwTKI_pgLoE2AXt5y9y0M9AnCQphRLsRQxZWfslUdaoJVqBzt24nYY1wHiY7VjPiXO6NE3vOWDL0ssl3c7rNpueO_DS6NGv47FD2g=s320" width="180" /></a></div><br /><div class="separator" style="clear: both; text-align: left;"><br /></div><div class="separator" style="clear: both; text-align: left;"></div><p style="text-align: center;"><br /></p><br />Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-85007683590557713082022-02-11T00:17:00.008-08:002022-02-11T07:04:50.791-08:00從零開始 - Reset to Android<p> <b>Android</b> <b>App</b> 多如過江之鯽, 而自己真正用得到的卻是屈指可數, 但是就缺那麼一個. 為了能使用現役手機能完成這個簡單需求, 費了九牛二虎之力, 從零開始, 蹣跚學步, 終於在過完農曆年後得以啼聲初試: </p><p><a href="https://play.google.com/store/apps/details?id=com.softwaretech.findmygoods">管傢伙 - FindMyGoods</a></p><p><br /></p>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-79973774012440432422019-11-11T20:31:00.002-08:002019-11-11T20:33:19.571-08:00<span style="font-size: large;"><b>Macbook air 2013中 128G 換 Kingston A2000 1T 眉角</b></span><br />
<br />
1.macOS High Sierra–10.13(含)或以後版本: macOS Mojave–10.14, macOS Catalina–10.15才有支援nvme SSD驅動程式.<br />
2.必須用<b>原廠內建SSD升級macOS</b>,如用外接USB升級會有:missing a firmware partition 問題.<br />
3.內建SSD升級完OS就可以安裝到外接USB以便換掉內建SSD後開機用.<br />
4.用USB開機(<b>新版OS才可找到nvme SSD</b>)安裝OS到nvme SSD.<br />
(如果不裝雙系統, 到此可以收工)<br />
5.用bootcamp 安裝windows10如遇 “ 電腦意外地重新啟動貨發生意外的錯誤。Windows 無法進行安裝。......”<br />
出現錯誤畫面時,按 SHIFT+F10 然後黑框內(DOS)輸入regedit 開啟登錄檔下面路徑<br />
HKLocal machine/SYSTEM/SETUP/STATUS/ChildCompletion <b>修改 “setup.exe”將1 改成 3</b>.<br />
6.安裝好windows10<b>插著電源</b>,開機後到USB的bootcamp目錄下執行SETUP安裝MACBook的windows驅動.<br />
7.拔電源前須到windows控制台->電源選項->建立電源計劃選"<b>高效能</b>".<br />
<br />
配備:<br />
1. Macbook air 2013中 128G<br />
2. Kingston A2000 1T<br />
3. SSD 轉接卡 M.2 NGFF轉MAC 2014/15 Mac AIR A1465/1466 NVME<br />
4. 五星起子1.2mm可以拆電腦背蓋<br />
5. 六星起子T5轉開 SSD 的螺絲<br />
<br />
參考資料:<br />
1. https://macuknow.com/2019/09/02/2919/macbook-pro-ssd-nvme/<br />
2. https://www.itread01.com/p/884233.html<br />
3. 控制台->電源選項->建立電源計劃<br />
4. https://forums.macrumors.com/threads/upgrading-2013-2014-macbook-pro-ssd-to-m-2-nvme.2034976/Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-6650093703960169632017-01-16T22:03:00.000-08:002017-01-16T22:06:27.132-08:00Paradox DB connection string sample Dim ConnectionString As String = ""<br />
ConnectionString = "Driver={Microsoft Paradox Driver (*.db )};DriverID=538;Fil=Paradox 5.X;DefaultDir=C:\MY_DB;Dbq=C:\MY_DB;CollatingSequence=ASCII;"<br />
Dim ParadoxConn As New System.Data.Odbc.OdbcConnection(ConnectionString)<br />
ParadoxConn.Open()<br />
<br />
Dim da As New System.Data.Odbc.OdbcDataAdapter("Select * from my_table", ParadoxConn)<br />
Dim ds As New DataSet<br />
da.Fill(ds, "ParadoxTable")<br />
ParadoxConn.Close()<br />
<br />
DataGridView1.DataSource = ds.Tables(0)Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-61536101769019706012015-05-06T19:47:00.002-07:002015-05-06T19:47:30.110-07:00Turn auto-sync on or off for your Nexus phoneOn devices running Android 5.0 and up<br />
On your mobile device, open Settings .<br />
Under "Personal," touch Accounts.<br />
In the top-right corner, touch menu Menu.<br />
Check or uncheck Auto-sync data.<br />
<br />
On devices running Android 4.4. and below<br />
On your mobile device, open Settings .<br />
Under "Wireless & networks," touch Data usage.<br />
In the top-right corner, touch menu Menu.<br />
Check or uncheck Auto-sync data.
<br />
<br />
資料來源:<br />
https://support.google.com/nexus/answer/2840875?hl=en Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-10986394168873472802014-10-15T03:27:00.001-07:002014-10-15T03:27:00.648-07:00jQuery Autocomplete - ASP.NET ashx datasource<p> </p> <p><strong>1. autocomplete.aspx</strong></p> <p><strong>2. handler1.ashx</strong></p> <p>Sample Code:</p> <p><strong>1. autocomplete.aspx:</strong> <p><html lang="en"><br><head><br> <meta charset="utf-8"><br> <title>jQuery UI Autocomplete - ASP.NET ASHX datasource</title><br> <link rel="stylesheet" href="//code.jquery.com/ui/1.11.1/themes/smoothness/jquery-ui.css"><br> <script src="//code.jquery.com/jquery-1.10.2.js"></script><br> <script src="//code.jquery.com/ui/1.11.1/jquery-ui.js"></script><br> <style type="text/css"><br> body {<br> font-family: "Trebuchet MS", "Helvetica", "Arial", "Verdana", "sans-serif";<br> font-size: 62.5%;<br> }<br> .ui-autocomplete-loading {<br> background: white url("images/ui-anim_basic_16x16.gif") right center no-repeat;<br> }<br> </style><br> <script type ="text/javascript" ><br> $(function () {<br> $("#txtInput").autocomplete({<br> source: "handler1.ashx",<br> minLength: 1,<br> select: function (event, ui) {<br> alert(ui.item.value);<br> },<br> change: function(event, ui) { <br> alert("changed!");<br> }<br> });<br> });<br> </script><br></head><br><body> <p><div class="ui-widget"><br> <label for="Sample">Your list: </label><br> <input id="txtInput"><br></div> <p>‘----------------------------------------------------- <p><strong>2. handler1.ashx:</strong> <p>Public Class Handler1<br> Implements System.Web.IHttpHandler <p> Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest <p> 'context.Response.ContentType = "text/plain"<br> 'context.Response.Write("Hello World!")<br> 'query string <br> Dim prefixText As String = context.Request.QueryString("term") <p> 'suggestion list<br> Dim v_ret As String = "[]" <p> 'TODO: SQL data searching... <p> 'Sample list:<br> v_ret = "[{""id"":""A"",""label"":""AAA"",""value"":""AA""},<br> {""id"":""B"",""label"":""BBB"",""value"":""BB""}]" <p> context.Response.ContentType = "text/plain"<br> context.Response.Write(v_ret) <p> End Sub <p> ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable<br> Get<br> Return False<br> End Get<br> End Property <p>End Class <p>‘--------------------------------------------------------- <p>Ref: <a href="http://www.jqueryui.com">www.jqueryui.com</a></p> Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-36088686764499584492014-05-01T23:49:00.001-07:002022-02-13T18:59:55.127-08:00MySQL ASP.NET 中文亂碼<p>用notepad++(MS notepad 會自動轉碼)開啟<br />C:\ProgramData\MySQLMySQL Server 5.7\my.ini </p><p>找到 [client] 區塊</p><p>加入</p><p>default-character-set=utf8</p><p>找到 [mysqld] 區塊</p><p>加入</p><p>character-set-server=utf8<br /></p><p>collation-server=utf8_general_ci </p> <p>原來除了MySQL本身資料編碼設定外</p> <p>在ASP.NET中ODBC版本也有絕對的影響:</p> <p>MySQL ODBC 3.51 Driver 只能顯示big5繁體中文<br />MySQL ODBC 5.1 Driver 能同時顯示utf8簡體繁體中文 </p><p>web.config中連結字串差別:</p><p><add name="MySQLConnStr" connectionString="DRIVER={MySQL ODBC 5.1 Driver};Database=[strDatabaseName];Server=[strServerName];UID=[strUserName];PWD=[strPassword];<span style="color: red;">charset=utf8</span>"/></p> <p>dotNetFramework1.1: </p><p><add key="MySQLConnStr" value="DRIVER={MySQL ODBC 3.51 Driver};Database=[strDatabaseName];Server=[strServerName];UID=[strUserName];PWD=[strPassword];OPTION=3;CharSet=big5;"/> </p><p><br /></p><p></p><p></p><p></p><p></p><div id="simple-translate"><div><div class="simple-translate-button isShow" style="background-image: url("chrome-extension://ibplnjkanclpjokhdolnendpplpjiace/icons/512.png"); height: 22px; left: -59px; top: 313px; width: 22px;"></div><div class="simple-translate-panel " style="background-color: white; font-size: 13px; height: 200px; left: 0px; top: 0px; width: 300px;"><div class="simple-translate-result-wrapper" style="overflow: hidden;"><div class="simple-translate-move" draggable="true"></div><div class="simple-translate-result-contents"><p class="simple-translate-result" dir="auto" style="color: black;"></p><p class="simple-translate-candidate" dir="auto" style="color: #737373;"></p></div></div></div></div></div>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-5864829060198495822013-11-14T20:37:00.001-08:002013-11-14T20:37:45.941-08:00MTP USB 無法辨識<p> </p> <p>很久沒有用PC(Win7, 64bit)連接手機Nexus 4, </p> <p>記得之前一接上去充電, 手機有時會一直被喚醒,</p> <p>但至少我的電腦內有顯示Nexus 4而且可讀取內容檔案.</p> <p>如今卻只在右下方顯示MTP USB裝置 <font color="#ff0000">X</font>失敗,</p> <p>而裝置管理員也出現MTP USB (黃色三角型),</p> <p>用了很多方法, 最後只有改註冊表這招有效:</p> <p>unplug phone<br>open up the registry editor<br>regedit<br>navigate to<br>HKEY_LOCAL_MACHINE > SYSTEM > CurrentControlSet > Control > Class > {EEC5AD98-8080-425F-922A-DABF3DE3F69A}<br>if you see a string called Upperfilters<br>right click on {EEC5AD98-8080-425F-922A-DABF3DE3F69A} on the left side and export if (so you have a backup)<br>delete the Upperfilters string<br>plug phone back in <p>重新掃描硬體變更. 解決! Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-51056074666557983752013-10-10T20:13:00.000-07:002013-10-10T20:31:34.995-07:00Nice World Clock<iframe scrolling="no" frameborder="0" style="overflow:hidden;border:0;margin:0;padding:0;width:480px;height:250px;" src="http://www.clocklink.com/Clocks/html5/html5-world.html?Phoenix&Stockholm&Taipei&480&blue"></iframe>Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-17378023211719305452013-05-08T18:36:00.000-07:002013-10-10T20:09:56.650-07:00CD to MP3CD 要轉存到電腦媒體檔案可以用 Windows Media Play 轉換:<br />
1. 執行Windows Media Play在中間按右鍵選擇: 其他選項<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh0mdruYJeImCxhX7u4FxU8vMkGhvSlBWwNs1s1G5ysS_r7pGJ7Za7Pc8GyR6mirYUpcHmeE5DAoAdXkZGVchVZbosL9d3vyszf-MEtb0nEp62qIhL1dezlW4s40cHJjyWeSTyrgak5tyGQ/s1600-h/001%25255B4%25255D.jpg"><img alt="001" border="0" height="331" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgkQ6sm3DfmPq6ky8UUjit7sSF-7ZGpPKvNe6VVMskPyRsJcuk0G3y7yAp4HXQKbntuQcYxZArOB0g-sEXQDkL21BUxQ8sIscYXqodE-yL3qspAhygaPQMfVs7xu_3c5RGRMYREcPY4DqW-/?imgmax=800" style="background-image: none; border-width: 0px; display: inline; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="001" width="325" /></a><br />
2. 開啟選項視窗後可以選擇擷取到那裡, 格式及音訊品質.<br />
<div class="separator" style="clear: both; text-align: left;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVQpYY_kyAXbuJ6nHatWCxASeXcEOw-EDaHMjf-NLhl1kf6Whyphenhyphenu1XuuInmNN8mJEGzHcX-b6he7-UNp1FOmD_G1PbWiFerJ2hwUtTtQ7BI_lZT2H3OezSGY7Q4IUCmDq2qi_vUlw5Q9PLu/s1600/002.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVQpYY_kyAXbuJ6nHatWCxASeXcEOw-EDaHMjf-NLhl1kf6Whyphenhyphenu1XuuInmNN8mJEGzHcX-b6he7-UNp1FOmD_G1PbWiFerJ2hwUtTtQ7BI_lZT2H3OezSGY7Q4IUCmDq2qi_vUlw5Q9PLu/s320/002.jpg" width="263" /></a></div>
<br />
<br />
3. 回到現在播放視窗點選右上角的: 切換到媒體櫃:<br />
<div class="separator" style="clear: both; text-align: left;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjXG5KAw7Ju1Hs_zuOLx0PFjXluzMNmW98w6CiKcwhmVTRHVkpi6JiNdvJtoPq-JHkKdK9U5uQGPcyWZhC18gCRzu4zKMERjrxmnd-K-muml1omfeXH5MA70solgpzAZCMyg_vAdRw01p-W/s1600/003.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="242" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjXG5KAw7Ju1Hs_zuOLx0PFjXluzMNmW98w6CiKcwhmVTRHVkpi6JiNdvJtoPq-JHkKdK9U5uQGPcyWZhC18gCRzu4zKMERjrxmnd-K-muml1omfeXH5MA70solgpzAZCMyg_vAdRw01p-W/s320/003.jpg" width="320" /></a></div>
<br />
<br />
4. 放入CD, 點選左方CD片名, 勾選要擷取的標題再按[擷取CD]即可.<br />
<div class="separator" style="clear: both; text-align: left;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhp2Erf6gV40azxlNje3a2bLiMc35qzdesvlIMA7iaqpBmvoNpBzWTkVf-rZ0rkaRAwE2dnjkkIv4EGiUWOU7MJdemwHc2iP22kki17blgelposuMWAFZom5v0vulKFgIXaQ09ROyRHB06R/s1600/004.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="131" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhp2Erf6gV40azxlNje3a2bLiMc35qzdesvlIMA7iaqpBmvoNpBzWTkVf-rZ0rkaRAwE2dnjkkIv4EGiUWOU7MJdemwHc2iP22kki17blgelposuMWAFZom5v0vulKFgIXaQ09ROyRHB06R/s320/004.jpg" width="320" /></a></div>
<br />
Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-25310855798908102292012-11-15T05:56:00.000-08:002012-11-15T17:57:48.065-08:00列印QR Code貼紙<p>Imports ThoughtWorks.QRCode.Codec <br />Imports ThoughtWorks.QRCode.Codec.Data <br />Imports ThoughtWorks.QRCode.Codec.Util</p> <p>......</p> <p>    Private Sub print_qr() <br />        Dim reportDoc As New ReportDocument</p> <p>        Dim rpt_ds As DataSet = GetDS("") <br />        If rpt_ds.Tables(0) Is Nothing Then <br />            lblDBErrorMessage.Text = "No Data!" <br />            Exit Sub <br />        End If <br />        If rpt_ds.Tables(0).Rows.Count <= 0 Then <br />            lblDBErrorMessage.Text = "No Data!" <br />            Exit Sub <br />        End If</p> <p>        reportDoc.Load(Server.MapPath("./rpt/QRC_print.rpt")) <br />        reportDoc.SetDataSource(rpt_ds)</p> <p>'印到PDF -------------</p> <p>        Dim objFile As New DiskFileDestinationOptions <br />        reportDoc.ExportOptions.DestinationOptions = objFile <br />        objFile.DiskFileName = Server.MapPath("./printemp/QRC_print.pdf") <br />        With reportDoc.ExportOptions <br />            .ExportDestinationType = ExportDestinationType.DiskFile <br />            .ExportFormatType = ExportFormatType.PortableDocFormat <br />            .DestinationOptions = objFile <br />        End With <br />        reportDoc.Export() <br />        Dim xlsurl As String = "./printemp/QRC_print.pdf" <br />        Response.Redirect(xlsurl) <br />        Exit Sub</p> <p>'OR 直接列印 ---------------       <br />            Try <br />                reportDoc.PrintOptions.PrinterName = strpath <br />                reportDoc.PrintToPrinter(1, True, 0, 0) <br />                'Response.Redirect(strRturnTo) <br />            Catch <br />                lblDBErrorMessage.Text = "找不到指定的印表機!" <br />            End Try <br />    End Sub</p> <p>    Function GetDS(ByVal vd_no) As DataSet <br />        Dim strSQL As String <br />        Dim ds As DS_QRC = New DS_QRC <br />...... <br />            Dim data As String = "Your TEXT here" <br />            Dim v_copy As Integer = 1     ' 列印份數 <br />            Dim qrCodeEncoder As QRCodeEncoder = New QRCodeEncoder <br />            qrCodeEncoder.QRCodeEncodeMode = qrCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC <br />            qrCodeEncoder.QRCodeScale = 6 <br />            qrCodeEncoder.QRCodeVersion = 2 <br />            qrCodeEncoder.QRCodeErrorCorrect = qrCodeEncoder.ERROR_CORRECTION.L <br />            Dim image As Image <br />            image = qrCodeEncoder.Encode(data) <br />            Dim ms As MemoryStream = New MemoryStream <br />            image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)</p> <p>            Dim ImageSize As Integer = ms.Length <br />            Dim ImageContent() As Byte = ms.GetBuffer <br />            ms.Close() <br />            image.Dispose() <br />            Dim j As Integer <br />            For j = 1 To v_copy <br />                MyNewRow = ds.Tables("T_QRCode").NewRow <br />                MyNewRow("QR_pno") = v_sname <br />                MyNewRow("QR_sno1") = v_ss <br />                MyNewRow("QR_sno2") = v_ee <br />                MyNewRow("QR_img") = ImageContent <br />                MyNewRow("QR_supname") = v_supname <br />                MyNewRow("QR_mno") = v_mno <br />                If ii = v_boxs Then <br />                    MyNewRow("QR_qty") = v_pqtyp <br />                Else <br />                    MyNewRow("QR_qty") = v_pqty <br />                End If <br />                ds.Tables("T_QRCode").Rows.Add(MyNewRow) <br />            Next <br />...... <br />        Return ds <br />    End Function</p> <p><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiF_AOu85n9jnByA5ajocTesF0S3y6RrPfIHqMAEfjqZWB5FXF4cFFMgiA6HurcxCcsIY7yuHn3ecu6AF_5j7WmGrngba7RoXCSQhaXNeIkh_k-VIfxOMyfzVhfJrnMaX2zEPew6BcR-qxF/s1600-h/qr1%25255B7%25255D.jpg"><img style="background-image: none; border-bottom: 0px; border-left: 0px; margin: 0px 0px 5px; padding-left: 0px; padding-right: 0px; display: inline; border-top: 0px; border-right: 0px; padding-top: 0px" title="qr1" border="0" alt="qr1" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgM7iKWmEHnzx7xgcSwHtbYnJmTUkP4CUSGuRLtJhF58MmJD2qJFj8LLSlFkXkhZ4_kq9S4fzq-gA9Pd_i88j3IElP3lRRlZpoNe-aDSD9nfwbVLIseq8Gm5bY4SlTefcCtGmg9bUs1ZO1N/?imgmax=800" width="231" height="244" /></a></p> <p><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRXC-pk1gv9Dp4qKXwdSvIX7Piw1DzT4wcFM4UiraTo3HI7-bGGmpRy5_oxyCsciyZZxYpiTyqmhLhT8BbkQ93NTo3UOcA3uh8Lmim8DYvA1znL6u2qwG_Dc42Q38twUhE862GBDyIhc3B/s1600-h/qr2%25255B2%25255D.jpg"><img style="background-image: none; border-bottom: 0px; border-left: 0px; margin: 0px 0px 5px; padding-left: 0px; padding-right: 0px; display: inline; border-top: 0px; border-right: 0px; padding-top: 0px" title="qr2" border="0" alt="qr2" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhN1tcVxbXLz18jpnjpNYzFh-ZzQ2ssColB2CL_y7KfObzCyHQOpKBXYqfvr7YH79qaoK5TPKN9MfrIhsaM6pbJnVB63BqvM98WnpqZhI8-JgJwhyfbguRGxmD9mfGgZbf4UsHbeQqHjPTc/?imgmax=800" width="231" height="244" /></a></p> <p>註: </p> <p>ThoughtWorks.QRCode.dll - ThoughtWorks QRCode .NET Library is download available from <a href="http://www.codeproject.com/KB/cs/qrcode/QRCode.zip">CodeProject.com</a>.</p> Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-58213874844288037022012-02-12T22:41:00.001-08:002012-02-12T22:41:31.676-08:00N95安裝 Slide Helper<p>1. 下載Slide Helper for N95 軟體:</p> <p><a title="http://s60soft.ru/eng/slide-helper.html" href="http://s60soft.ru/eng/slide-helper.html">http://s60soft.ru/eng/slide-helper.html</a></p> <p>2. 在手機鍵盤上輸入*#06#,IMEI號碼就會顯示在手機螢幕.</p> <p>3. 到NOKIA Developer 網站註冊一個帳號.</p> <p><a title="https://www.symbiansigned.com/signedui/welcome" href="https://www.symbiansigned.com/signedui/welcome">https://www.symbiansigned.com/signedui/welcome</a></p> <p>並在下面畫面加入手機IMEI碼:</p> <p><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjo8TmfFZDtGL4OwrUbVNiJK3gJOdgpWCSx6eFn-KxhLjFkvudtO4qBTUFW65Ie8NhyHasTWkXI7mkWyI-NLKxa735Bq2ELoM7C9uFUmTx6AuvA4JqOmk5q-hIMq6VBxzKXecUpLtdA8eg4/s1600-h/symbian001%25255B3%25255D.jpg"><img style="background-image: none; border-bottom: 0px; border-left: 0px; margin: 0px 0px 5px; padding-left: 0px; padding-right: 0px; display: inline; border-top: 0px; border-right: 0px; padding-top: 0px" title="symbian001" border="0" alt="symbian001" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjkb_zDp-ILvnq4L469DSmAPhmZHLi0qZT2VmTLPD2Iay8VMRoHuSHHhDlYUn7LTnca7Ewn9D4844Q26SWych9-BhCj5CtaE75vUkRAko0MOwJuaweFi1n0LzkyhujGHr_D15hYtaOE2COE/?imgmax=800" width="380" height="314" /></a></p> <p>在右方上傳sis檔案後即可下載PrivateKey_And_Certificate二個檔案.</p> <p>4. 到下面網站下載 SignSIS-GUI_v1.1.exe執行檔</p> <p><a title="http://www.gosymbian.com/SSIS_download.html" href="http://www.gosymbian.com/SSIS_download.html">http://www.gosymbian.com/SSIS_download.html</a></p> <p>並如該網站所示執行並選取cer,key及sis檔, 並按SignSiS!鈕.</p> <p>5. 將Output產生的sis檔copy到手機或用Nokia電腦端套件安裝.</p> Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-7108904786847578682011-10-04T01:39:00.001-07:002011-10-04T01:39:12.490-07:00VS2008 ftp file DOWNLOAD and DELETE<p>Private Function GetOnlyDirectories(ByVal v_server As String, ByVal v_user As String, ByVal v_pw As String) As String <br />    Dim TheShortList As String = FTPListDirectory(v_server, v_user, v_pw, True) <br />    Dim theDirectories As String = "" <br />    If TheShortList <> "" Then <br />        Dim TheLists() As String = Split(TheShortList.Trim, vbCrLf) <br />        For Each thelist As String In TheLists <br />            If thelist.Trim.ToLower.EndsWith(".xml") Then <br />                Dim v_ffile As String = v_server + thelist.Trim.ToLower <br />                Dim v_tfile As String = "../temp.xml" <br />                If ftpDownload(v_ffile, v_tfile, v_user, v_pw) Then <br />                    ftpDelete(v_ffile, v_user, v_pw) <br />                End If <br />            End If <br />            theDirectories &= vbCrLf & thelist.Trim <br />            theDirectories = theDirectories.Trim <br />        Next <br />    End If <br />    Return theDirectories <br />End Function</p> <p>Public Shared Function ftpDownload(ByVal source As String, ByVal target As String, ByVal v_fuser As String, ByVal v_fpw As String) As Boolean <br />    Dim v_ret As Boolean = True <br />    Dim credential As New NetworkCredential(v_fuser, v_fpw)</p> <p>    Dim clsrequest As FtpWebRequest = _ <br />  DirectCast(WebRequest.Create(source), FtpWebRequest) <br />    clsrequest.Method = WebRequestMethods.Ftp.DownloadFile <br />    clsrequest.Credentials = credential</p> <p>    Dim response As FtpWebResponse = _ <br />          DirectCast(clsrequest.GetResponse, FtpWebResponse) <br />    Dim stream As Stream = response.GetResponseStream</p> <p>    Dim reader As New StreamReader(stream) <br />    Dim v_cont As String = reader.ReadToEnd()</p> <p>    If (File.Exists(target)) Then <br />        File.Delete(target) <br />    End If</p> <p>    Dim FS As FileStream = New FileStream(target, FileMode.CreateNew, FileAccess.Write) <br />    Dim SW As StreamWriter = New StreamWriter(FS, Encoding.GetEncoding("utf-8")) <br />    SW.WriteLine(v_cont)</p> <p>    SW.Flush() <br />    FS.Close() <br />    reader.Close() <br />    response.Close()</p> <p> </p> <p>    'Read to dataset</p> <p>Dim ds As DataSet = New DataSet <br />    Dim FSr As FileStream <br />    FSr = New FileStream(target, FileMode.Open) <br />    Dim XmlRead As New XmlTextReader(FSr) <br />    ds.ReadXml(XmlRead) <br />    FSr.Close() <br />    XmlRead.Close()</p> <p>    'do process of dataset ……</p> <p>    ds.Dispose() <br />    Return v_ret <br />End Function</p> <p>   Function FTPListDirectory(ByVal Target As String, ByVal UID As String, _ <br />ByVal Pass As String, Optional ByVal Shortlist As Boolean = False) As String <br />       Try <br />           Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(Target),  _ <br />           System.Net.FtpWebRequest) <br />           clsRequest.Credentials = New System.Net.NetworkCredential(UID, Pass) <br />           If Shortlist Then <br />               clsRequest.Method = System.Net.WebRequestMethods.Ftp.ListDirectory <br />           Else <br />               clsRequest.Method = System.Net.WebRequestMethods.Ftp.ListDirectoryDetails <br />           End If <br />           Dim str As String = GetStringResponse(clsRequest) <br />           clsRequest.Abort() <br />           Return str <br />       Catch ex As Exception <br />           Throw New Exception("Connection Problem – Error:" & vbCrLf & vbCrLf & ex.Message) <br />           Return "" <br />       End Try <br />   End Function</p> <p>   Private Function GetStringResponse(ByVal ftp As FtpWebRequest) As String <br />       Dim result As String = "" <br />       Using response As FtpWebResponse = CType(ftp.GetResponse, FtpWebResponse) <br />           Dim size As Long = response.ContentLength <br />           Using datastream As Stream = response.GetResponseStream <br />               Using sr As New StreamReader(datastream) <br />                   result = sr.ReadToEnd() <br />                   sr.Close() <br />               End Using <br />               datastream.Close() <br />           End Using <br />           response.Close() <br />       End Using <br />       Return result <br />   End Function</p> <p>Public Shared Function ftpDelete(ByVal source As String, ByVal v_fuser As String, ByVal v_fpw As String) As Boolean <br />    Dim v_ret As Boolean = True <br />    Dim credential As New NetworkCredential(v_fuser, v_fpw)</p> <p>    Dim clsrequest As FtpWebRequest = _ <br />  DirectCast(WebRequest.Create(source), FtpWebRequest) <br />    clsrequest.Method = WebRequestMethods.Ftp.DeleteFile <br />    clsrequest.Credentials = credential</p> <p>    Dim response As FtpWebResponse = _ <br />          DirectCast(clsrequest.GetResponse, FtpWebResponse) <br />    Dim v_mmm As String = response.StatusDescription</p> <p>    response.Close() <br />    Return v_ret <br />End Function</p> Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-70775204949457069482011-07-04T23:32:00.001-07:002011-07-04T23:32:18.977-07:00Adobe Reader PDF檔出現空白<p>自從換Windows7 64bit 每次執行Crystal Report </p> <p>轉PDF檔 總是出現一個空白訊息視窗Adobe Reader </p> <p>裡面只顯示一個?圖示其他都空白一片, Adobe Reader 9</p> <p>重新安裝, IE8 更新成 IE9結果都一樣, Google了很久發現</p> <p>可能是字元集不全的問題,到Adobe的官方網站下載</p> <p>字元集包 <br /><a href="http://www.adobe.com/support/products/enterprise/knowledgecenter/c4230.pdf">http://www.adobe.com/support/products/enterprise/knowledgecenter/c4230.pdf</a></p> <p>執行AsianFontPackYes.reg安裝後到目前為止都可以</p> <p>正常開啟PDF檔了. </p> Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-30525198990469086242011-07-04T18:15:00.001-07:002011-07-04T18:15:55.923-07:00曼陀羅(情花)<p align="center"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjDRhWLUylVpYvJPAJ0mFUstoIL3JadnjQ22R4W158N-SOanIl-FAbGy1on3o-y6KYzMmT1U6zH-uo9oHXPr_yiK2Og3H-Tb0mhZ4UC2YzEzOyeCtsfeRJjt8gU7fnIGoLkeKDstVYssllB/s1600-h/20110622888%25255B3%25255D.jpg"><img style="background-image: none; border-bottom: 0px; border-left: 0px; margin: 0px 0px 5px; padding-left: 0px; padding-right: 0px; display: inline; border-top: 0px; border-right: 0px; padding-top: 0px" title="20110622888" border="0" alt="20110622888" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjA6tVzBi5Qcg6f5YesW8vqd3IB_2V7MHWurKJk-6EUF8B1EkVhNcmELO3pEZ6L1dEEw-Hlkjw_aOcQ993WHWRtvmJp-iPvIAd6Y8nufF8iNds7dSp4l87Ez2q-b9Ge3hR381-Tj7q8mD3V/?imgmax=800" width="184" height="244" /></a></p> <p align="center"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjOlZgxwSA8d9w912QvN4D5frDV01fBzDvMsckKM-Z322eMaxQ-JUFhZaDhgr8oEKJ2TeitHyTrZu4pdtNjT8Vj6yj0g7cyepMfOoH1aJco22yoSogkodp4RRILH_7nP58ordccbdGbTkgG/s1600-h/20110608880%25255B3%25255D.jpg"><img style="background-image: none; border-bottom: 0px; border-left: 0px; margin: 0px 0px 5px; padding-left: 0px; padding-right: 0px; display: inline; border-top: 0px; border-right: 0px; padding-top: 0px" title="20110608880" border="0" alt="20110608880" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhsSyJK8tgoVsQLneOBk9PeI-ndq5oB21ct-PpyibPUaFot8wwz3GNxnxmEauiTC4stNNKocSIABP4mDe1HuaTUR8t0T4rrBfI_662HqI6naZY5j9TbSa_bNeOwfrgtV0QFKQWbWGwfJY3E/?imgmax=800" width="184" height="244" /></a></p> <p align="center"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEguUUBs5yY92Wq9i3gVZ2B5Y1wKtH1EBbrzcrQGWLcQD2714iIWVLsfamznDikbhv_jpGStWzZgXiN7B7lYpkuMjFTVzvsOtfxMrMjCltgkThPd5hp1DHU8WVoYOf0wSNrGScYnFPDU-E0E/s1600-h/20110622890%25255B3%25255D.jpg"><img style="background-image: none; border-bottom: 0px; border-left: 0px; margin: 0px 0px 5px; padding-left: 0px; padding-right: 0px; display: inline; border-top: 0px; border-right: 0px; padding-top: 0px" title="20110622890" border="0" alt="20110622890" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhT5AQzMmTg46EmpDq08MO79jKEo23n0VDh8oJDiuPLvhM-Sx47yEWBQNM4gb7kfJd31TlsNU0TivaS0n0FEpZz1l9hIhafmorxz-C29dT5llFZaBrBVtyIVnaCc7_7JCXAbdDUB4aQNRlf/?imgmax=800" width="184" height="244" /></a></p> Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-83325662913600383412011-07-04T18:05:00.001-07:002011-07-04T18:05:42.216-07:00紅色殺手-3<p><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjcGoof84mKjHYIH3-tEKLMUiT4icD8kQKgOJSps9a__UbpgJZ98hyphenhyphenRgjCh_P9VkoKZaDXcEKmpY9Zt0KX5f02VhaCYjq3FT6FoD-EOp5lxJnNT4rvnG_JXisNL59RwZXslEBiGJKMI2QiG/s1600-h/20110622885%25255B3%25255D.jpg"><img style="background-image: none; border-bottom: 0px; border-left: 0px; margin: 0px 0px 5px; padding-left: 0px; padding-right: 0px; display: inline; border-top: 0px; border-right: 0px; padding-top: 0px" title="20110622885" border="0" alt="20110622885" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhjxIwgMcMw8gVW3Se3BI29CcAJW-nDY9IMpt5ABEHYKxgzn77OrQnFoG6hJx7-CmsvsqymqFg_dwYi0PVBQkdi3I0clWatX3ebeOP70q7zr_vKW9ga3oOcpv-63sf_WBxF_8DkupDZv1Xx/?imgmax=800" width="184" height="244" /></a></p> <p><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjp8ivHy4A4hFj4p3b-aC9FpqICTHrmfQSRxI9KAS_NtX-IEsnJLLZwsMiP9vjQllkhly1ZnwrKMb0eGxC7oY4reb9Xr3hsisTlpoirmmG9-4Wx3UfdD4OmbywQdYMGEH0ZDq1s-533bHhb/s1600-h/20110623895%25255B3%25255D.jpg"><img style="background-image: none; border-bottom: 0px; border-left: 0px; margin: 0px 0px 5px; padding-left: 0px; padding-right: 0px; display: inline; border-top: 0px; border-right: 0px; padding-top: 0px" title="20110623895" border="0" alt="20110623895" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgieBZVlTIWyqK4GLNyBS7tz_Ac8o0BcaAUCye2nV-_YEBYziLMfKpgBSRRL10hDahEMcTXYo25f89-C-gZoJMpUASHEJBGFVjeQhif6NWoHOXfvLMT7aN9CwfFymRytq9e2TINM7Zb0_De/?imgmax=800" width="184" height="244" /></a></p> Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-9000927983108314112011-06-22T01:04:00.001-07:002011-06-22T01:04:17.095-07:00Javascript 數值千分位顯示<p>function FormatNumber(n) { <br />    n += ""; <br />    var arr = n.split("."); <br />    var re = /(\d{1,3})(?=(\d{3})+$)/g; <br />    return arr[0].replace(re,"$1,") + (arr.length == 2 ? "."+arr[1] : ""); <br />}</p> <p>//取消千分位:</p> <p>nn = parseInt(v_p.replace(",",""),10); </p> <p>//test    <br />document.write("1234567 -> " + FormatNumber(1234567) + "<br>"); <br />document.write("12345678.12 -> " + FormatNumber("12345678.12") + "<br>"); <br />document.write("123456789.1234 -> " + FormatNumber(123456789.1234) + "<br>"); <br />document.write("-123456.123 ->" + FormatNumber(-123456.123) + "<br>"); <br /></p> <p><a href="http://www.blueshop.com.tw/board/show.asp?subcde=BRD20081231132909MLK&fumcde=FUM20041006152641OLG">引用來源</a></p> Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-15363541470264557182011-06-22T00:42:00.001-07:002011-06-22T00:42:51.035-07:00File MD5 Checksum<p>    Public Shared Function file_checksum(ByVal file_path As String) As String <br />        Dim md5 As MD5CryptoServiceProvider = New MD5CryptoServiceProvider <br />        Dim fs As FileStream = New FileStream(file_path, FileMode.Open, FileAccess.Read, FileShare.Read) <br />        md5.ComputeHash(fs)</p> <p>        Dim hash As Byte() = md5.Hash <br />        Dim buff As StringBuilder = New StringBuilder <br />        Dim hashByte As Byte <br />        For Each hashByte In hash <br />            buff.Append(String.Format("{0:X2}", hashByte)) <br />        Next <br />        fs.Close() <br />        Return buff.ToString.Trim <br />    End Function </p> Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-38358582944550833062011-05-08T20:45:00.001-07:002011-05-08T20:45:12.907-07:00會動的照片 -1<p><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhiwo5Zi4UDXP-F7oLlTeTsPNVgUU94XQ7dXyHd-hTTOelBG2BdgMhgv9RV9r7bdfbJ6OH2fCRfJlmDPsB1za1O5MVODX0CnDfvW5YA-yS2S1csRukFHD3yoXXr-s4FlrWFDmz5FTZjW5qk/s1600-h/666%5B2%5D.gif"><img style="margin: 0px 0px 5px; display: inline" title="666" alt="666" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgglvigc8NvvAfwiaVW8zKJMqdK6SnbP_oiNxSNdpIopxObWf8Ab6E7r2fueG1FP6NTVTxIPAeuKK5GqOEjnVLl3-tNM_eny1v4C0szIUaDqRV722rrZOveNLE5t754hN0KbaWkhz69GaZj/?imgmax=800" width="240" height="180" /></a></p> Unknownnoreply@blogger.com1tag:blogger.com,1999:blog-8899151509080500288.post-86459844733962849782011-04-02T23:12:00.001-07:002011-04-02T23:12:36.831-07:00AVI to sd-video standard ver. 1.2 - AVCHD<p> </p> <p>前陣子換了一台Panasonic TH-P42G20W電漿電視,<br>用數位相機拍的影片AVI檔, 無法在SD槽播放. </p> <p>手冊上說: SD卡支援 SD-Video Standard Ver. 1.2 , [MPEG-2(PS格式)] 和帶有MPEG-1/Layer-2格式或杜比數位格式之音訊格式的AVCHD標準相容檔案 <p>維基上說:<br>AVCHD (Advanced Video Codec High Definition)是索尼公司與松下電器於2006年5月聯合發表的高畫質光碟壓縮技術... <p>花了半天時間終於找到解決的方法: <p>先下載並安裝二套免費軟體: <p>1. Avidemux - <a href="http://avidemux.berlios.de/download.html">http://avidemux.berlios.de/download.html</a><br>2. multiAVCHD - <a href="http://multiavchd.deanbg.com/tutorial.php">http://multiavchd.deanbg.com/tutorial.php</a> <p>執行Avidemux點選左上角的File->Open, 開啟數位相機拍的影片AVI檔: <p> <a href="http://lh5.ggpht.com/_zcUHVKe6tPE/TZgPjqPKULI/AAAAAAAADrg/48U1Nygzk6c/s1600-h/Open_file%5B6%5D.jpg"><img style="border-bottom: 0px; border-left: 0px; display: inline; border-top: 0px; border-right: 0px" title="Open_file" border="0" alt="Open_file" src="http://lh4.ggpht.com/_zcUHVKe6tPE/TZgPkSiGEkI/AAAAAAAADrk/kLHqZm6nwng/Open_file_thumb%5B2%5D.jpg?imgmax=800" width="244" height="181"></a> </p> <p>在左方三個選項分別選擇如下:</p> <p>Video: MPEG-2(avcodec)</p> <p><a href="http://lh5.ggpht.com/_zcUHVKe6tPE/TZgPk81ZppI/AAAAAAAADro/MI4j7rquAYU/s1600-h/Video%5B2%5D.jpg"><img style="border-bottom: 0px; border-left: 0px; display: inline; border-top: 0px; border-right: 0px" title="Video" border="0" alt="Video" src="http://lh6.ggpht.com/_zcUHVKe6tPE/TZgPlmVTRgI/AAAAAAAADrs/HSgbK8-5cu8/Video_thumb.jpg?imgmax=800" width="244" height="181"></a> </p> <p>Audio:AC3(lav)</p> <p><a href="http://lh3.ggpht.com/_zcUHVKe6tPE/TZgPmZBNAaI/AAAAAAAADrw/GpEN0p7QDaY/s1600-h/Audio%5B2%5D.jpg"><img style="border-bottom: 0px; border-left: 0px; display: inline; border-top: 0px; border-right: 0px" title="Audio" border="0" alt="Audio" src="http://lh4.ggpht.com/_zcUHVKe6tPE/TZgPnAv3VkI/AAAAAAAADr0/E7oEzti-2RI/Audio_thumb.jpg?imgmax=800" width="244" height="181"></a> </p> <blockquote> <p>Filters –> 勾選:Resampling(Hz): 48000</p> <p><a href="http://lh4.ggpht.com/_zcUHVKe6tPE/TZgPn5OEb2I/AAAAAAAADr4/jwzrVM4vKrk/s1600-h/Audio_48k%5B2%5D.jpg"><img style="border-bottom: 0px; border-left: 0px; display: inline; border-top: 0px; border-right: 0px" title="Audio_48k" border="0" alt="Audio_48k" src="http://lh3.ggpht.com/_zcUHVKe6tPE/TZgPoYqFSZI/AAAAAAAADr8/tVYQYPYG1Y8/Audio_48k_thumb.jpg?imgmax=800" width="244" height="180"></a> </p></blockquote> <p>Format:MPEG-PS(A+V)</p> <p><a href="http://lh3.ggpht.com/_zcUHVKe6tPE/TZgPpPQicxI/AAAAAAAADsA/mOGcsxWpVEg/s1600-h/format%5B2%5D.jpg"><img style="border-bottom: 0px; border-left: 0px; display: inline; border-top: 0px; border-right: 0px" title="format" border="0" alt="format" src="http://lh6.ggpht.com/_zcUHVKe6tPE/TZgPpgn7rdI/AAAAAAAADsE/1rkM9olSWEc/format_thumb.jpg?imgmax=800" width="244" height="181"></a> </p> <blockquote> <p>Configure –> Muxing Format 點選 : DVD</p> <p><a href="http://lh6.ggpht.com/_zcUHVKe6tPE/TZgPqHthUYI/AAAAAAAADsI/LtCkk4Da7xw/s1600-h/format_CONFIG%5B2%5D.jpg"><img style="border-bottom: 0px; border-left: 0px; display: inline; border-top: 0px; border-right: 0px" title="format_CONFIG" border="0" alt="format_CONFIG" src="http://lh5.ggpht.com/_zcUHVKe6tPE/TZgPqvDCUdI/AAAAAAAADsM/fTTOg4giTR8/format_CONFIG_thumb.jpg?imgmax=800" width="244" height="147"></a> </p></blockquote> <p>完成上列選項即可存檔:</p> <p><a href="http://lh4.ggpht.com/_zcUHVKe6tPE/TZgPrbmmRCI/AAAAAAAADsQ/F_9XNiJHaLs/s1600-h/save%5B2%5D.jpg"><img style="border-bottom: 0px; border-left: 0px; display: inline; border-top: 0px; border-right: 0px" title="save" border="0" alt="save" src="http://lh3.ggpht.com/_zcUHVKe6tPE/TZgPr_oTH5I/AAAAAAAADsU/WkBy3uXad9w/save_thumb.jpg?imgmax=800" width="244" height="181"></a> </p> <p>輸入檔名及MPG副檔名.</p> <p><a href="http://lh5.ggpht.com/_zcUHVKe6tPE/TZgPsS83Z3I/AAAAAAAADsY/Irli3u1pYGA/s1600-h/save_mpg%5B2%5D.jpg"><img style="border-bottom: 0px; border-left: 0px; display: inline; border-top: 0px; border-right: 0px" title="save_mpg" border="0" alt="save_mpg" src="http://lh5.ggpht.com/_zcUHVKe6tPE/TZgPsz3F2MI/AAAAAAAADsc/i1ASzMkwdqk/save_mpg_thumb.jpg?imgmax=800" width="244" height="159"></a> <a href="http://lh5.ggpht.com/_zcUHVKe6tPE/TZgPtjpS6oI/AAAAAAAADsg/5L_eQ7NHy18/s1600-h/save_ok%5B2%5D.jpg"><img style="border-bottom: 0px; border-left: 0px; display: inline; border-top: 0px; border-right: 0px" title="save_ok" border="0" alt="save_ok" src="http://lh3.ggpht.com/_zcUHVKe6tPE/TZgPuC-Kl1I/AAAAAAAADsk/ol3mzWD3sU0/save_ok_thumb.jpg?imgmax=800" width="244" height="110"></a> </p> <p>執行multiAVCHD並點選左上角Add video files開啟剛剛</p> <p>由Avidemux轉出的檔案(本例:CIMG0059.MPG):</p> <p><a href="http://lh6.ggpht.com/_zcUHVKe6tPE/TZgPu1kupeI/AAAAAAAADso/A4MqK8n4NA0/s1600-h/M_OPEN%5B2%5D.jpg"><img style="border-bottom: 0px; border-left: 0px; display: inline; border-top: 0px; border-right: 0px" title="M_OPEN" border="0" alt="M_OPEN" src="http://lh5.ggpht.com/_zcUHVKe6tPE/TZgPvRib4II/AAAAAAAADss/Aj2geG1UtDI/M_OPEN_thumb.jpg?imgmax=800" width="244" height="165"></a> </p> <p>點選左下角存檔路徑並選擇輸出檔案路徑:</p> <p><a href="http://lh4.ggpht.com/_zcUHVKe6tPE/TZgPwB0zXmI/AAAAAAAADsw/-knKmu1YzEs/s1600-h/PATH%5B2%5D.jpg"><img style="border-bottom: 0px; border-left: 0px; display: inline; border-top: 0px; border-right: 0px" title="PATH" border="0" alt="PATH" src="http://lh6.ggpht.com/_zcUHVKe6tPE/TZgPwp6vwOI/AAAAAAAADs0/wYoIgEjZKMM/PATH_thumb.jpg?imgmax=800" width="244" height="164"></a> </p> <p>選好路徑按OK後回到主畫面按右下角的START按鈕</p> <p><a href="http://lh3.ggpht.com/_zcUHVKe6tPE/TZgPxYV5KWI/AAAAAAAADs4/mbn4kFBkuyc/s1600-h/START%5B2%5D.jpg"><img style="border-bottom: 0px; border-left: 0px; display: inline; border-top: 0px; border-right: 0px" title="START" border="0" alt="START" src="http://lh6.ggpht.com/_zcUHVKe6tPE/TZgPyDkVrOI/AAAAAAAADs8/CL67jjub1l4/START_thumb.jpg?imgmax=800" width="244" height="165"></a> </p> <p>此時會出現媒體選項:</p> <p>1.選擇左方中間的: Panasonic General AVCHD.</p> <p>2.點選其上方右邊的Camcoder (NTSC/…).</p> <p>SD_VIDEO 自動建立:</p> <p><a href="http://lh4.ggpht.com/_zcUHVKe6tPE/TZgPy43QF4I/AAAAAAAADtA/vnDzQ7XA2Es/s1600-h/OK%5B2%5D.jpg"><img style="border-bottom: 0px; border-left: 0px; display: inline; border-top: 0px; border-right: 0px" title="OK" border="0" alt="OK" src="http://lh4.ggpht.com/_zcUHVKe6tPE/TZgPzQE2scI/AAAAAAAADtE/Zy2rpp0dl-k/OK_thumb.jpg?imgmax=800" width="244" height="165"></a></p> <p>將整個SD_VIDEO目錄COPY到SD卡根目錄,</p> <p><a href="http://lh5.ggpht.com/_zcUHVKe6tPE/TZgP0XpneyI/AAAAAAAADtI/r2WZgKYwis0/s1600-h/FINISH%5B2%5D.jpg"><img style="border-bottom: 0px; border-left: 0px; display: inline; border-top: 0px; border-right: 0px" title="FINISH" border="0" alt="FINISH" src="http://lh4.ggpht.com/_zcUHVKe6tPE/TZgP00-44NI/AAAAAAAADtM/01A5l8GSa_w/FINISH_thumb.jpg?imgmax=800" width="244" height="172"></a> </p> <p>找一張舒適的沙發可以開始看影片了.</p> Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-86106613802161407222011-03-22T01:07:00.001-07:002011-03-22T01:07:28.045-07:00x64-bit環境執行32-bit COM DLL(80004027)<p>如果發生下列錯誤,為具有 CLSID {166EB857-8CCD-4D83-8F27-CADDB2800374} 的元件擷取 COM Class Factory 失敗: 80004027。</p> <p>乃是由於在x64-bit環境上執行32-bit DLL所致.</p> <p>x64-bit環境如何執行32-bit COM DLL?</p> <p>1.如果已經註冊32-bit 到 x64 作業系統, 先解除安裝例如: "regsvr32 /u C:\MyDLL\CRAXDRT.DLL" <br />2.確定dll不在Windows目錄像C:\Windows. 本例CRAXDRT.DLL 放在C:\MyDLL目錄中. <br />3.執行控制台->系統及安全->系統管理工具->元件服務 <br />->電腦->我的電腦->COM+應用程式->右鍵->新增->應用程式. <br />4.歡迎使用COM+應用程式安裝精靈->下一步. <br />5.選擇"建立空的應用程式". <br />6.本例名稱用CRAXDRT, 選伺服器應用程式->下一步. <br />7.選"互動式使用者-目前登入的使用者"->下一步, 下一步->完成. <br />8.現在在COM+應用程式下多了一個CRAXDRT, 點選CRAXDRT左方三角型會看到下拉元件, 傳統元件, 角色三個目錄, 點選元件右鍵新增->元件. <br />9.歡迎使用COM+元件安裝精靈->下一步. <br />10.選安裝新元件->選擇:C:\MyDLL\CRAXDRT.DLL.->下一步->完成. <br />11.點選CRAXDRT右鍵->內容->安全性, 不勾選->強制此應用程式的存取檢查, 不勾選->套用軟體限制原則, 模擬等級選匿名->確定. <br />12.如須由WEB 應用程式存取DLL(如本例)則必須加設定ASPNET及IIS_WPG角色. <br />13.點選CRAXDRT->角色->CreateOwner->使用者->右鍵->新增->使用者. <br />14.分別加入ASPNET及IIS_WPG二個使用者到CreateOwner. <br />15.大功告成.</p> Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-86716493666158054192010-12-23T04:36:00.001-08:002010-12-23T04:36:00.182-08:00AVI影片修剪<p> </p> <p>用CASIO EX-FC160S拍攝的AVI 影片雖然可以直接套到<a href="http://roxsu.blogspot.com/2007/05/golf-swing.html" target="_blank">揮桿分析軟體</a>分析,</p> <p>但由於用相機本身提供的修剪功能總不如用電腦修剪方便,</p> <p>所幸有現成免費影片修剪軟體可用, 修剪完後還可以依原格式另存新檔,</p> <p>真是方便. 影片編修軟體介紹如下:</p> <p><a href="http://briian.com/?p=7385" target="_blank">Avidemux v2.5.4 免費影片切割、轉檔軟體(支援Windows、Linux與Mac)</a></p> Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-23701124059084697222010-11-04T22:29:00.001-07:002010-11-04T22:29:14.125-07:00SQL2000 and SQL2005<p>1. Windows 7 同時安裝SQL2000及SQL2005時,</p> <p>執行個體名稱不能都用預設值, 必須區別二者名稱.</p> <p>2. Windows 7 防火牆必要時要開放允許SQL2000 的sqlservr.exe執行動作.</p> Unknownnoreply@blogger.com0tag:blogger.com,1999:blog-8899151509080500288.post-9398689840525676622010-11-04T22:02:00.001-07:002010-11-04T22:02:01.074-07:00FIND IN FILES of VS2003<p>Windows 7 下使用執行VS2003時</p> <p>使用FIND IN FILES功能時, VS2003會停止回應</p> <p>只要在VS的啟動執行檔上點右鍵選內容</p> <p>把相容性那一頁裡的 "停用圖形主題" 勾起來就好了.</p> Unknownnoreply@blogger.com0