Photshop fernsteuern...Möglich? Wie?

[torud]

Hallo Wissende,

ich stehe vor der Aufgabe Adobe Photoshop (PS) fernsteuern zu müssen.

Also das Programm starten, eine PSD-Datei laden, grafische Objekte und Texte inahltlich ändern, als 32-Bit-Tga speichern und am Ende das Programm wieder beenden.

Folgendes geht schon, da ich hier und da schon etwas an Code finden konnte:
Starten von PS
Laden einer PSD-Datei
Beenden von PS

Folgendes muss ich noch lösen
Ändern des Inhaltes eines Ebenen-Objektes (geht das überhaupt???)
Speichern als 32-Bit-Tga (aktuell speichert es nur namenstechnisch als TGA, inhaltlich ist es aber eine PSD-Datei)

Könnt Ihr mir sagen, ob das, was ich vorhabe, überhaupt möglich ist???
Und falls der ein oder andere so was schon mal gemacht hat, würde ich mich über den ein oder anderen Tipp sehr freuen...

Hier noch mein bisheriger Code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComObj, ActiveX, PhotoShopTypeLibrary_TLB;

type
  TForm1 = class(TForm)
    btn_start_ps: TButton;
    btn_end_ps: TButton;
    btn_load_psd: TButton;
    procedure btn_start_psClick(Sender: TObject);
    procedure btn_end_psClick(Sender: TObject);
    procedure btn_load_psdClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  PS: IPhotoShopApplication;

implementation

{$R *.dfm}

procedure TForm1.btn_start_psClick(Sender: TObject);
var
  AppWasRunning: boolean;
  Unknown: IUnknown;
  Result : HResult;
begin
  AppWasRunning := False;
  Result := GetActiveObject(CLASS_PhotoshopApplication, nil, Unknown);
  if (Result = MK_E_UNAVAILABLE) then
    PS := CoPhotoshopApplication.Create
  else begin
    { make sure no other error occurred during GetActiveObject }
    OleCheck(Result);
    OleCheck(Unknown.QueryInterface(IPhotoShopApplication, PS));
    AppWasRunning := True;
  end;
  PS.Visible := 1;
end;

procedure TForm1.btn_end_psClick(Sender: TObject);
begin
  PS.Quit;
end;

procedure TForm1.btn_load_psdClick(Sender: TObject);
var
  Pic: IAutoPSDoc;
begin
  Pic := PS.Open('c:\Booklet.psd');
  Pic.SaveTo('c:\Booklet.tga')
end;

end.

[Brainshock]

Vielleicht Aktionen mit PS aufzeichnen und dann ausführen lassen.

Gruß Matthias

[torud]

Danke für Deine Antwort. Aktionen machen doch nur das, was sie beinhalten.
Ich möchte aber zum Beispiel Namen in ein Textobjekt schreiben...Die sind natürlich flexibel.

Ergo, ich muss in der Lage sein Ebenen, die ein Textobjekt beinhalten anzusprechen und denen den neuen Inhalt übergeben?

[jus]

Hallo torud,

meiner Meinung nach geht es nur über die Möglichkeit die Aktionen aufzeichnen zu lassen. Die spärlichen Dokus zu OLE von Adobe kann man quasi vergessen, wenn man nur etwas tiefer in die Materie gehen will. Mit Aktionen aufzeichnen meine ich aber die Möglichkeit *.VBS Code zu generieren. Dazu mußt du nur irgendeine von Photoshop mitgelieferte Datei in das richtige Photoshop Unterverzeichnis kopieren. Wie das genau funktioniert habe ich bereits vergessen, da es bei mir schon ein Weilchen her ist, aber du wirst bestimmt in Google dazu was finden. Dann werden nämlich alles was du in Photoshop machst als VisualBasicScript Code in einer Datei mitgeloggt. Den generierten funktionsfähigen VBS-Code kann man meist sehr leicht ins Delphi übersetzen, da es auch auf OLE basiert.

Lg,
jus :)