Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.189.170.17] |
|
Сообщ.
#1
,
|
|
|
Процедура не находит файлы на сервере. Где я ошибся?
procedure RemoteUpdateListing; var F: TWin32FindData; Enum: HInternet; R: Bool; Item: TListItem; Icon: TIcon; FileName: string; FileSize: Integer; begin Icon := nil; Enum := nil; Form1.RemoteListView.Items.BeginUpdate; try Icon := TIcon.Create; // ClearRemoteImageList; Form1.RemoteListView.Items.Clear; if FRemotePath <> '/' then begin Item := Form1.RemoteListView.Items.Add; Item.Caption := '..'; Item.SubItems.Add(''); Item.SubItems.Add('File Folder'); Item.ImageIndex := 0; end; Enum := FtpFindFirstFile(FtpHandle, PChar(FRemotePath + '*.*'), F, 0, 255); R := Enum <> nil; while R do begin FileName := F.cFileName; Item := Form1.RemoteListView.Items.Add; Item.Caption := FileName; FileSize := (F.nFileSizeHigh shl 32) or (F.nFileSizeLow); if F.dwFileAttributes and faDirectory = faDirectory then begin Item.SubItems.Add(''); Item.SubItems.Add('File Folder'); Item.ImageIndex := 0; end else begin Item.SubItems.Add(FileSizeToString(FileSize)); Item.SubItems.Add(GetFileTypeDescription(FRemotePath + FileName, True)); Icon.Handle := GetFileTypeIcon(FRemotePath + FileName, True); Item.ImageIndex := Form1.RemoteViewImages.AddIcon(Icon); end; R := InternetFindNextFile(Enum, @F); end; finally InternetCloseHandle(Enum); Form1.RemoteListView.Items.EndUpdate; // FreeAndNil(Icon); end; end; |