오늘 하루 종일 이것때문에 헤메고 있습니다..
idFTP를 이용해서 업그레이드 프로그램을 만들고 있는데요..
<!--CodeS-->
procedure TfMain.FormActivate(Sender: TObject);
begin
UpdateFolder := 'c:\temp\help';
FTP_ChangePath := 'help';
try
idFTP.Connect;
idFTP.ChangeDir(FTP_ChangePath);
except
ShowMessage('업그레이드 서버 접속에 실패하였습니다.')
end;
FTP_List := TStringList.Create;
try
idFTP.List(FTP_List); <=== 여기서 에러가 납니다..
finally
FTP_List.Free;
end;
<!--CodeE-->
Project wHelp.exe raised exception class EInvalidOp with message 'Invalid floating point operation' Process stopped. Use Step or Run to conitue.
위와 같이 에러가 납니다..
초보에게 도움을 주십시오.. 감사합니다.
LSList := TStringList.Create;
FFTP.IdFTP.List(LSList,'*.*',True); { Unix }
for I := 0 to LSList.Count -1 do { AS/400 }
begin
if ( POS('.EXE',UpperCase(LSList.Strings[I])) <> 0 ) then
begin
if not Base_Insert then
funWriteftpInI('BASE','BASE',Trim(LSList.Strings[I]));
for J := 1 to FFTP.AGFTP.RowCount do
begin
if Length(Trim(Copy(LSList.Strings[I],FTP_size_s,FTP_size_e))) = 0 then
Break;
strFilename := Uppercase(Trim(Copy(LSList.Strings[I],FTP_file_s,FTP_file_e)));
if Trim(strFilename) = '' then
break;
if FFTP.AGFTP.CellS[1,J] = '' then
begin
FFTP.AGFTP.Cells[0,J] := IntToStr(J) ;
FFTP.AGFTP.Alignments[0,J] := taCenter ;
FFTP.AGFTP.Alignments[2,J] := taRightJustify ;
FFTP.AGFTP.Alignments[3,J] := taCenter ;
FFTP.AGFTP.Alignments[4,J] := taCenter ;
FFTP.AGFTP.CellS[1, J] := strFilename ;
FFTP.AGFTP.Cells[2, J] := fn_Sf(Pad_OCode(Trim(Copy(LSList.Strings[I],FTP_size_s, FTP_size_e))));
FFTP.AGFTP.CellS[3, J] := Trim(Copy(LSList.Strings[I],FTP_date_s,FTP_date_e));
FFTP.AGFTP.CellS[5, J] := ftpdownload;
if Copy(FTPDIR,Length(FFTP.AGFTP.CellS[5, J]),1) <> '/' then
FFTP.AGFTP.CellS[5, J] := FFTP.AGFTP.CellS[5, J] + '/';
FFTP.AGFTP.CellS[5, J] := FFTP.AGFTP.CellS[5, J] + FFTP.AGFTP.CellS[1, J];
Break;
end; // if
end; // for
end;
end;
LSList.Destroy;