نحوه ارتباط با Automation Hysys توسط MFC با استفاده از Visual Studio 2008/2010

سه‌شنبه, 12/17/2013 - 18:21 | zatkhahi

???? ??? ?? ?? ?????? ??? ????? HYSYS ??? ?? ??? ???? ??? ???????? ?????? ???? ? ?????? ??? ?? ?? ??????? ?? ?? ?? ???? ?????? ?? ??????? ??????? ?? ???? ???? ????. ?? ?????? ??? ?????? ??? ??? ????? ????? ?????? ?? ?? ???? OLE ?? Object Linking & Embedding ???. ??? ?????? ?? ???? ???? ?????? ????? ??? ?? ???? ??????? Microsoft Office ?? ?? ???? (Excel) ? Word ? ... ?? ?? ???? ?? ??? ? ??? ?????? ?? ?? ???????? ?????? ???? ?? ??? ?? ?? ???? ?????? ????? ?? ?? ?????? ???? ????. ???? ?????? ????? Visual Basic ?? VB ?? ???? ????? ? ????? ?? ?????? ????? COM ????? ??? ??? ?? ?? ??? ??? ??????? ???? ???? ??? ???.

Manchester City Away Uniform, manchester City Dog Accessories, manchester City Soccer Light Blue Windbreaker http://jerseycheap4sale.com/24-Manchester-City-Away-Uniform-Manchester-City-Dog-Accessories-Manchester-City-soccer-light-blue-windbreaker.html

??? ???? ??????? ?? ??? ????? ???? ?? ??? ?? ?? ?????? ????? ?????? ??? ??????? ?? ?? ????? ?????? ?? ??? ????? ????? ?? ??? ?? ?? ???? ????????? ? ?? ????? ?? ????? ???. ???? ???? ???? ???? ?? ??? ??????? ?? ???? ???? ?? ????? ???? ????. ?? ?? ???? ?? ??????? ??? ??? ?? ????? ????? ?? ???????? ??? Heuristics ????? ?? ??? ??? Iterative ? ... ???? ???? ???? ?? ?? ????? ????? ????? ???? ?? ??? ??? ?? ???? ???? ? ?????? ????? ???? ????. ?? ????? ??? ????? ???? ?? ??? ??? ?????? ?? ???? ?? ???? ?????? ????? ?? ????? ??? ???? ???? ?????? ????? ?????? ?? ?? ?? ????? ????? ? ???? ???? ???? ? ...

???? ?? ?? ???? COM ? VB ???? ?????. ???? ?? ???? ???? ??? ???? ????? ?? ??? ????? HYSYS ?? ???? VB ???. ??? ?? ??? ???? ????? ?? ???? ??? (COM) ????? ??? ? ???? ?? ?? ???? ??????? ???. ???? ???? ? ???? ?????? ??? ?? ??? ?? ???? ???? ?? VB ?? ???? IUnknown ???? ?? ???? ?? ??? ???? (Interface) ????? ??? ???? ?? ?? ??????? ??????? COM ???. ? ?? ???? ??? ???? ?? ????? ??? ???? ?? ???????? ?? ????. ??? interface ?? ???? ?? ??? ???? ??? ???? ??? ?????? ???? ?? ?? ??? ????? COM ?? ?? C++ ???? ??? ????? ???? VB ? ??? ???? ??? ??????? ????? ????? ?? ???? ?? ?????!

??? ???? ????? ??? ????? ????? ?? ???? ????? ?? ??? ????? HYSYS ?? ???? C++ ??????? ????. ????? ????? ???? ??? ???? ????? ????. ???? ???? ??? ??? ?????? ????? ??? ?? ?? ???? c++ ??? ? ?? ?????? ?? hysys ??? ????. ?? ???? ??? ??? ?? performance ?????? ???? ????? (????? ?? ????? ???? ??) ?? ???? ??? ?? ???? ??? ?? ???? ?? VB ?? ?? ???? ??? ???. ???? ???? ?? ??? Fluid Package ?? ?? ??? ??? ????? ????? ????? ?????? (Extension) ?? ??????? ?? VB ???? ?????. (????? ???? ???? ?? performance ???.)

??? ?? ??? ?? ??? ??? ???? ??? ?? ??? ???? ?? ??????? ?? Visual Studio ?? ???? ??? ??? ????? ???. ???? ???? ?? ??????? ?????? ?? ??????? ?? COM ?? ????? ??????? ? ???? ??????? ?? MFC ? ATL ?? ???? ????? ??? ????? ??? ???? ?????? ?? ?? ???. ?? ???? ???? ????? ?? ??? ?? ???????? MFC ??????? ????.

???????? ??????? ???? ?? Visual Studio ???? ??? ???? ? ???? ????? ????? ???? ????. ?? ????? ?? ???? ??? ???? ?? ????:

????? ?? ????? ?? ??? C++ MFC ????? ?? ????. ( ??? ? ??????? ?? ??? ????.)
??? ????? ????? ??? ?? ???? Solution Explorer ???? ???? ?? ???? ? ????? Add à Class ?? ?????? ?? ????.
?? ????? ??? ????? ???? ????? MFC Class From TypeLib ?? ?????? ??? ?? ????? ??? ???? ???:

Hysys Classes from TypeLibrary

4. ?? ????? ???? ????? File ?? ?????? ???? ? ?? ??? Location ???? tlb ??? ????? Hysys ?? Aspen ?? ?????? ????:

C:\Program Files\AspenTech\Aspen HYSYS 2006\hysys.tlb

5. ?? ??? Interfaces ???? ???? ( ????) ?? ?? ???? ????? ?? ???? ??? ???? ?????? ???? ?? Visual Studio ?? ?? ?? ???? ??? ????? ?????. (???? ???? ?? ?????? ??? ???? ?? ???? ????? ??? ????? ????). Visual Studio ?? ???? ?? ????? ?? ?????? ?? ????? ?? ???? ????? ???? ? ????? ????? ? ???? ???? ?? ?? ???? ?? ???? ???? ????? ????? ?? ???.

HYSYS 2006 Type Library

6. ???? Finish ?? ??? ? ????? ?????? ?? ??? ???? ??? ?????? ??? ????? ????. (???? ?? ?? ???? ?? ???? ???? ???? ?? ??? ???? ????? ????.)

7. ?????? ???? ?? ? ???? ???????? ?? ?? ? ???????? ??? ?? ???? ?? ???? ?? ????? Hysys ???? ? ?? ??????? ??? ??? ????? ???? ?????? ???. ( ????? ?? ?? ????? ???? ??? ?? VB ????? ?? ??? ? ????? ?? ?? ?? ??? ???? ???? MFC ????? ?? ????.)

8. ???????? ??????? ???? ? ????? ?? hysys ???? ????? ????? ??? ???? ?????? ??? ?? ??? ? ??? ? ???? ???? ????? ????? ?? ??????? ?? ???? ???? ???? ???? ?? ???? ???! ???? ???? ?? ?? ??? ????? ??? CApplication ?? ???? Application ????? ?? ???? (Attach) ?? ??? ? ?? ??????? ?? ??? get_SimulationCases ?? ??? ???? ???? ????? ? ??? simulationcase ?????? ???? ?? ???.

???? ???? ?? ???????? ??? IDispatch ?? ?? ?????? hysys ?? ???? ???? ???? ??? AttachDispatch ?? ?? ???? ??? (?? ??? ?? ????? ????? ??? ?? CSimulationCases2) ???? ????. ??? ?? ??????? ?? ??? Add ?? SimulationCase ???? ????? ????? ??. ???????? ????? ?????? ????? ???? ?? ???? ?? ???. ?? ?????? ?? ??? VARIANT ??? ? ??? ?????? ?? ??? ?? ????. ???? ??? ?????? ?? ?? ????? ?? VB ??? ?? ?? ????? ?? ??? ???? ?? ??? ?? ?? ?????? ??? ???? ?? ??? SimulationCase ???. ?? ????? ?? ???? ????? ?? ?? ???? IDispatch ?? ??? ?? ??????? ?? ????? ?? ??????? ?? ????? pdispVal ?? ???? ?? ??? ???? ?????? ???? ??? ? ?? ?? ?? ???? C_SimulationCase ???? ???. ? ?? ???? ????? ???? ???? ???? ???? ?? ??? ?? ???? ???? ???? ? ??????? ????.

????? ?????:

void CMainFrame::OnFileStarthysys()

{

CLSID clsidWMP;

LPDISPATCH pWMPDispatch = NULL;

CApplication hysyApp;

CSimulationCases2 simulationCases;

C_SimulationCase simulationCase;

try

{

AfxCheckError(::CLSIDFromProgID(_T("hysys.application"), &clsidWMP));

AfxCheckError(::CoCreateInstance(clsidWMP, NULL, CLSCTX_LOCAL_SERVER,

IID_IDispatch, (LPVOID*)&pWMPDispatch));

hysyApp.AttachDispatch(pWMPDispatch, TRUE);

pWMPDispatch = NULL; // our COleDispatchDriver now owns the interface

hysyApp.put_Visible(TRUE);

LPDISPATCH simCaseList = hysyApp.get_SimulationCases();

simulationCases.AttachDispatch(simCaseList);

VARIANT name;

name.vt = VT_BSTR;

name.bstrVal = SysAllocString(L"test simcase");

VARIANT type;

type.vt = VT_INT;

type.intVal = 0;

VARIANT simulation_case = simulationCases.Add(name, type);

simulationCase.AttachDispatch(simulation_case.pdispVal);

simulationCase.Activate();

}

catch (COleException* pe)

{

pe->ReportError();

pe->Delete();

}

catch (CMemoryException* pe)

{

pe->ReportError();

pe->Delete();

}

?????? ????? ????? ?? ??? ????

کلید واژه:

HYSYS

COM

OLE

لینک به هایسیس

بهینه سازی

c++ COM

دیدگاه‌ها

پیوند ثابت Submitted by kac (تایید نشده) on ی., 03/08/2015 - 21:42.

راهنمایی

سلام

چگونه می شود

aspen hysys

را به متلب به صورت دینامیکی لینک کرد؟

پاسخ دادن

پیوند ثابت Submitted by zatkhahi on سه‌شنبه, 03/10/2015 - 17:13.

با سلام

برای لینک شدن به برنامه Hysys با استفاده از نرم افزار MATLAB باید از دستور های مربوط به actxserver استفاده کنید.

برای مثال برای ساخت یک اکتیو ایکس ساده اکسل:

% Open Excel, add workbook, change active worksheet,

% get/put array, save, and close

% First open an Excel Server

Excel = actxserver('Excel.Application');

set(Excel, 'Visible', 1);

% Insert a new workbook

Workbooks = Excel.Workbooks;

Workbook = invoke(Workbooks, 'Add');

% Make the second sheet active

Sheets = Excel.ActiveWorkBook.Sheets;

sheet2 = get(Sheets, 'Item', 2);

invoke(sheet2, 'Activate');

% Get a handle to the active sheet

Activesheet = Excel.Activesheet;

% Put a MATLAB array into Excel

A = [1 2; 3 4];

ActivesheetRange = get(Activesheet,'Range','A1:B2');

set(ActivesheetRange, 'Value', A);

% Get back a range.  It will be a cell array,

% since the cell range can

% contain different types of data.

Range = get(Activesheet, 'Range', 'A1:B2');

B = Range.value;

% Convert to a double matrix.  The cell array must contain only scalars.

B = reshape([B{:}], size(B));

% Now save the workbook

invoke(Workbook, 'SaveAs', 'myfile.xls');

% To avoid saving the workbook and being prompted to do so,

% uncomment the following code.

% Workbook.Saved = 1;

% invoke(Workbook, 'Close');

% Quit Excel

invoke(Excel, 'Quit');

% End process

delete(Excel);

برای اتصال به Hysys هم به طور مشابه اپلیکیشن مربوطه رو ایجاد کرده و آبجکت ها و متد هایی رو که لازم دارید استفاده میکنید.

لینک کمکی:

http://www.codeproject.com/Articles/5848/Using-ActiveX-Control-Inside-MATLAB

موفق باشید

پاسخ دادن

پیوند ثابت Submitted by محمدمتقی (تایید نشده) on سه‌شنبه, 11/08/2016 - 05:48.

سلام .وقت بخیر.

میخواستم یه واکنش با فرمول سینتیک پیچیده به هایسیس اضافه کنم. باید چکار کنم؟

پاسخ دادن

افزودن نظر جدید

شما اینجا هستید