|
|
|
|
Устанавливает указанное строковое свойство объекта JS+, приведенное из типа AnsiString приложений С++ Builder и Delphi.
Синтаксис
| int __stdcall JSP_objSetAnsiStr(
| | hObj, | | prp_cName, | | prp_Value
| | );
|
| Параметры
|
| Параметр
| Тип
| Описание
|
| hObj
| size_t
| объект JS+, имеющий свойство типа String
|
| prp_cName
| char*
| имя свойства типа String объекта hObj
|
| prp_Value
| AnsiString
| устанавливаемое значение свойства prp_cName
|
|
Возвращаемое значение
JSP_OK (0) в случае успеха либо JSP_ERROR (-1) в противном случае.
------------------------ Приложение C++ Builder ------------------------ #include <AnsiStrings.hpp>// ReverseString() JSP_Start("TRIAL",""); JSP_RegAppFun("void","App_tstObjAnsiStr","size_t&,char*"); JSP_RET_void App_tstObjAnsiStr(size_t& hObj,char* prp_cName) { AnsiString str_val; JSP_objGetAnsiStr(hObj,prp_cName,str_val); JSP_objSetAnsiStr(hObj,prp_cName,ReverseString(str_val)); } ------------------------ Скрипт JS+ ------------------------ var tst_obj={ strValue: "A123я" }; var val_str=tst_obj.strValue; App_tstObjAnsiStr(tst_obj,"strValue"); alert( val_str+"\n-\n"+ tst_obj.strValue ); ------------------------ Вывод скрипта JS+ ------------------------ A123я - я321A
------------------------
Приложение Delphi
------------------------
uses
AnsiStrings// ReverseString()
JSP_Start('TRIAL','User=Delphi');
JSP_RegAppFun('','App_tstObjAnsiStr','size_t&,char*');
procedure App_tstObjAnsiStr(var hObj:Pointer;prp_cName:pAnsiChar) stdcall;
var
str_val:AnsiString;
begin
JSP_objGetAnsiStr(hObj,prp_cName,@str_val);
JSP_objSetAnsiStr(hObj,prp_cName,ReverseString(str_val));
end;
exports App_tstObjAnsiStr;
------------------------
Скрипт JS+
------------------------
var tst_obj={
strValue: "A123я"
};
var val_str=tst_obj.strValue;
App_tstObjAnsiStr(tst_obj,"strValue");
alert(
val_str+"\n-\n"+
tst_obj.strValue
);
------------------------
Вывод скрипта JS+
------------------------
A123я
-
я321A
Совместимость
C++ Builder/Delphi
|
| JS+ | Руководство пользователя
|
|
|
| |
|
|
