Please Plese Help - Custom Directory Indy FTP
Having trouble with a custom Server Directory list format.
I have used the event for CheckListFormat to determine this is connecting to
this wierd server
procedure TfLiveSession.IdFTP1CheckListFormat(ASender: TObject;
const ALine: String; var VListFormat: TIdFTPListFormat);
begin
if pos('Report for:', ALine) > 0 then
begin
VListFormat := flfCustom;
idFTP1.OnParseCustomListFormat :=
fLiveSession.IdFTP1ParseCustomListFormat;
end;
end;
I am then using the event ParseCustomListFormat to determine the actual
file/directory details
procedure TfLiveSession.IdFTP1ParseCustomListFormat(AItem: TIdFTPListItem);
I am populating AIUtem's properties andI am sure I have got the decoding all
correct, however
after I do a idFTP1.List(LS), the only line in the DirectoryListing property
is the very last line!
6 Files 207588 Octets
any help greatly appreciated
FYI, the directory listing looks like this :-
Report for: (SOMEPLEACE)SOME/WHERE ON
ABC06'#$D#$A'LOG/030213/191156 DATA 8910
02/13/2003 19:11'#$D#$A'LOG/030214/190322 DATA
8910 02/14/2003 19:03'#$D#$A'LOG/030215/182308 DATA
8910 02/15/2003 18:23'#$D#$A'LOG/030216/191402 DATA
8910 02/16/2003 19:14'#$D#$A'102/ACCEPTFILE DATA
90 02/16/2003 19:14'#$D#$A'103/ACCEPTFILE DATA
90 02/16/2003 19:14'#$D#$A'104/ACCEPTFILE DATA
90 02/16/2003 19:14'#$D#$A'106/ACCEPTFILE DATA
90 02/16/2003 19:14'#$D#$A'107/ACCEPTFILE DATA
90 02/16/2003 19:14'#$D#$A'108 DATA
141838792 02/16/2003 19:14'#$D#$A'108/ACCEPTFILE DATA
28260 02/16/2003 19:14'#$D#$A'109/ACCEPTFILE DATA
90 02/16/2003 19:14'#$D#$A'110/ACCEPTFILE DATA
90 02/16/2003 19:14'#$D#$A'111/ACCEPTFILE DATA
90 02/16/2003 19:14'#$D#$A'112/ACCEPTFILE