| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

[DelphiWebScript] Надо вызвать из скрипта функцию программы, и [D7]

TDWS ©   (2006-05-15 01:27:00) 

передать ей в качестве параметра record. Как это можно сделать?

Вернее я не могу понятЬ, как в функции в качестве параметра указать рекорд. Там есть integer, boolean, и т. д. А recorda - нету. Но есть ещё несколько непонятных типов. Может кто знает, как это сделать? Или это вообще невозможно?

---

TDWS   (2006-05-21 07:33:00) [1]

Up

---

TDWS   (2006-05-18 02:20:00) [2]

Никто не знает ?

---

TDWS   (2006-05-17 01:24:00) [3]

Вопрос про Delphi Web Scripts, а не про какой то ODE-сервер. OLEVarian там нету.

Структура одна и таже, что в скритпе, то и в программе. Поэтом разбирать - элементарно.

---

tesseract   (2006-05-16 10:40:00) [4]

Добавь в программу OLE-сервер и забей в библиотеку типов нужные тебе функции.

> А recorda - нету. Но есть ещё несколько непонятных типов.

структуру через ole????

типов много: SafaArray или OLEVariant тебе подойдут, засадить туда структуру можно. Только как ты в скрипте будешь её разбирать....
Проще сделать много свойств и передавать данные через них.

---

TDWS   (2006-05-16 03:20:00) [5]

Никто не знает ?

---

TDWS   (2006-05-15 03:03:00) [6]

Так, а в редакторе то, мне что указать ?

Вот кусок из моего dfm-файла :

 object dws2Unit1: Tdws2Unit
   Script = DelphiWebScriptII1
   Arrays = <>
   Classes = <>
   Constants = <>
   Enumerations = <>
   Forwards = <>
   Functions = <
     item
       Name = 'Add1'
       Parameters = <
         item
           Name = 'aParam1'
           DataType = 'ParamStr' // Какой мне тут тип указать ???
         end>
     end>
   Instances = <>
   Records = <>
   Synonyms = <>
   UnitName = 'dws2Unit1'
   Variables = <>
   StaticSymbols = False
   Left = 8
   Top = 80
 end


---

Anton_112   (2006-05-15 02:31:00) [7]

В разделе type нужно описать запись, которую вы собираетесь передавать функции, например
type
 TRecord=record
   field1: integer;
   field2: string;
   * * *
   fieldN: real;
 end;
---------
а затем при объявлении функции:
function foobar(parameter1: TRecord): some_type;
* * *
То есть при объявлении функции тип параметра объявляется как ранее описанный в разделе type тип записи.

---

Наверх