VarPtrArray

[A.A.Z.]

Народ, что это за зверь? Или очередная "неточность" афтаров?
http://www.kinnet.ru/cterra/465/20942.html

Например, в Visual Basic есть такие НДФ, как VarPrt, VarPrtArray, VarPrtStringArray, ObjPrt и StrPrt.

1) Не Prt, а Ptr
2) "2" и "3" не видел Может, вы поясните мне?

[GSerg]

Бессовестный человек... Говорю же, 4 утра...

Вижу здесь отголоски не скажу чего
Функций таких, конечно, нет. Но я их, помнится, вводил

Код: Выделить всё

function StrArrPtr(arr() as string, optional byval ignoreme as long=0) as long
  getmem4 varptr(ignoreme)-4, varptr(strarrptr)
end function

См. статью, в общем

[A.A.Z.]

Я твою статью 7 раз читал Я думал, что они про что-то встроенное писали

[codemaster]

Народ, что это за зверь? Или очередная "неточность" афтаров?

Даже не смешно

для начала cм.
http://support.microsoft.com/default.as ... -us;199824

+- сего действа поробно изложены в Technet

[GSerg]

Ха
Получается, я делаю то же самое, но без tlb

[tyomitch]

Ха
Получается, я делаю то же самое, но без tlb

Но с дополнительными накладными расходами на вызов функции
Имхо оба метода имеют свои преимущества и недостатки.

[GSerg]

Не, всё-таки DllCallFunction вызывается один раз...
А потом идёт call eax...

[tyomitch]

Да не, не может быть... Вот щас точно попробую и доложу о результатах.
(у тебя-то вызывается собственная функция, а не только отдекларенная? про накладные расходы на вызов собственных функций помнишь? хинт: qsort)

[GSerg]

Эээээ, батенька!
А вот это здесь не прокатит
Накладные расходы на вызов собственной недеклэренной функции не считаются, ибо все вызове в любой VB-программе обременены ими

[tyomitch]

Дело в том, что при объявлении VarPtrStrAry в TLB этих расходов удаётся избежать. "Если нет разницы, зачем платить больше?" (с)

[tyomitch]

Не, всё-таки DllCallFunction вызывается один раз...
А потом идёт call eax...

действительно, jmp eax (as of VB6SP3) - для вызова "принял Long, вернул Long".
Сейчас для смеха попробую со строками...

[tyomitch]

Попробовал. По вызову __vbaStrToAnsi и __vbaFreeStr на каждый параметр, как и ожидалось.
Со структурами пробовать уже не буду - ломает.

Но всё равно, при объявлении через TLB всего этого нет! Ни при первом запуске, ни при каком!

[GSerg]

Строки, само собой, ага.
А если строки объявить как long, а передавать как strptr?
А при передаче в свои функции конверта нет.

[tyomitch]

А про http://bbs.vbstreets.ru/viewtopic.php?p=80790#80790 что скажешь? В свою функцию-то, поди, не по jmp eax заход?

Тоже, что ли, скомпилировать и посмотреть...

[GSerg]

Да нафига?
Вопрос скорее философский

Понимаешь, создавать tlb, чтобы не вызывать свои функции - это моветон
Ты же не будешь брать пару метров исходника на VB и писать под него tlb, чтобы ускорить вызов каждой функции?
А вдруг будет???...

А заход в свою функцию, которая в модуле - це легко и просто, push и call [XXXXXXXX]. Иначе не работали бы всякие перезаписи типа SetFunction

[tyomitch]

Ты, короче, не понял, в чём я тебя пытаюсь убедить... Завтра попытаюсь сформулировать это более явно.

[A.A.Z.]

За 2 дня успели целую страницу напостить Но ответ codemaster'а был самым исчерпывающим Спасибо!