Простая внешняя компонента для системы 1С:Предприятие 7.7 на Delphi-5 с исходниками (Получить текст из буфера обмена (Clipboard)
Разработка - Разработка внешних компонент
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
//----------------------------------------------------
Процедура гл8СообщитьБуфер() Экспорт
Перем БуферОбмена, Стр;
ЗагрузитьВнешнююКомпоненту("AddIn_V7MyClipboard.dll");
БуферОбмена = СоздатьОбъект("AddIn.AddIn_V7MyClipboard");
Стр=БуферОбмена.ПолучитьТекстИзБуфераОбмена(0);
Сообщить(Стр);
КонецПроцедуры // гл8СообщитьБуфер
//----------------------------------------------------При написании использовалась функция для Delphi
предоставленная by Sergey Popov, Usinsk, Komi:
//----------------------------------------------------
Uses
...
Clipbrd;
function GetFromClipboardToList(Buf : TStrings; ClearAfter : boolean) : boolean;
{Взять текстовые данные из Clipboard}
var
MyHandle: THandle;
TextPtr: PChar;
MyString: string;
begin
Result:=FALSE;
if Buf<>NIL then begin
Buf.Clear;
if Clipboard.HasFormat(CF_TEXT) then begin
ClipBoard.Open;
try
MyHandle := Clipboard.GetAsHandle(CF_TEXT);
TextPtr := GlobalLock(MyHandle);
Buf.SetText(TextPtr);
GlobalUnlock(MyHandle);
if ClearAfter then ClipBoard.Clear;
if Buf.Count>0 then begin
Result:=TRUE;
end;
finally
Clipboard.Close;
end;
end;
end;
end;
//----------------------------------------------------Как использовать функцию :
//----------------------------------------------------
Var
List : TStrings;
begin
List := TStringList.Create;
TRY
GetFromClipboardToList(List, false);
...
...
...
FINALLY
if List<>NIL then begin
List.Clear;
List.Free;
List:=NIL;
end;
END;
end;
//----------------------------------------------------Вступайте в нашу телеграмм-группу Инфостарт
См. также
10 стартмани
20.03.2026 1766 19 v_peroff 8
1 стартмани
10.06.2025 2838 1 mdbruyfn 0
7320 руб.
19.04.2023 7316 1 0
6100 руб.
27.05.2022 13640 2 20
10 стартмани
06.04.2021 13297 15 softmaker 18
