跳到主要內容

發表文章

[.Net]JPG品質調整

Imports System.Drawing.Imaging Sub SaveJPG()  Dim Image as Bitmap = New Bitmap(OrigianalImageFile)   '設定壓縮品質90檔案大小約是100的一半 但是畫質還是很不錯  Dim quality As Integer = 90  Dim qualityParam As New EncoderParameter(Encoder.Quality, quality)  '取得編碼格式   Dim jgpEncoder As ImageCodecInfo = GetEncoder(ImageFormat.Jpeg)  Dim encoderParams As New EncoderParameters(1)  encoderParams.Param(0) = qualityParam  Image.Save(NewImageFile, jgpEncoder, encoderParams) End Sub '取得編碼格式的副程式 Private Function GetEncoder(ByVal format As ImageFormat) As ImageCodecInfo  Dim codecs As ImageCodecInfo() = ImageCodecInfo.GetImageDecoders()  Dim codec As ImageCodecInfo   For Each codec In codecs    If codec.FormatID = format.Guid Then     Return codec    End If   Next codec  Return Nothing End Function 參考資料: MSDN

[ASP.Net] 分頁型Excel匯出

用產生xml的方式 gene 標頭用 xmlTextWriter 產生Excel 會在Excel 2003無法開啟 所以改用response.write產生 Response.Charset = "UTF8" Response.ContentEncoding = System.Text.Encoding.GetEncoding("UTF-8") Response.AddHeader("content-disposition", "attachment; filename=" & filename & ".xls") Response.ContentType = "application/vnd.ms-excel" Response.Write("<?xml version='1.0'?>") Response.Write("<?mso-application progid='Excel.Sheet() '?>") Response.Write("<Workbook xmlns='urn:schemas-microsoft-com:office:spreadsheet'") Response.Write(" xmlns:o='urn:schemas-microsoft-com:office:office'") Response.Write(" xmlns:x='urn:schemas-microsoft-com:office:excel'") Response.Write(" xmlns:ss='urn:schemas-microsoft-com:office:spreadsheet'") Response.Write(" xmlns:html='http://www.w3.org/TR/REC-html40'>") 每個Sheet開頭 Respon...

[ASP] ASP錯誤處理

ASP是非常簡單的,以至於許多的開發者不會去思考錯誤處理。 錯誤處理能夠讓你的應用程式更加合理。 我看到過很多個用ASP編寫的商業網站,大多數都忽略 了錯誤處理。 錯誤的類型 有三種主要的錯誤類型: 1.編譯錯誤:     這種錯誤出現一般都是代碼的語法問題。因為編譯錯誤而導致辭ASP停止運行。 2.運行錯誤:  這個錯誤是發生在你準備運行ASP時的。例如:如果你試圖給一個變數賦值,但是卻超出了該變數允許的範圍。 3.邏輯錯誤:  邏輯錯誤是最難被發現的,這種錯誤經常是一種結構錯誤,電腦是發現不了的。這就需要我們徹頭徹尾地檢查我們的代碼。    因為編譯錯誤一般是和邏輯錯誤一起發生的,一般都能顯示出來,所以我們擔心的就只是運行錯誤。 它都終止ASP的運行,而且給用戶丟下一堆很不友好的文字。 那麼我們要怎樣處理運行錯誤呢?    我們先來看看,ASP唯一提供給我們的錯誤命令--- On Error Resume Next(這裏提醒一下初學者,在ASP中只有On Error Resume Next語句,沒有On Error Resume Goto語句)如果你不使用On Error Resume Next語句的話,一切運行錯誤都會發生,這個是致命的,那麼就會有一段錯誤代碼“展現”給用戶,而且ASP程式也會停止。 下面就是一個錯誤代碼:    Microsoft OLE DB Provider for ODBC Drivers error 80004005 [Microsoft][ODBC Driver Manager]    Data source name not found and no default driver specified /test.asp, line 60    當我們在程式最上面使用On Error Resume Next語句時,所有的錯誤都會被忽略,程式會自動執行下一條語句。這樣程式就會完全執行,出錯後用戶也不會看到出錯資訊。但是這樣也有 不好的地方,那就是如果程式沒有按照你想像的執行的話,你就很難找到到底是哪里出了問題,所以你就得在必要的地方對錯誤進行處理。 處理錯誤在ASP中,處理錯誤的最好的辦法就是在程式最底端放上代碼來處理錯誤。 我也推薦在每個ASP程式都使用緩衝區。這樣的話,如果錯誤發生,頁面就會停 止, 頁面內容也會被清除,這樣用戶就...

[WinCE] Driver Designe Course Note

BootLoader write process Connet Board by ICE install Banyan-UE-1.8.7b.exe Pass:5678088 execute Banyan-UE\DaemonU Unzip FlashWrite-V0.4.6b.zip execute FlashWrite-V0.4.6a.exe   >Initialize   >Detect   >Auto     Select "eboot.nb0"     Start Write Flash RAM Connet Board by COM Cable and Ethnet Cable(port cs8900) execute dnw.exe   Select com3 and 115200bps   [Serial Port]->[Connect]   and switch the Device power execute Platform Builder   open $MyOSDesign Workspace   [Target]->[Connectivity Options]->[Donwload]/[Setting]   [Target]->[Attach Device]       Build parameter setting set wincerel = 1 build 後自動複製 Driver *.reg write special [HKEY_LOCAL_MACHINE\Drivers\BuiltIn\LED] "Dll"="leddrv.dll" /*Driver DLL檔名* "Prefix"="LED" /*Device名稱* "Index"=dword:1 /*設定driver共用編號* "Order"=dwo...

[WinCE] Driver-

ActivateDevice This function loads a device driver. HANDLE ActivateDevice( LPCWSTR lpszDevKey, DWORD dwClientInfo ); ActivateDeviceEx This function loads a driver and adds its registry values to the Active key in the registry. HANDLE ActivateDeviceEx( LPCWSTR lpszDevKey, LPCVOID lpRegEnts, DWORD cRegEnts, LPVOID lpvParam ); Loading Device Drivers Developing a Device Driver

[C,C++]typedef struct 用法

typedef 可以幫已知數據類型定義新名稱 也可以用來定義struct 如果要幫已知數據類型定義新名稱可用下列方法: '幫已知數據類型long起個新名字,叫byte_4 typedef long byte_4; 要用來定義struct的話 則用下列的方式 '設計一個struct tagMyStruct struct tagMyStruct { int iNum; long lLength; }; 下面是比較複雜的宣告方式 typedef struct tagMyStruct {  int iNum;  long lLength; } MyStruct; --這可以看成兩個部分 1. 設計一個struct 為tagMyStruct struct tagMyStruct { int iNum; long lLength; }; 2. 將 struct tagMyStruct 定名為MyStruct; typedef struct tagMyStruct MyStruct; 宣告更名後 直接給定變數的方式 typedef struct tagMyStruct {  int iNum;  long lLength; } MyStruct, *MyVariable; 可看成以下三行程式 struct tagMyStruct {  int iNum;  long lLength; }; typedef struct tagMyStruct MyStruct; MyStruct, *MyVariable;

[WinCE]WinCE Drivers--Stream Interface Drivers

Stream Interface is appropriate for any I/O device that produces or consumes streams of data. A good example: Serial port device, bad example: Display device Stream Driver is a DLL and has 12 standard Entry Points(函式/介面) (Init 、Deinit、I OControl、PowerDown、PowerUp、Open、 Read、 Write、 Seek、 Close..etc ) 怎麼判斷是否為Stream Driver ? ? public\common\oak\drivers下 的 def 檔,通常會使用 CreateFile("XXXN:", FILES_EXIST, ....) DeviceIoControl 操作的 Driver 都是 Stream Driver,即將 Driver 模擬成檔案來操作 Several ways to implement the stream driver: 1. With only Init and Deinit entry points and no device prefix. ==>You cannot access this driver using CreateFile. (e.g. %_WINCEROOT%\Public\Common\OAK\Drivers\RegEnum) 2.With device prefix in driver entry points. ==> DWORD DEM_ Init( LPCTSTR pContext, LPCVOID lpvBusContext) { OutputDebugString(L"DEM_DRIVER - DEM_Init - Context: "); OutputDebugString(pContext); OutputDebugString(L"\n"); OutputDebugString(L"DEM_DRIVER - Exit DEM_In...