如何check一個file 是多少bytes? |
答題得分者是:Zard
|
tidal
初階會員 ![]() ![]() 發表:93 回覆:32 積分:25 註冊:2003-07-15 發送簡訊給我 |
|
Zard
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:24 回覆:396 積分:539 註冊:2003-11-26 發送簡訊給我 |
引言: 感謝大大的幫忙 發表人 - tidal 於 2004/10/27 15:35:02 // Get file size. // // Parameters: // 1. szFileName: File name. // // Return: // The size of the specified file. Function ZGetFileSize(Const szFileName: String): DWORD; var hFile: Integer; begin hFile := FileOpen(szFileName, fmOpenRead); if hFile = -1 then Result := 0 else Result := GetFileSize(hFile, nil); FileClose(hFile); end; ZGetFileSize回傳值為檔案大小. |
cashxin2002
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ 插個花﹒
Var F : File of Byte; Size : LongInt; begin AssignFile(F, OpenDialog1.FileName); Reset(F); Size := FileSize(F); ShowMessage(OpenDialog1.FileName '檔案的大小為﹕' IntToStr(Size) 'Bytes'); CloseFile(F); end;========================= 大病初愈﹐休養調整中... =========================
------
忻晟 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |