Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];

Вниз

ActiveX и передача значений функции   Найти похожие ветки 

 
qwerty2   (2003-09-09 18:01) [0]

В ActiveX библиотеке объявлена такая функция: function MyFunction(const PARAM1, Param2, Param3: WideString;
num: Shortint): WideString; stdcall;

и в реализации этой функции:
...
result:="AAAA";
end;

при вызове этой функции
s:Widestring;
begin
MyObj:=TMyObj.create(nil);
s:=MyObj.MyFUnction("sc","sds","wdwd",1);
в переменной s содержится "". подскажите пожалуйста что я не так делаю.


 
VMcL   (2003-09-09 18:14) [1]

Ошибка в 17-й строке.


 
qwerty2   (2003-09-09 18:28) [2]

Даже если оставить всего одну строку function MyFunction(const PARAM1, Param2, Param3: WideString;
num: Shortint): WideString; stdcall; begin result:="AAAA";
end;

при вызове этэ ф-я все равно возвращает "". если же заменить на

function MyFunction(const PARAM1, Param2, Param3: WideString;
num: Shortint): Intteger; stdcall; begin result:=100;
end;

то при вызове эта функция будет возвращать 0.


 
VMcL   (2003-09-09 18:40) [3]

MyObj:=TMyObj.create(nil); ?


 
qwerty2   (2003-09-09 18:52) [4]

VMcL © (09.09.03 18:40) [3]

Да действительно имено здесь и была проблема! при импорте tlb был как то так сгенерирован что даже не присутствовало
function CoMyobj.Create: IMyobj;
begin
Result := CreateComObject(CLASS_MyObj) as IMyObj;
end;

вместо этого сгенерировалось что то вроде

TMyObj.Create(Owner:TComponent);
begin
inherited create;
...
end;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.011 c
6-71817
aa5E1
2003-07-24 11:20
2003.09.22
Имя удаленного компьютера


3-71465
Debugger
2003-08-29 08:46
2003.09.22
Как округлить значение в DBGrid?


3-71474
stud
2003-09-01 16:56
2003.09.22
в базе данных странные вещи!


6-71811
Sasha NT
2003-07-21 01:43
2003.09.22
Програмный разрыв соединения?


1-71682
drdred
2003-09-09 23:37
2003.09.22
Как скопировать файл?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский