Копирование файлов через opendialogs

@ilyxaaa · Регистрация: 27.02.2014

Студворк — интернет-сервис помощи студентам

Добрый день.
Подскажите как скопировать несколько выбранных файлов, в определенную папку.
Пробовал много способов ,
вот последний

Delphi
1
2
3
4
5
If dlgOpen1.Execute Then
  For i:=0 to  dlgOpen1.Files.Count-1  do
while dlgOpen1.Files.Strings[i] = dlgOpen1.Files.Strings[10] do
         CopyFile(PChar(dlgOpen1.Files.Strings[i]), PChar(ExtractFilePath(Application.ExeName)+'Архив\'+ form3.edt1.text+'\'+'1'+'\'+dlgOpen1.Files.Strings[i]), True);
               end

@Joy · 25.09.2014, 14:24

а выделяете сколько файлов? я просил выложить список dlgOpen1.Files.Strings[i]

@ilyxaaa · 25.09.2014, 14:26 **[ТС]**

Joy, В данный момент при проверке, пробовал выделить 2,3,4.
А где взять список?

@Joy · 25.09.2014, 14:28

тут же список dlgOpen1.Files.Strings[i]

@ilyxaaa · 25.09.2014, 14:30 **[ТС]**

Joy, Это я знаю. Я не понимаю как его оттуда вытащить . Что бы сюда выложить.
Изначально он пустой я так понимаю. И заполняется он когда я выбираю файлы.

@Joy · 25.09.2014, 14:32

Pascal
1
  if OpenDialog1.Execute then Memo1.Lines.AddStrings(OpenDialog1.Files);

@ilyxaaa · 25.09.2014, 14:34 **[ТС]**

Joy, Вот все как положено
D:\Универсальный стол макет+фото\Пояснительный рисунок.jpg
D:\Универсальный стол макет+фото\Стол рис.1.jpg
D:\Универсальный стол макет+фото\Стол рис.2.jpg
D:\Универсальный стол макет+фото\Стол рис.3.jpg
Выбирал 4 файла

@Joy · 25.09.2014, 14:43

PChar(ExtractFilePath(Application.ExeNam e)+'Архив\'+ form3.edt1.text+'\'+'1'+'\'+dlgOpen1.Fil es.Strings[i])
тут пропустил extractfilename(dlgOpen1.Files.Strings[i])

@ilyxaaa · 25.09.2014, 14:47 **[ТС]**

Joy, У меня это прописано

Добавлено через 1 минуту
Joy, теперь ошибка 80

@Joy · 25.09.2014, 14:48

Delphi
1
PChar(ExtractFilePath(Application.ExeName)+'Архив\'+ form3.edt1.text+'\'+'1'+'\'+extractfilename(dlgOpen1.Files.Strings[i]))

- так написано?

@ilyxaaa · 25.09.2014, 14:51 **[ТС]**

Joy, огромное спасибо. Было написано (dlgOpen1.Files)) а не (dlgOpen1.Files.Strings[i]))

@Joy · 25.09.2014, 14:53

заметь я на 12 посте из тебя содержимое переменных вытрясал... Вывел бы хотя бы в ShowMessage и все сам увидел.

@ilyxaaa · 25.09.2014, 14:54 **[ТС]**

Joy, Еще такой вопрос. Как мне Добавить картинку выбранную через opendialog , и что бы она загружалась в последующем.
Спасибо

@Joy · 25.09.2014, 14:56

куда добавить?

@ilyxaaa · 25.09.2014, 15:00 **[ТС]**

Joy, На форму

@Joy · 25.09.2014, 15:11

в качестве фона что-ли?

@ilyxaaa · 25.09.2014, 15:12 **[ТС]**

Нет, именно что не в качестве фона.

Добавлено через 21 секунду
а просто в определенную область формы

@Joy · 25.09.2014, 15:12

TImage есть такой компонент

@ilyxaaa · 25.09.2014, 15:16 **[ТС]**

Joy, он у меня стоит только вот как в него загрузить jpg, png
есть вот такой код

Delphi
1
2
 if dlgOpenPic1.Execute then
Img1.Picture.LoadFromFile(dlgOpenPic1.FileName);

@Joy · 25.09.2014, 15:22

Как PNG не знаю, а JPG можно так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses ..., Jpeg;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  jpg:TJpegImage;
 
begin
 
  if OpenDialog1.Execute then begin
 
     jpg:=TJPEGImage.Create;
     jpg.LoadFromFile(OpenDialog1.FileName);
     Image1.Picture.Bitmap.Assign(jpg);
     jpg.Free;
    end
end;

@ilyxaaa · 25.09.2014, 15:32 **[ТС]**

Joy, Вопрос 1, как сделать что бы картинку уменьшилась до размера поля image1. И как запомнить его имя, да дальнейшей загрузки

Новые блоги и статьи Все статьи Все блоги /
Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .
"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .

@Joy 2388 / 1300 / 1492 Регистрация: 29.08.2014 Сообщений: 4,665
	25.09.2014, 14:24
	а выделяете сколько файлов? я просил выложить список dlgOpen1.Files.Strings[i] 0

@ilyxaaa 1 / 1 / 2 Регистрация: 27.02.2014 Сообщений: 280
	25.09.2014, 14:26 [ТС]
	Joy, В данный момент при проверке, пробовал выделить 2,3,4. А где взять список? 0

@Joy 2388 / 1300 / 1492 Регистрация: 29.08.2014 Сообщений: 4,665
	25.09.2014, 14:28
	тут же список dlgOpen1.Files.Strings[i] 0

@ilyxaaa 1 / 1 / 2 Регистрация: 27.02.2014 Сообщений: 280
	25.09.2014, 14:30 [ТС]
	Joy, Это я знаю. Я не понимаю как его оттуда вытащить . Что бы сюда выложить. Изначально он пустой я так понимаю. И заполняется он когда я выбираю файлы. 0

@ilyxaaa 1 / 1 / 2 Регистрация: 27.02.2014 Сообщений: 280
	25.09.2014, 14:34 [ТС]
	Joy, Вот все как положено D:\Универсальный стол макет+фото\Пояснительный рисунок.jpg D:\Универсальный стол макет+фото\Стол рис.1.jpg D:\Универсальный стол макет+фото\Стол рис.2.jpg D:\Универсальный стол макет+фото\Стол рис.3.jpg Выбирал 4 файла 0

@Joy 2388 / 1300 / 1492 Регистрация: 29.08.2014 Сообщений: 4,665
	25.09.2014, 14:43
	PChar(ExtractFilePath(Application.ExeNam e)+'Архив\'+ form3.edt1.text+'\'+'1'+'\'+dlgOpen1.Fil es.Strings[i]) тут пропустил extractfilename(dlgOpen1.Files.Strings[i]) 0

@ilyxaaa 1 / 1 / 2 Регистрация: 27.02.2014 Сообщений: 280
	25.09.2014, 14:47 [ТС]
	Joy, У меня это прописано Добавлено через 1 минуту Joy, теперь ошибка 80 0

@ilyxaaa 1 / 1 / 2 Регистрация: 27.02.2014 Сообщений: 280
	25.09.2014, 14:51 [ТС]
	Joy, огромное спасибо. Было написано (dlgOpen1.Files)) а не (dlgOpen1.Files.Strings[i])) 0

@Joy 2388 / 1300 / 1492 Регистрация: 29.08.2014 Сообщений: 4,665
	25.09.2014, 14:53
	заметь я на 12 посте из тебя содержимое переменных вытрясал... Вывел бы хотя бы в ShowMessage и все сам увидел. 0

@ilyxaaa 1 / 1 / 2 Регистрация: 27.02.2014 Сообщений: 280
	25.09.2014, 14:54 [ТС]
	Joy, Еще такой вопрос. Как мне Добавить картинку выбранную через opendialog , и что бы она загружалась в последующем. Спасибо 0

@Joy 2388 / 1300 / 1492 Регистрация: 29.08.2014 Сообщений: 4,665
	25.09.2014, 14:56
	куда добавить? 0

@ilyxaaa 1 / 1 / 2 Регистрация: 27.02.2014 Сообщений: 280
	25.09.2014, 15:00 [ТС]
	Joy, На форму 0

@Joy 2388 / 1300 / 1492 Регистрация: 29.08.2014 Сообщений: 4,665
	25.09.2014, 15:11
	в качестве фона что-ли? 0

@ilyxaaa 1 / 1 / 2 Регистрация: 27.02.2014 Сообщений: 280
	25.09.2014, 15:12 [ТС]
	Нет, именно что не в качестве фона. Добавлено через 21 секунду а просто в определенную область формы 0

@Joy 2388 / 1300 / 1492 Регистрация: 29.08.2014 Сообщений: 4,665
	25.09.2014, 15:12
	TImage есть такой компонент 0

@ilyxaaa 1 / 1 / 2 Регистрация: 27.02.2014 Сообщений: 280
	25.09.2014, 15:32 [ТС]
	Joy, Вопрос 1, как сделать что бы картинку уменьшилась до размера поля image1. И как запомнить его имя, да дальнейшей загрузки 0

Копирование файлов через opendialogs

Решение