Q&A

  • idFTP.LIST에서 에러가 납니다..
오늘 하루 종일 이것때문에 헤메고 있습니다..

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.

위와 같이 에러가 납니다..

초보에게 도움을 주십시오.. 감사합니다.
1  COMMENTS
  • Profile
    dbwrite 2008.05.20 04:25








              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;