PDA

View Full Version : اجرای نرم افزاری که با دلفی نوشته شده در فتوشاپ



سيد مجتبي هاشمي
جمعه 04 بهمن 1387, 11:54 صبح
سلام دوستان. کسی میدونه چه طوری میشه یک منو به منوهای فتوشاپ اضافه کرد و نرم افزار نوشته شده با دلفی 7 را توسط آن اجرا کرد؟

mossaferin
شنبه 05 بهمن 1387, 15:12 عصر
سلام

تا اونجایی که من میدونم ، باید یه plugin برای فوتوشاپ نوشته بشه ...
یه سری به این لینک بزن
http://www.djpate.freeserve.co.uk/AutoPShp.htm#QuickRef

این هم یه مطلب که بدک نیست


To get the Photoshop type library do the following in Delphi:
- Project Menu > Import Type Library
- Click 'Add' and browser to the Photoshop directory (usually C:\Program Files\Adobe\Photoshop 5.x) and select 'TypeLibrary.tlb'
- Now click on 'Create Unit'
- Save this unit to the project directoy where you want to use it
- In your project add these unit to the uses clause:

uses ComObj, ActiveX (javascript:void(0)), PhotoShopTypeLibrary_TLB;


- To start Photoshop:

PS (javascript:void(0)): IPhotoShopApplication;
AppWasRunning: boolean;
Result: HRESULT;
Unknown: IUnknown;

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(IPhotoShopApplicat ion, PS));
AppWasRunning := True;
end;


- To make it visible:

PS.Set_Visible(true);


- To stop Photoshop:

PS.Quit;


- To load and save a picture:

Pic (javascript:void(0)): IAutoPSDoc;

Pic := PS.Open('Picture.psd');
Pic.SaveTo('Picture2.psd');


- To play an action:

PS.PlayAction('Large Round Button');


- To apply a filter (plugin) to the active picture:

AC: IActionControl;
AD: IActionDescriptor;

AC := PS.MakeControlObject;
AD := PS.MakeDescriptor;
AD.PutDouble(phKeyRadius, 10.3);
AC.Play(phEventGaussianBlur, AD, phDialogSilent);

or

AC := PS.MakeControlObject;
AD := PS.MakeDescriptor;
AD.PutInteger(phKeyAmount, 50);
AC.Play(phEventSpherize, AD, phDialogSilent);



More info can be found in the SDK document 'Photoshop OLE Automation.pdf'.





موفق باشی

سيد مجتبي هاشمي
شنبه 15 فروردین 1388, 23:40 عصر
ممنون. اما ميشه بگين از اين كد بايد كجا و چطور استفاده كنم؟

Felony
یک شنبه 16 فروردین 1388, 06:29 صبح
برای پلاگین نویسی باید به نحوه ی نوشتن و استفاده از فایلهای DLL کاملا مسلط باشید و بعد از آن SDK پلاگین نویسی برای فتوشاپ رو بگیرید ، احتمالا همراهش دمو هم هست که کار این SDK برقرار کردن ارتباط بین DLL شما و فتوشاپ هست .