[FireNativeDLL] Создание полноценных DLL на Visual Basic

[keks-n]

Func_####, где #### - ординал.
Если такое имя уже есть - Func__####, если и оно есть, то Func___#### и т. д.

А вообще, надо в любом случае дополнить конструкцию для изменения имени в TLB.

По поводу неактуальности - в WinCE 4 используется повсеместно.

[mikirada]

у меня три вопроса


1 так и не понятно как создавать и вызывать процедуры
у которых выходной параметр String (или другой пользовательский)
у меня на выходе только первый символ строки

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

в dll
Public Function AAA() As String
Dim txt As String
    txt = "Hello"
    AAA= txt    'StrConv(txt, vbUnicode) ???
end function

при вызове
Private Declare Function AAA Lib "c:\EX1.dll" () As String



если можно пример


2 где можно будет скачать вторую версию
если уже есть

3 можно ли через данную программу создать dll как расширенные процедуры в частности для SQl Server-а

Спасибо

[BV]

StrConv(txt, vbUnicode) ???

StrConv(txt, vbFromUnicode)

[Хакер]

Блин, я видимо забыл нажать кнопку "Отправить", когда написал ответ.

Ещё раз:
1) Да, как сказал BV. В DLL, а лучше - после вызова (в вызывающей стороне).

2) Ещё нет. Скачать можно будет там же, где и первую.
3) А почему бы и нет? Не пробовал, не скажу.

ЗЫ. Вопросы по FNDLL 1.0 лучше задавать здесьв отдельных топиках.

[arthur2]

ссылки на http://fire-lines.ru/ больше не работают?

[Хакер]

Подошёл срок оплаты, а денег на WM-счету нет. Домен можно будет продлить ещё в течение 20 дней.

[SLIM]

Нет возможности скачать проект.
Есть возможность выложить дополнительно или переслать на почту\в личку?

[Хакер]

Пока некогда.

[SLIM]

Это скорее больше означает что никогда чем позже...


Есть у кого-нибудь уже скаченный?
Или где находится упомянутый проект от GSerg-а и Темыча?

[VBTerminator]

SLIM, выложил инсталлятор FireNativeDLL.

Обновлено: предыдущая ссылка на Народе стухла, поэтому выкладываю файл в виде вложения.

[SLIM]

Огромное спасибо!!!

[sergio]

Здравствуйте.
Есть небольшой вопрос по использованию FireNativeDLL. В тестовой библиотеке ( мною созданной ) имеется две процедуры. одна из них показывает msgbox, вторая должна выводить форму. С msgbox все ок А с формой - нет. Подключая dll через Declare, при вызове процедуры ( её код: frmLib.Show ) форма загружается. А при подключении через LoadLibrary - слетает VB. Буду признателен если подскажете как решить эту проблему.
Заранее спасибо.

[Хакер]

Ну надо же.

Потому что любая процедура/функция, которая вызывается через CallWindowProc, должна обязана иметь 4 параметра и простой тип возврата.

По поводу вызова функции по адресу через CallWindowProc — это плохой способ, а вот хороший.

[SLIM]

Хакер, скажи, как заюзать библу FNDLL например в сях или делфях? У меня вылетает с ошибкой.

[sergio]

Использовал Ваш модуль вызова функций по указателю, но проблема осталась. При вызове процедуры показа окна из библиотеки - все так же падает VB.
А на счет

процедура/функция, которая вызывается через CallWindowProc, обязана иметь 4 параметра

я читал про это, но в первом моем вложении она вызывает ( наобум ) процедуру Test() без параметров. И вроде все работает. Ну да ладно, мне больше понравился Ваш модуль. Вот тока проблема с окнами. Подскажите как решить.

Заранее спасибо.

[Хакер]

• Найден недостаток (непродумка) в FNDLL.
  Собственно, для решения твоей проблемы нужно закомментировать 3 строки кода в исходнике FNDLL:
  

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

         ' .FileImage(CodeWriter) = &H52        ' push  edx
       ' .FileImage(CodeWriter) = &HFF        ' call [edx]
       ' .FileImage(CodeWriter) = &H11

  
  (это вызов IUnknown::Release)
  и исправить вот это:
  

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

          .FileImage(CodeWriter) = &H75
        .FileImage(CodeWriter) = &H2D

  
  на это:
  

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

          .FileImage(CodeWriter) = &H75
        .FileImage(CodeWriter) = &H2A

  
  (это коррекция jmp-инструкции с учётом убранных инструкций).
• Найден баг в модуле для вызова функций по указателю. Удивляюсь, почему никто раньше об этом не сказал: никто не использовал мой модуль совместно с обычным Declare (для вызова API)?

[arthur2]

А снова выложить FNDLL ты не хочешь? А то сколько уже времени ссылка битая

[Хакер]

Хочу сделать всецело новый FNDLL

Дело в том, что багфикс указанным методом порождает новую проблему: утечку памяти. Этот самый Release, который мы закоментировали, нужно делать по DLL_PROCESS_DETACH. То и есть и новую ячейку в секцию данных в т.н. в рамках проекта «кусочек данных» нужно добавлять, чтобы хранить ссылку на объект.

[SLIM]

а на мой вопрос?

[Хакер]

Вопроса нет.

[SLIM]

1. Можно ли использовать библиотеку как обычную Native кроме как в VB?
2. Если да, то что особого нужно сделать? (просто так через LoadLibrary и GetProcAddress не получается, вылетает)

[Хакер]

1. Можно ли использовать библиотеку как обычную Native кроме как в VB?

Из любого языка. И даже не из языка (из rundll.exe можно).

2. Если да, то что особого нужно сделать? (просто так через LoadLibrary и GetProcAddress не получается, вылетает)

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

[SLIM]

Не знаю что я не так делаю. Вот скрины

[Хакер]

Мелкоскопа для прочтения микроскопического текста на скриншотах крайне низкого разрешения, последующего анализа исходного кода библиотеки и хост-программы а так же текстового описания ошибки, и установления причины ошибки и методов её устранения в наличии не имею.

[SLIM]

Так подойдет?

UPD::
К слову. Через Declare в VB работает, через LoadLibrary, GetProcAddress, CallWindowProc в VB работает.

[Хакер]

По-поводу первого скриншота: подтвердить, что при LastError=998 истинно MyLib = 0. Иначе LastError ничего не значит.

К слову. Через Declare в VB работает, через LoadLibrary, GetProcAddress, CallWindowProc в VB работает.

И не работает не в VB теми же методами?

[SLIM]

По-поводу первого скриншота: подтвердить, что при LastError=998 истинно MyLib = 0. Иначе LastError ничего не значит.

И не работает не в VB теми же методами?

Ну если бы загружалась dll, я бы попробовал вызвать через CallWindowProc, но до вызова пока не доходит.
Попробовать в других языках пока не успел. Могу в Builder попробовать.

[Хакер]

По первому: сведения о ОС, АВ в студию. Код для проверки — в студию. Проверить на Win XP.
По второму: проверить то, что работает через Declare под VB в скомпилированном виде.

[SLIM]

1. ОС Windows 7
код:

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

#include "stdafx.h"
#include "windows.h"


int main(int argc, char* argv[])
{
   HMODULE MyLib;
   FARPROC pFunction;
   MyLib = LoadLibrary(L"c:\\StandardDLL1.dll");
   DWORD d = GetLastError();
   if(MyLib)
   {
      pFunction = GetProcAddress(MyLib, "ff");
      pFunction();

      FreeLibrary(MyLib);
   }
}

На Win XP работает!!! (ранее просто не проверял)

По второму: проверить то, что работает через Declare под VB в скомпилированном виде.

Во вложении 2 exe - с LoadLibrary и с Declare, скомпилированные в VB. Оба работают.

UPD::
Сама библа во втором вложении

[Хакер]

Значит проблема в том, что только под Windows 7 при использовании С(++) в среде VS20УГ LoadLibrary не хочешь загружать библиотеку?