Передача строчного параметра в функцию

@qweasdyxc · Регистрация: 28.12.2008

Имеется на VB следующий код:

Dim buf_data As String
Set ob = CreateObject('Mylib.Myobj')
ob.prop = 2
ob.Metod1 'AAA', 'BBB', 'CCC', 50, buf_data

где ob - некий СОМ объект имеющий функцию Metod1 в которой последний 5 параметр - выходной, типа BSTR*. На VB этот код прекрасно работает. А вот в ASP нельзя объявить Dim buf_data As String можно только Dim buf_data а тогда выдается ошибка - несовместимость типов. Как можно передать в ASP строчный параметр, причем если этот параметр выходной (входной можно было бы привести к строке CStr(buf_data))

18.11.2009, 16:16

попробуй перед передачей параметра написать

Код

buf_data = CStr(buf_data)

либо

Код

buf_data = ''

думаю сработает

@qweasdyxc · 18.11.2009, 16:28 **[ТС]**

если написать cstr(buf_str) то передастся константа равная содержимому buf_str до вызова функции. мне же надо передать переменную по ссылке.

19.11.2009, 17:55

на сколько я знаю если в поптотипе функции написано

Код

Public Sub Metod1 (str1 As String, str2 As String, str3 As String, int AS Integer, ByRef buf_data As String)

то он должен брать переменную по ссылки
разве что-то изменит это если написать так:

Код

Dim buf_data As String
buf_data = ''
или 
buf_data = CStr(buf_data)
Set ob = CreateObject('Mylib.Myobj')
ob.prop = 2
ob.Metod1 'AAA', 'BBB', 'CCC', 50, buf_data

или я что-то не правильно понял?...

@davydenko · 20.11.2009, 02:38

posle Dim <var> postav' ReDim <var> v nuzhnom formate (='')
Esli v ASP.
poprobuy

@qweasdyxc 0 / 0 / 0 Регистрация: 28.12.2008 Сообщений: 27
		1
	Передача строчного параметра в функцию 18.11.2009, 14:02. Просмотров 661. Ответов 4 Метки нет (Все метки) Имеется на VB следующий код: Dim buf_data As String Set ob = CreateObject('Mylib.Myobj') ob.prop = 2 ob.Metod1 'AAA', 'BBB', 'CCC', 50, buf_data где ob - некий СОМ объект имеющий функцию Metod1 в которой последний 5 параметр - выходной, типа BSTR*. На VB этот код прекрасно работает. А вот в ASP нельзя объявить Dim buf_data As String можно только Dim buf_data а тогда выдается ошибка - несовместимость типов. Как можно передать в ASP строчный параметр, причем если этот параметр выходной (входной можно было бы привести к строке CStr(buf_data)) 0

WebLamer
	18.11.2009, 16:16	2
	попробуй перед передачей параметра написать Код buf_data = CStr(buf_data) либо Код buf_data = '' думаю сработает

@qweasdyxc 0 / 0 / 0 Регистрация: 28.12.2008 Сообщений: 27
	18.11.2009, 16:28 [ТС]	3
	если написать cstr(buf_str) то передастся константа равная содержимому buf_str до вызова функции. мне же надо передать переменную по ссылке. 0

WebLamer
	19.11.2009, 17:55	4
	на сколько я знаю если в поптотипе функции написано Код Public Sub Metod1 (str1 As String, str2 As String, str3 As String, int AS Integer, ByRef buf_data As String) то он должен брать переменную по ссылки разве что-то изменит это если написать так: Код Dim buf_data As String buf_data = '' или buf_data = CStr(buf_data) Set ob = CreateObject('Mylib.Myobj') ob.prop = 2 ob.Metod1 'AAA', 'BBB', 'CCC', 50, buf_data или я что-то не правильно понял?...

@davydenko 0 / 0 / 0 Регистрация: 03.08.2007 Сообщений: 38
	20.11.2009, 02:38	5
	posle Dim <var> postav' ReDim <var> v nuzhnom formate (='') Esli v ASP. poprobuy 0

Опции темы