|
|
Устанавливает указанное строковое свойство объекта JS+, приведенное из типа BSTR (для приложений С++) или TBStr/WideString (для приложений Delphi).
Синтаксис
int __stdcall JSP_objSetBStr(
| hObj, | prp_cName, | prp_Value
| );
|
Параметры
|
Параметр
| Тип
| Описание
|
hObj
| size_t
| объект JS+, имеющий свойство типа String
|
prp_cName
| char*
| имя свойства типа String объекта hObj
|
prp_Value
| BSTR
| устанавливаемое значение свойства prp_cName
|
|
Возвращаемое значение
JSP_OK (0) в случае успеха либо JSP_ERROR (-1) в противном случае.
------------------------ Приложение C++ Builder ------------------------
JSP_Start("TRIAL","");
JSP_RegAppFun("void","App_tstObjBStr","size_t&,char*");
JSP_RET_void App_tstObjBStr(size_t& hObj,char* prp_cName) { BSTR get_val; WCHAR set_val[256];
JSP_objGetBStr(hObj,prp_cName,get_val); wcscpy_s(set_val,255,get_val); _wcsrev(set_val); JSP_objSetBStr(hObj,prp_cName,set_val); }
------------------------ Скрипт JS+ ------------------------
var tst_obj={ strValue: "A123я" };
var val_str=tst_obj.strValue;
App_tstObjBStr(tst_obj,"strValue");
alert( val_str+"\n-\n"+ tst_obj.strValue );
------------------------ Вывод скрипта JS+ ------------------------
A123я - я321A
------------------------ Приложение Delphi ------------------------
uses ActiveX,// TBStr AnsiStrings// ReverseString()
JSP_Start('TRIAL','User=Delphi');
JSP_RegAppFun('','App_tstObjBStr','size_t&,char*');
procedure App_tstObjBStr(var hObj:Pointer;prp_cName:pAnsiChar) stdcall; var bst_val:TBStr; begin JSP_objGetBStr(hObj,prp_cName,@bst_val); JSP_objSetBStr(hObj,prp_cName, WideString(ReverseString(AnsiString(bst_val)))); end; exports App_tstObjBStr;
------------------------ Скрипт JS+ ------------------------
var tst_obj={ strValue: "A123я" };
var val_str=tst_obj.strValue;
App_tstObjBStr(tst_obj,"strValue");
alert( val_str+"\n-\n"+ tst_obj.strValue );
------------------------ Вывод скрипта JS+ ------------------------
A123я - я321A
Совместимость
C++ Builder/Delphi/Visual C++
|
JS+ | Руководство пользователя
|
|
|
|
|
|