X
xiakaijun
Unregistered / Unconfirmed
GUEST, unregistred user!
我参照网站http://www.net-wing.net/kangwei/的一篇文章：
《用DELPHI为ASP开发文件上载组件 》-深圳王发军 ，做文件上载组件 。
有一问题向各位请较：
客户端上传文件，服务端通过该ActiveX读取文件并保存。我已在
服务端获取文件名，文件大小，及文件在数组中的位置，当保存时出现问题：
function TUploadFile.SaveFileAs(FileName: OleVariant): OleVariant;
var
longIndex : LongInt;
AFile : file of byte;//以二进制的形式保存文件
byteData : Byte;
begin
result := true;
try
assignFile( AFile, FileName );//or assign(AFile,FileName)
FScriptingContext.Response.write('after assign');//IE show
rewrite( AFile );
FScriptingContext.Response.write('after rewrtie')
//IE not show
for longIndex := FFileDataStart to FFileDataEnd do //FFileDataStart ,FFileDataEnd 为文件位置
begin
byteData := Byte( FContentData[ longIndex ] );//客户端来的数据
Write( AFile, byteData );
end;
CloseFile( AFile );
except
result := false;
end;
end;
//通过测试发现执行rewrite( AFile );句时出现问题，我单独编程测试
应无问题，因较难Debug,请大家帮忙！
《用DELPHI为ASP开发文件上载组件 》-深圳王发军 ，做文件上载组件 。
有一问题向各位请较：
客户端上传文件，服务端通过该ActiveX读取文件并保存。我已在
服务端获取文件名，文件大小，及文件在数组中的位置，当保存时出现问题：
function TUploadFile.SaveFileAs(FileName: OleVariant): OleVariant;
var
longIndex : LongInt;
AFile : file of byte;//以二进制的形式保存文件
byteData : Byte;
begin
result := true;
try
assignFile( AFile, FileName );//or assign(AFile,FileName)
FScriptingContext.Response.write('after assign');//IE show
rewrite( AFile );
FScriptingContext.Response.write('after rewrtie')
//IE not show
for longIndex := FFileDataStart to FFileDataEnd do //FFileDataStart ,FFileDataEnd 为文件位置
begin
byteData := Byte( FContentData[ longIndex ] );//客户端来的数据
Write( AFile, byteData );
end;
CloseFile( AFile );
except
result := false;
end;
end;
//通过测试发现执行rewrite( AFile );句时出现问题，我单独编程测试
应无问题，因较难Debug,请大家帮忙！