aseli bikinan agus made
Saatnya kita belajar implementasi OLE Automation, kali ini kita belajar cara sederhana mengendalikan Photoshop dari aplikasi yang kita buat dengan Delphi. Saya belum tahu mulai Photoshop versi berapa yang mendukung ini, yang jelas dengan Photoshop CS, tidak ada masalah.
Mula-mula jalankan Photoshop pada komputer anda, buka file gambar.
Buat program dengan delphi, tambahkan sebuah "Button" pada form, tambahkan "ComObj" pada "uses", beri event OnClick pada "Button", perhatikan source code berikut :
uses
//...
ComObj
//...
//...
procedure TForm1.Button1Click(Sender: TObject);
var
PhotoShop: OLEVariant;
begin
try
PhotoShop := CreateOleObject('Photoshop.Application');
except
ShowMessage('Error...');
Exit;
end;
//contoh GaussianBlur
PhotoShop.activeDocument.activeLayer.applyGaussianBlur(5);
end;
//...
Jalankan program anda, Klik Tombol-nya dan lihat di Photosop, gambar akan menjadi 'mblawur' karena efek "applyGaussianBlur" yang diperintahkan oleh program anda. Gampang khan?
Anda juga bisa memberikan efek lain, atau memberikan aktivitas lain pada Photoshop, untuk lebih jelasnya silahkan baca "Scripting Guide" pada Photoshop.
Terima kasih
Agus Made K (http://agusmade.blogspot.com)
tuk afdal, salam kenal juga, ini beberapa respon atas komen anda di tag board, moga bisa membantu
BalasHapus1 knpa setiap mau remote script: PhotoShop := CreateOleObject... harus selalu di deklarasikan?? gmna cara agar dijadiin satu class public aja?? biar bisa dipanggil oleh semua event?
Masalah yang sama saya alami, saya juga belum ketemu solusinya, kalo yang lain ada yang tahu silahkan bagi2.
2. aq udah nyari help photoshop tentang scripting guide, tapi kok ga ada cara scripting nya?? dmna?? gmna??
untuk contoh instalasi lengkap Photosoh CS secara standard Scripting Guide di letakkan pada folder:
"C:\Program Files\Adobe\Photoshop CS\Scripting Guide"
3. knpa var oleobject photoshop ga punya library sendiri?? trus gmna ngembangin scriptingnya?? knpa var oleobject photoshop ga punya library sendiri?? trus gmna ngembangin scriptingnya??
maksudnya library dengan unit delphi? kalo setiap handle Ole software dibikinin library delphi sendiri, nanti ada jutaan library, kita gak kuat beli delphi nya bok. Justru tutorial dasar yang saya buat ini untuk triger teman2 yang ingin bikin library untuk berbagai OLE. jadi suatu saat semua orang (khususnya programmer delphi) bisa bikin Photoshop remote control, Autocad remote control, 3DSutdioMax remote control dan sebagainya, bahkan program kitapun bisa kita remote sendiri pake program kita yang lain. itu tujuan tulisan ini, bukan untuk diterapkan mentah2... :)
4. aq pgin nyoba prog ini remote antar client.. tapi ga punya refrensi, kira2 bisa ga ya?? hehehehe banyak tanya ya??
mungkin maksudnya bikin Automation server sendiri? kalo ada kesempatan meakan saya kirim tutorial dasar untuk hal ini.
5. hehehehe banyak tanya ya?? boleh minta YM?? swun.. mohon bimbingannya
gak apa2, YM saya:"agusmade", tapi saya bukan dosen pembimbing.
wahhhh.,.,lumayanlah.,.nambah ilmu
BalasHapus