[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]

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