I've got a BUGFIX to avoid GPF's with Indy 9 - where to submit?

Giganews Newsgroups
Subject: I've got a BUGFIX to avoid GPF's with Indy 9 - where to submit?
Posted by:  Tobias Giesen (tobi…@superflexible.com)
Date: Thu, 26 Feb 2004

Hi,

I'm posting a bugfix to one routine in the file IdFTP.pas here. I was
confronted with GPF's when reading some FTP directories, and here's the fix.

Can somebody tell me where to submit it properly? I am totally
CVS-illiterate.

Cheers,
Tobias

----

function TIdFTP.GetDirectoryListing: TIdFTPListItems;
begin
  if not Assigned(FDirectoryListing) then begin
    try
      ConstructDirListing;
    except
      on EAccessViolation do ConstructDirListing;
    end;
    // Parse directory listing
    if FListResult.Count > 0 then begin
      // TG 2004-02-26
      // fix GPF !!!!
      // avoid Range Check Error
      while (FListResult.Count>0) and
        (Length(FListResult[0])<=2) do
        FListResult.Delete(0);
      if (FListResult.Count>0) then begin
        FDirectoryListing.ListFormat :=
FDirectoryListing.CheckListFormat(FListResult
                  [0],TRUE);//APR: TRUE for IndyCheck, else always Unknown
        DoCheckListFormat(FListResult[0]);
        FDirectoryListing.LoadList(FListResult);
      end;
    end;
  end;
  Result := FDirectoryListing;
end;

Replies