C语言辅导：如何使当前程序的对象进入脚本(2)

会计考友

C语言辅导：如何使当前程序的对象进入脚本(2)
; ^7 I1 f  N9 {4 }6 [% B+ Y+ p二、主要代码 　　1 声明定义可以被javascript调用的类和对象
" F* O; ~- j/ U. A! T; ~　　//声明可以被javascript调用的类并创建一个转接对象g_Dialogimpl
　　BEGIN_DSRE_POPULAR_OBJECT(CCppCalljavascriptDlg)
0 o7 }# U; I- K　　DEFINE_POPULAR_METHOD(CCppCalljavascriptDlg,Rectangle);
  M  a* |& D: Z$ _; b) q0 O　　DEFINE_POPULAR_METHOD(CCppCalljavascriptDlg,MoveTo);
& e, a1 ~% X' ^" x" l1 U: [3 Z　　DEFINE_POPULAR_METHOD(CCppCalljavascriptDlg,LineTo);
/ b7 ?) c# r5 }2 f) U　　DEFINE_POPULAR_METHOD(CCppCalljavascriptDlg,TextOut);
　　END_DSRE_POPULAR_OBJECT()g_Dialogimpl;
9 z& G  J$ Q7 [% U. R- b. O1 T　　//定义可以被javascript调用的函数，分别是Rectangle, MoveTo, LineTo, TextOut
　　DEFINE_DSRE_FUNCTION(CCppCalljavascriptDlg,Rectangle)
　　{
　　int x,y,cx,cy;
- a5 h' j0 D) W% L( e- x　　x=(*args)[0]->AsInt();
2 u7 g1 F1 E9 R, @( Y7 ^/ b　　y=(*args)[1]->AsInt();
　　cx=(*args)[2]->AsInt();
; i5 Z+ l7 K* i% g/ q　　cy=(*args)[3]->AsInt();
3 _( x5 B4 Z, Y8 l5 }/ p# ~　　::Rectangle(m_hDC,x,y,cx,cy);
　　}
$ v' C( N8 Q/ X' }! p1 X3 I& N　　DEFINE_DSRE_FUNCTION(CCppCalljavascriptDlg,MoveTo)
　　{
　　int x,y;
4 c. F0 a$ e( @　　x=(*args)[0]->AsInt();
3 P' g' m) P; o% E# g2 a: |　　y=(*args)[1]->AsInt();
　　::MoveToEx(m_hDC,x,y,NULL);
, ?$ s% m! T$ ?  N' n6 y% t　　}
$ f: q. l, c# t- Q" }, }5 o　　DEFINE_DSRE_FUNCTION(CCppCalljavascriptDlg,LineTo)
# T- {' X7 r2 M+ r4 k# Q　　{
* |' G# ^9 P/ `　　int x,y;
　　x=(*args)[0]->AsInt();
4 M; w  s0 f' g4 v7 f　　y=(*args)[1]->AsInt();
  f+ ^6 k7 e( w; [+ U　　::LineTo(m_hDC,x,y);
4 I4 W; a4 \- K; L　　}
　　DEFINE_DSRE_FUNCTION(CCppCalljavascriptDlg,TextOut)
　　{
　　int x,y;
) L* a$ x( x( [$ ~; {　　x=(*args)[0]->AsInt();
  `$ O7 N& `# Z: R　　y=(*args)[1]->AsInt();
- a5 D& }7 y1 ?/ x　　wchar_t *text=(*args)[2]->AsString()->GetText();
　　::TextOutW(m_hDC,x,y,text,(*args)[2]->AsString()->GetLength());
2 Q# s# \- n$ n  |+ D　　}
; z5 R" F( m3 v9 q　　2 向msscript.ocx添加代码
  h$ }6 [! \, i6 {　　code_w=L"function OnDialogPaint(dialog){dialog.Rectangle(20,20,220,220);dialog.MoveTo(270,20);dialog.LineTo(300,120);dialog.TextOut(280,150,\"Text from javascript\");}";
　　code=code_w.GetText();
! |* Z* S: ?( u! f  _- [　　JScriptWrapper->Invoke(NULL,L"AddCode",&code,&ret);
　　3 在VC的 OnPaint 事件调用 javascript
. R* A' j4 a) H　　LWideString code_w=L"OnDialogPaint(theCppDialog);";
　　code=code_w.GetText();
& w" _; \' O% M3 [　　JScriptWrapper->Invoke(NULL,L"Eval",&code,&ret);
　　这样就完成了一下调用过程为真正的双向调用。
7 G% x( o4 B& ?& z( s% d0 Y　　考试大提示：如果有了双向调用技术，不难想象Flash的ActionScript的实现方法，也不难想象Maxthon的Plug-in可以用MS Script来做。如果不能实现双向，只能像WPS那样，Script只能作为Add-on，而不是Plug-in（没有贬低WPS之意）。