导入后能够上传成功了
但是只能在本地打开在服务器端打开的时候就报错,说字节数为0
上传部分的代码如下:
--------------------
procedure TRelevancyGrid.NewDocFromLocal;
const
cFileName = 'file:\%s';
var
I: Integer;
lSize, lFixSize: Int64;
lFileName: string;
begin
if OpenDialog.Execute then
begin
//lFixSize := TDocUtils.GetOSFileSize(Dir);
lFixSize := TDocUtils.GetFixSize(Dir);
for I := 0 to OpenDialog.Files.Count - 1 do
begin
lSize := FileSys.FileSystem.FileGetSize(SysUtils.Format(cFileName, [OpenDialog.Files[I]]));
lFileName := FileSys.FileUtils.GetFileName(OpenDialog.Files[I]);
if (lFixSize <> 0) and (lSize > lFixSize) then
begin
JSDialogs.ShowMsg(SysUtils.Format('文件"%s"的大小(%s)超过上传大小(%s)的限制.',
[lFileName, TDocUtils.FileSizeToStr(lSize), TDocUtils.FileSizeToStr(lFixSize)]), '');
Continue;
end;
NewDocFromLocal(OpenDialog.Files[I]);
end;
end;
end;
---------------
不知道是不是代码里这个地方:
cFileName = 'file:\%s';
路径设置的问题
这个好象是传到了本地的地址,应该如何获取并上传到服务器的一个地址? |