Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Invoke + Variant в result / 5 сообщений из 5, страница 1 из 1
28.11.2020, 12:11
    #40022954
Vizit0r
Vizit0r
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invoke + Variant в result
уперся, второй день не могу придумать обходных путей.

Invoke(Address,Args,SysCalConv,TypeInfo(Variant),False,False);//TypeInfo(TVarData)

вызываемый метод

function _GetVariantRes() : Variant;

Естественно, т.к. в Invoke этот Variant не инициализируется - в Result метода влетает 0 в EAX, при обращении к нему AV (что логично).

передать в Invoke указатель на инициализированную переменную нельзя.



Может кто-то нашел путь, подскажите.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2020, 12:48
    #40022966
alekcvp
alekcvp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invoke + Variant в result
Vizit0r,

Сделать какую-нибудь обёртку над вызываемым методом - не вариант?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2020, 13:19
    #40022972
Vizit0r
Vizit0r
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invoke + Variant в result
речь идет о вызове из скрипта, поэтому хотелось бы обойтись без без этого.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2020, 13:57
    #40022978
Kazantsev Alexey
Kazantsev Alexey
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invoke + Variant в result
Vizit0r,

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, System.TypInfo, System.Rtti;


function GetVariant() : Variant;
begin
 Result := DatetimeToStr(Now);
end;

var

 v : Variant;
 a : TValue;

begin

 a := TValue.From<Pointer>(@v);
 Invoke(@GetVariant, [a], TCallConv.ccReg, nil, False, False);
 writeLn(string(v));
 readln;

end.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2020, 14:32
    #40022983
Vizit0r
Vizit0r
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invoke + Variant в result
Kazantsev Alexey
Vizit0r,

Код: pascal
1.
2.
3.
program Project1;
...
end.



огромное спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Invoke + Variant в result / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 434ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2037818]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 161ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 22ms
get tp. blocked users:
 1ms
others: 224ms
total:  434ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]