A. delphi 如何获取文件的大小和类型
示例代码如下：
首先，uses 添加IdGlobalProtocols。
2.
functionTForm1.GetFileSizeStr(fName:string):string;varnSize:Integer;beginnSize:=FileSizeByName(fName);ifnSize>1073741824thenResult:=FormatFloat('###,##0.00G',nSize/1073741824)elseifnSize>1048576thenResult:=FormatFloat('###,##0.00M',nSize/1048576)elseifnSize>1024thenResult:=FormatFloat('###,##00K',nSize/1024)elseResult:=FormatFloat('###,#0B',nSize);ifLength(Result)>2thenifResult[1]='0'thenDelete(Result,1,1);end;procereTForm1.Button1Click(Sender:TObject);beginShowMessage('文件大小是：'+GetFileSizeStr('d:able.mdb'));end;
示例截图：
B. 在DELPHI程序中如何获取文件的大小和文件的
用 filesize(f) 函数可以判断磁盘文件的大小。 （注： f 为文件变量）
C. delphi 请问在delphi中得到一个文件的大小的函数应该怎么写或是哪一个函
方法很多用ｆｉｌｅｓｉｚｅ 函数也可以 将文件读到一个ｍｅｍｏｒｙｓｔｒｅａｍ下然后 得到流的大小 也可以。procere TForm1.Button1Click(Sender: TObject);var f: file of Byte; size: Longint; S: string; y: Integer;begin if OpenDialog1.Execute then begin AssignFile(f, OpenDialog1.FileName); Reset(f); try size FileSize(f); S 'File size in bytes: ' + IntToStr(size); y 10; Canvas.TextOut(5, y, S); y y + Canvas.TextHeight(S) + 5; S 'Seeking halfway into file…'; Canvas.TextOut(5, y, S); y y + Canvas.TextHeight(S) + 5; Seek(f, size div 2); S 'Position is now ' + IntToStr(FilePos(f)); Canvas.TextOut(5, y, S); finally CloseFile(f); end; end;end; 查看更多答案>>求采纳
D. delphi中我想把文件大小用字符串的形式输出
varF:fileofByte;beginAssignFile(F,'D:\123.exe');Reset(F);Edit1.Text:=IntToStr(FileSize(F));//File的参数是file类型，返回值是Integer类型，如果要得到KB的话，需要用结果/1024，同理如果要得到MB和GB的话，可以继续/1024就可以了CloseFile(F);end;
E. Delphi中,如何获得文件大小
大概有这些方法可以获得文件大小 FileSizeByName（需要引用IdGlobal单元） GetFileSize FileSize（不能获得正在使用的文件大小） FileSeek TFileStream.Size 下面是使用例子 1。FileSizeByName（需要引用IdGlobal单元） begin if OpenDialog1.Execute then begin ShowMessage(IntToStr(FileSizeByName(OpenDialog1.Filename))); end; 2。GetFileSize var FileHandle:integer; begin if OpenDialog1.Execute then begin FileHandle := FileOpen(OpenDialog1.FileName, 0); ShowMessage(IntToStr(GetFileSize(FileHandle, nil))); FileClose(FileHandle); end; 3。FileSize（不能获得正在使用的文件大小） var f: file; begin if OpenDialog1.Execute then begin AssignFile(f, OpenDialog1.FileName); Reset(f, 1); ShowMessage(IntToStr(FileSize(f))); CloseFile(f); end; 4。FileSeek var FileHandle:integer; begin if OpenDialog1.Execute then begin FileHandle := FileOpen(OpenDialog1.FileName, 0); ShowMessage(IntToStr(FileSeek(FileHandle,0,2))); FileClose(FileHandle); end; 5。TFileStream.Size var FS: TFileStream; begin if OpenDialog1.Execute then begin FS := TFileStream.Create(OpenDialog1.FileName, fmShareDenyNone); ShowMessage(IntToStr(FS.Size)); FS.Free; end;另在IdGlobalProtocols中有个FileSizeByName()的函数。
F. delphi编写上传文件大小限制如何取消
找到php.ini文件，编辑该文件搜索：memory_limit、post_max_size、upload_max_filesize、max_execution_time、max_input_time一般默认的设置值为：memory_limit=128M //相当于单个脚本可调用内存大小post_max_size=8M //上传文件大小上限upload_max_filesize=2M//默认上传文件大小，这个就是2M的限制！max_execution_time=30//最大执行时间，页面等待时间max_input_time=60//最大输入时间？具体意义不明确，就是上传时间相关然后将其改为自己需要的值，例如：memory_limit=128Mpost_max_size=12Mupload_max_filesize=10M//这样就改为可以传10M以下的文件了max_execution_time=60max_input_time=60重启服务使得设置才能生效！
G. 为什么delphi编译生成的exe文件这么大
delphi 编译生成的 exe 文件，占用磁盘字节数比较大的原因在于，delphi 编译的文件中包含有其他的数据信息更多。
以下在 delphi xe 10 中，建立一个只包含空窗体的工程，通过多种配置进行编译，生成的 exe 文件大小的测试：
1、通常 delphi 的文件为了调试方便，默认新建工程进行编译的 exe 文件，是包含有 Debug 信息的，其生成的 exe 文件大小约为10.5M：
简单经过以上3步，delphi 生成的 exe 文件大小已经从最初的 10.5 M，减小到 1.69 M。
此外，诸如：低版本的 delphi 使用 AnsiString 作为缺省字符集，而高版本使用 UniCode 作为字符集等因素，也会使得 exe 文件增大。
H. 如何减小Delphi应用程序（EXE）的大小
可以用一种更通用的方式——通过第三方工具压缩文件！这里我推荐的是一个免费的工具Aspack 。这个工具专门针对Delphi程序做了优化，可以直接压缩Delphi编译出来的EXE,DLL 等文件，压缩比一般在50%左右。
I. 怎么样得到文件的大小（DELPHI）
大概有这些方法可以获得文件大小FileSizeByName（需要引用IdGlobal单元）GetFileSizeFileSize（不能获得正在使用的文件大小）FileSeekTFileStream.Size下面是使用例子1。FileSizeByName（需要引用IdGlobal单元）beginifOpenDialog1.ExecutethenbeginShowMessage(IntToStr(FileSizeByName(OpenDialog1.Filename)));end;2。GetFileSizevarFileHandle:integer;beginifOpenDialog1.ExecutethenbeginFileHandle:=FileOpen(OpenDialog1.FileName,0);ShowMessage(IntToStr(GetFileSize(FileHandle,nil)));FileClose(FileHandle);end;3。FileSize（不能获得正在使用的文件大小）varf:file;beginifOpenDialog1.ExecutethenbeginAssignFile(f,OpenDialog1.FileName);Reset(f,1);ShowMessage(IntToStr(FileSize(f)));CloseFile(f);end;4。FileSeekvarFileHandle:integer;beginifOpenDialog1.ExecutethenbeginFileHandle:=FileOpen(OpenDialog1.FileName,0);ShowMessage(IntToStr(FileSeek(FileHandle,0,2)));FileClose(FileHandle);end;5。TFileStream.SizevarFS:TFileStream;beginifOpenDialog1.ExecutethenbeginFS:=TFileStream.Create(OpenDialog1.FileName,fmShareDenyNone);ShowMessage(IntToStr(FS.Size));FS.Free;end;另在IdGlobalProtocols中有个FileSizeByName()的函数。
J. 使用Delphi编写读取文件有多少bit位代码是什么
给你个标准的能用的函数：
function GetFileSize(sFileName: string): real;
var
f: TFileStream;
begin
if FileExists(sFileName) then
begin
f := TFileStream.Create(sFileName, fmOpenRead or fmShareDenyNone);
Result := f.Size ; //返回文件大小
f.Free;
end
else
Result := 0;
end;
得到的大小就是 bit，想转成KB 就 /1024 想转成MB 就 除2个1024
