delphi文件大小

Ⅰ delphi 如何获取文件的大小和类型

示例代码如下：

1. 首先，uses 添加IdGlobalProtocols。

2.

functionTForm1.GetFileSizeStr(fName:string):string;
varnSize:Integer;
begin
nSize:=FileSizeByName(fName);
ifnSize>1073741824then
Result:=FormatFloat('###,##0.00G',nSize/1073741824)
elseifnSize>1048576then
Result:=FormatFloat('###,##0.00M',nSize/1048576)
elseifnSize>1024then
Result:=FormatFloat('###,##00K',nSize/1024)
else
Result:=FormatFloat('###,#0B',nSize);
ifLength(Result)>2then
ifResult[1]='0'then
Delete(Result,1,1);
end;

procereTForm1.Button1Click(Sender:TObject);
begin
ShowMessage('文件大小是：'+GetFileSizeStr('d:	able.mdb'));
end;

示例截图：

Ⅱ 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=128M
post_max_size=12M
upload_max_filesize=10M//这样就改为可以传10M以下的文件了
max_execution_time=60
max_input_time=60
重启服务使得设置才能生效！