Вниз
Скачать: CL | DM;

Обойти OleVariant   Найти похожие ветки 

 
XProger ©   (2006-04-03 03:57) [0]

Есть функция в качестве одного из параметров, принимающая OleVariant. Существует ли возможность передачи параметра (строки) не используя вариантных типов?
Любые ссылки по теме, приветствуются :)

Заранее благодарен!


 
Сергей М. ©   (2006-04-03 08:30) [1]

Если функция требует именно OleVariant, значит и надо передавать OleVariant.


 
tesseract ©   (2006-04-03 10:41) [2]

А чем тебе OLEVariant не нравится?


 
XProger ©   (2006-04-03 17:47) [3]

tesseract, +50 кб - этим не нравится.

Сергей М., если принимает данные, значит эти данные имеют какую-то структуру, которую можно создать вручную. И передавать, избегая вызовы не нужных мне функций для работы с вариантным типом.

Т.е. вопрос можно поставить так: как устроен вариантный тип?


 
XProger ©   (2006-04-03 18:43) [4]

Разобрался

var
 v : packed record
   VType     : Word;
   Reserved1 : Word;
   Reserved2 : Word;
   Reserved3 : Word;
   varOleStr : PWideChar;
   Reserved4 : Word;
   Reserved5 : Word;
 end;
...
 ZeroMemory(@v, SizeOf(v));
 v.VType     := varOleStr;
 v.varOleStr := PWideChar(str);

Затем передаю v вместо OleVariant типа. В итоге получаю 0 (практически ;) прирост к exe файлу :)

Тема закрыта


 
Leonid Troyanovsky ©   (2006-04-03 18:55) [5]


> XProger ©   (03.04.06 18:43) [4]

>  v.varOleStr := PWideChar(str);


Строка-то WideString?

--
Regards, LVT.


 
XProger ©   (2006-04-04 04:24) [6]

Leonid Troyanovsky, угу :)


 
tesseract ©   (2006-04-04 10:21) [7]


> если принимает данные, значит эти данные имеют какую-то
> структуру,


Все данные имеют структуру. Просто с variant  меньше проблем.



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c
1-1149255880
тт
2006-06-02 17:44
2006.07.16
Как узнать какая буква под курсором в RichEdit?


1-1149233928
boalse
2006-06-02 11:38
2006.07.16
Передача параметров asm, Delphi.


2-1151509239
olevacho_
2006-06-28 19:40
2006.07.16
Защита привязкой к компу


15-1150439189
Kerk
2006-06-16 10:26
2006.07.16
Придумайте мне русский синоним слова online


1-1149146393
k_serg
2006-06-01 11:19
2006.07.16
ввод даннах в AutoCad




   Наверх