![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте, на форме есть ListBox в котором полные пути к файлам и DirectoryListBox к котором выбираю куда копировать файлы, пробую так:
Код:
procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin for i:=0 to ListBox1.Items.Count-1 do if Copyfile(PAnsiChar(ListBox1.Items.Strings[i]),PChar(DirectoryListBox.Directory),false) then ShowMessage('Ôàéë óñïåøíî ñêîïèðîâàíà.') else ShowMessage('Îøèáêà ïðè êîïèðîâàíèè Ôàéëà.'); end; Не получается, подскажите что не так. |
#2
|
|||
|
|||
![]() Тут сразу несколько ошибок:
1. Если это юникодная Дельфи, то нет такой функции CopyFile(PAnsiChar,PWideChar,boolean). Надо использовать либо везде PAnsiChar либо везде PWideChar (который просто PChar по умолчанию). 2. Надеюсь файлы с полным путем в ListBox1? 3. Функция CopyFile копирует ФАЙЛ. Т.е. ей надо сформировать полное имя файла назначения, походу эта функция не поддерживает автоматическое именование при копировании в папку. Вот пример с выводом отладочной информации (в дополнение к твоим компонентам брось еще TMemo на форму): Код:
procedure TForm1.Button1Click(Sender: TObject); var I : Integer; tgtDir : String; fileName : String; tgtFileName : String; ErrCode : Cardinal; begin Memo1.Lines.Clear; Memo1.Lines.Add('Start coping'); tgtDir := IncludeTrailingPathDelimiter(DirectoryListBox1.Directory); Memo1.Lines.Add('Target directory: ' + tgtDir); Memo1.Lines.Add(''); For I := 0 To ListBox1.Items.Count-1 Do Begin fileName := ListBox1.Items[i]; If Not FileExists(fileName) Then Memo1.Lines.Add(Format('File "%s" does not exist',[fileName])) Else Begin tgtFileName := tgtDir + ExtractFileName(fileName); Memo1.Lines.Add(Format('Coping "%s" to "%s"...',[fileName,tgtFileName])); If CopyFile(PChar(fileName),PChar(tgtFileName),false) Then Memo1.Lines.Add('Done') Else Begin ErrCode := GetLastError; Memo1.Lines.Add(Format('FAILED! Error code is %d',[ErrCode])); End; End; Memo1.Lines.Add(''); End; end; |