delphi idftp控件的问题

[yang1870049]

程序中循环向ftp服务器上传文件，但是每运行一会（上传几条后）便会提示一个错误
Project UpLoad.exe raised exception class EAccessViolation with message 'Access violation at address 00000000. Read of address 00000000 '. Process stopped. Use Step or Run to continue.

程序调试发现每次报错都是在下面这段代码上：

FmyFtp ：Tidftp；
FMyFtp.Put(FileLocalPath,(ExtractFileName(FileLocalPath)));

FileLocalPath为本地文件绝对路径

请教高手！这可能是什么原因造成的？

[lzg827]

这两行看不出问题
楼主，再贴些代码吧。
你说到循环传文件，有没有发生阻塞，或者重复连接。

[yang1870049]

//判断ftp上文件是否存在
function TFtpThread.FtpFileExists(FileName: string):Boolean;
begin
Result := False;
try
if FMyFtp.Size(FileName) = -1 then //没有返回 -1 函数返回 true 文件不存在
begin
Result := True;
end;
except
end;

end;
//文件上传函数
function TFtpThread.UpLoadToFtp(FileLocalPath:string):Boolean;
begin
Result := True;
Try
if FtpFileExists(FileLocalPath) then //文件不存在，上传
begin
FMyFtp.Put(FileLocalPath,(ExtractFileName(FileLocalPath)));
end;
except
Result := false;
end;
end;

// 上传线程
procedure TFtpThread.Execute;
begin
while not Self.Terminated do
begin
if FMyftp.Connected then
begin
UpLoadToFtp(TmpFile);//tmpFile是从一个list里面循环读取出来的！
end;
end;

end;

[yang1870049]

求高手！

[lzg827]

上传线程这个过程中
TmpFile 你传个空值或者非法路径看看什么效果。
tmpFile是从一个list里面循环读取出来的，能保证一直是有效路径吗？

[lzg827]

找问题总是艰难漫长的，楼主加油哈，再次帮顶。

[yang1870049]

说的也是！谢谢你！tmpfile 应该没有问题的！上传前 我已经用fileexists 判断它是否存在了！再说还有try 结构，应该不是他的问题！呵呵！[Quote=引用 5 楼 lzg827 的回复:]

找问题总是艰难漫长的，楼主加油哈，再次帮顶。
[/Quote]

[lzg827]

楼主，结贴了说说解决方法啊