[draginimp]

Привет, нужно создать файл PSD состоящий из множества слоев.
Я решил подергать Phoshop через Comobj.
Вопрос как вставить картинку, если картинка jpg в буфере???

Код:

psd:=CreateOleObject('Photoshop.application');
psd.open['D:\1.psd'];
psd.visible:=true;

Должно быть что-то вроде
psd.paste(...)
или с начало psd.layers.add

[NumLock]

у

Код:

property ActiveDocument: Document dispid 1883325539;

есть:

Код:

function Paste(IntoSelection: OleVariant): ArtLayer; dispid 1885434740;

попробуй его, я не проверял.

[draginimp]

Пока не получается

[NumLock]

что именно?

добавлено позже

проверил предложеный способ - работает

добавлено еще позже

Код:

uses
  Photoshop_TLB, ComObj, ActiveX, Clipbrd, jpeg,
...
var
  App: _Application;
  jpeg: TJPEGImage;
begin
  OleInitialize(nil);

  if not OpenPictureDialog1.Execute then Exit;

  jpeg:=TJPEGImage.Create;
  try
    jpeg.LoadFromFile(OpenPictureDialog1.FileName);
    Clipboard.Assign(jpeg);
  finally
    jpeg.Free;
  end;

  App:=CreateComObject(CLASS_Application) as _Application;
  App.Load('d:\Documents\Создание иконки iPhone\Иконка iPhone.psd');
  App.ActiveDocument.Paste(False);
end;

[Alegun]

Тоже ради интереса попробовал предложеный способ - работает, bro NumLock - +

[draginimp]

Дай Бог Вам здоровья. Вы мне очень помогли... Спасибо.

[draginimp]

ЗАДАЧА:
1) Есть фон в формате psd.
2) есть Excel с названиями необходимых файлов
Программа должна вставлять эти картинки в psd. // отдельным слоем
далее дизайнер вручную располагает картинки в Photoshop.

Теперь я запускаю это дело в цикл.
Я научился вставлять картинки в Photoshop. УРА!.
НО вставляет одну и туже картинку.
Разумеется? в начале цикла есть:

Код:

Clipboard.clear;

Не помогает.
В Photoshop не отчищается буфер.!!
При этом если я заменяю вставку картинки в цикле на вывод месаджа.
И сам в Photoshope нажимаю "Paste" то все гуд картинки меняются.

Код:

//psd.ActiveDocument.Paste(false);
showmessage('Vstavlyai');

И при этом важно переходить по окнам.
Подскажите, как можно решить эту проблему!

[Alegun]

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

...В Photoshop не отчищается буфер.!!

Если не ошибаюсь то в нём (так же кстати, и в майкрософтовском офисе) применён собственный буфер т.е. данные принимаются сначало в главный "отстойник" и лишь затем используются по мере надобности, а на него стандартные приёмы не действуют. У меня есть только старый эдобовский редактор, в нём такой проблемы нет, но посмотрите документацию, а вдруг у вас в настройках где-нибудь есть отключение "расширенного" буфера обмена. А ещё может помимо Clipboard.clear и комбинацию нажатия клавиш послать фотошопу для очистки требуется, надо поглядеть

[draginimp]

Спасибо Вам, но увы.
В фотошопе есть функция "Очистить буфер", я задал на нее горячие клавиши, которые потом передавал....Но если я не перехожу между окнами то в буфере фотошопа новая картинка не появляется.

[Alegun]

Прмт сблзнвн, обидно Кстати, насчёт буфера, можно ещё так попробовать

Код:

  if OpenClipboard(Null) then
        try
            EmptyClipboard;
        finally
            CloseClipboard;
        end;

причём в MSDN приводится такое описание

...Handle to the window to be associated with the open clipboard. If this parameter is NULL, the open clipboard is associated with the current task

если по-нашему, по-делфийски переводить то выходит примерно следующее: передаваемый хендл относится к содержимому буфера, типа он того, кто его наполнил. А если его задать как NULL, то тогда буфер станет нашим. Применимо к вашей задаче, а что если попробовать передать "описатель окна" от фотошопа, конечно если только его возможно получить, а вдруг сработает? Смех сквозь слёзы