|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
07.05.2008, 22:53 | #11 | |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
Цитата:
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
|
10.05.2008, 22:26 | #12 |
Регистрация: 05.05.2008
Сообщений: 6
|
кто может про коментировать каждую строку (что делает).
procedure TMainForm.ChageDir(DirName: string); var LS: TStringList; begin LS:=TStringList.Create; try IdFTP1.ChangeDir(DirName); IdFTP1.TransferType:=ftASCII; CurrentDirEdit.Text:=IdFTP1.Retriev eCurrentDir; DirectoryListBox.Items.Clear; IdFTP1.List(LS); DirectoryListBox.Items.Assign(LS); if DirectoryListBox.Items.Count>0 then if AnsiPos('total', DirectoryListBox.Items[0])>0 then DirectoryListBox.Items.Delete(0); finally LS.Free; end; end; procedure TMainForm.DirectoryListBoxDblClick( Sender: TObject); var Name: string; begin if not IdFTP1.Connected then Exit; Name:=IdFTP1.DirectoryListing.Items[DirectoryListBox.ItemIndex].FileName; if IdFTP1.DirectoryListing.Items[DirectoryListBox.ItemIndex].ItemType=ditDirectory then ChageDir(Name) else begin IdFTP1.TransferType:=ftBinary; BytesToTransfer:=IdFTP1.Size(Name); end end; procedure TMainForm.DirectoryListBoxDrawItem( Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin if Assigned(IdFTP1.DirectoryListing) and (IdFTP1.DirectoryListing.Count>Inde x) then begin DirectoryListBox.Canvas.FillRect(Re ct); with IdFTP1.DirectoryListing.Items[Index] do begin DirectoryListBox.Canvas.TextOut(Rec t.Left, Rect.Top, FileName); end; end; end; |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проверка наличия файла | russian-stalker | Общие вопросы Delphi | 4 | 31.08.2008 19:27 |
Прикрепление нового файла .PAS к проекту | dimon000 | Общие вопросы Delphi | 7 | 28.07.2008 15:47 |
Проверка атрибутов файла. | v01umE | Общие вопросы C/C++ | 2 | 31.05.2008 08:37 |
Проверка доступности файла | Marsik | Помощь студентам | 2 | 05.04.2008 09:53 |
Проверка расширения файла | Mickle | Общие вопросы Delphi | 2 | 04.05.2007 16:41 |