Копирование в буфер обмена

@amiyr · Регистрация: 16.12.2021

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

Здравствуйте подскажите пожалуйста, есть код который копирует в буфер из Image изображение

Delphi
1
ClipBoard.Assign(Image1.Picture);

Хотел узнать можно ли скопировать сразу несколько фото из 2 разных Image?

Verevkin · 10.04.2022, 14:32

Сообщение от amiyr

Хотел узнать можно ли скопировать сразу несколько фото из 2 разных Image?

А что и куда ты планируешь после этого из буфера обмена вставить?

@amiyr · 10.04.2022, 14:36 **[ТС]**

В телеге отправлять

Verevkin · 10.04.2022, 14:38

Сообщение от amiyr

В телеге отправлять

Что именно? Одно смешанное изображение или несколько изображений?

@amiyr · 10.04.2022, 14:39 **[ТС]**

Несколько разных изображений

Verevkin · 10.04.2022, 14:43

Сообщение от amiyr

Несколько разных изображений

Это будет возможно, если Павел Дуров разработает новый формат данных буфера обмена.

@amiyr · 10.04.2022, 14:45 **[ТС]**

Вы наверное не совсем поняли вопроса, в ручном варианте скопировать и вставить все гуд, как программно скопировать несколько объектов из компонента Timage ?

Verevkin · 10.04.2022, 14:49

Сообщение от amiyr

Вы наверное не совсем поняли вопроса

Так не бывает.

Сообщение от amiyr

в ручном варианте скопировать и вставить все гуд

Сообщение от amiyr

как программно скопировать несколько объектов из компонента Timage ?

TImage не содержит несколько объектов. Этот компонент может содержать либо одно изображение, либо ни одного.

@amiyr · 10.04.2022, 14:51 **[ТС]**

2 компонента Timage, с разными изображениями и их нужно скопировать в буфер

Verevkin · 10.04.2022, 14:53

Сообщение от amiyr

2 компонента Timage, с разными изображениями и их нужно скопировать в буфер

Как 2 отдельных изображения?

@amiyr · 10.04.2022, 15:03 **[ТС]**

Их надо скопировать в буфер

Verevkin · 10.04.2022, 15:07

Сообщение от amiyr

Их надо скопировать в буфер

Сообщение от Verevkin

Как 2 отдельных изображения?

Или как одно?

@amiyr · 10.04.2022, 15:09 **[ТС]**

Как 2 отдельных

Verevkin · 10.04.2022, 15:13

Сообщение от amiyr

Как 2 отдельных

По 2-му разу:

Сообщение от Verevkin

Это будет возможно, если Павел Дуров разработает новый формат данных буфера обмена.

@amiyr · 10.04.2022, 15:19 **[ТС]**

В ручном режиме все спокойно копируется, вопрос в том и был возможно ли это как-то программно сделать.

Verevkin · 10.04.2022, 16:00

Сообщение от amiyr

В ручном режиме все спокойно копируется, вопрос в том и был возможно ли это как-то программно сделать.

Это копирование не изображений, а файлов.

@amiyr · 10.04.2022, 16:09 **[ТС]**

Окей, как их программно копировать в буфер?

Verevkin · 10.04.2022, 16:22

Сообщение от amiyr

Окей, как их программно копировать в буфер?

Как вырезать файл в буфер обмена?

Добавлено через 6 минут
Скопипастил из другого форума, на работоспособность не проверял.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
// Копируем файл в буфер обмена
 
uses
  ShlObj, ClipBrd; 
 
procedure CopyFilesToClipboard(FileList: string); 
var 
  DropFiles: PDropFiles; 
  hGlobal: THandle; 
  iLen: Integer; 
begin 
  iLen := Length(FileList) + 2; 
  FileList := FileList + #0#0; 
  hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_MOVEABLE or GMEM_ZEROINIT, 
    SizeOf(TDropFiles) + iLen); 
  if (hGlobal = 0) then raise Exception.Create('Could not allocate memory.'); 
  begin 
    DropFiles := GlobalLock(hGlobal); 
    DropFiles^.pFiles := SizeOf(TDropFiles); 
    Move(FileList[1], (PChar(DropFiles) + SizeOf(TDropFiles))^, iLen); 
    GlobalUnlock(hGlobal); 
    Clipboard.SetAsHandle(CF_HDROP, hGlobal); 
  end; 
end; 
 
// Example, Beispiel: 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  CopyFilesToClipboard('C:Bootlog.Txt'#0'C:AutoExec.Bat'); 
end;  
 
//Separate the files with a #0.

@amiyr · 10.04.2022, 17:20 **[ТС]**

Не совсем понял как мне это поможет скопировать в буфер 2 этих файла !

@D1973 · 10.04.2022, 17:27

Сообщение от amiyr

Не совсем понял

так посмотрите внимательно! Вот эта строчка Вам ни о чем не говорит?

Сообщение от Verevkin

CopyFilesToClipboard('C:\Bootlog.Txt'#0' C:\AutoExec.Bat');

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@amiyr 0 / 0 / 0 Регистрация: 16.12.2021 Сообщений: 43
	10.04.2022, 14:36 [ТС]
	В телеге отправлять 0

@amiyr 0 / 0 / 0 Регистрация: 16.12.2021 Сообщений: 43
	10.04.2022, 14:39 [ТС]
	Несколько разных изображений 0

@amiyr 0 / 0 / 0 Регистрация: 16.12.2021 Сообщений: 43
	10.04.2022, 14:45 [ТС]
	Вы наверное не совсем поняли вопроса, в ручном варианте скопировать и вставить все гуд, как программно скопировать несколько объектов из компонента Timage ? 0

@amiyr 0 / 0 / 0 Регистрация: 16.12.2021 Сообщений: 43
	10.04.2022, 14:51 [ТС]
	2 компонента Timage, с разными изображениями и их нужно скопировать в буфер 0

@amiyr 0 / 0 / 0 Регистрация: 16.12.2021 Сообщений: 43
	10.04.2022, 15:03 [ТС]
	Их надо скопировать в буфер Миниатюры 0

@amiyr 0 / 0 / 0 Регистрация: 16.12.2021 Сообщений: 43
	10.04.2022, 15:09 [ТС]
	Как 2 отдельных 0

@amiyr 0 / 0 / 0 Регистрация: 16.12.2021 Сообщений: 43
	10.04.2022, 15:19 [ТС]
	В ручном режиме все спокойно копируется, вопрос в том и был возможно ли это как-то программно сделать. Миниатюры 0

@amiyr 0 / 0 / 0 Регистрация: 16.12.2021 Сообщений: 43
	10.04.2022, 16:09 [ТС]
	Окей, как их программно копировать в буфер? 0

@amiyr 0 / 0 / 0 Регистрация: 16.12.2021 Сообщений: 43
	10.04.2022, 17:20 [ТС]
	Не совсем понял как мне это поможет скопировать в буфер 2 этих файла ! 0