DLL

[Debugger]

Есть DLL-ка, написанная на C++. Функция в ней объявлена так:

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

BOOL WINAPI MyFunc(
    IN LPCSTR lpszUrl,
    OUT LPSTR lpszBuffer,
    IN OUT LPDWORD lpdwBufferLength,
    IN DWORD dwFlags )

Библиотечку успешно скомпилировал, положил в system32, запустив regsvr32:

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

C:\WINDOWS\system32\DLLtest.dll была загружена, но найти точку входа для DllRegisterServer не удалось.
Зарегистрировать этот файл невозможно.

Гм... ладно, идем дальше. В Бейсике такой код:

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

Private Declare Function MyFunc Lib "DLLtest" (lpszUrl As String, lpszBuffer As String, lpdwBufferLength As Long, dwFlags As Long) As Boolean

Я не совсем понял, что значит LPDWORD (да и с другими параметрами наверняка напутал), и функция не работает.
Как правильно объявить и вызвать эту функцию в VB6?
P.S. Если надо, могу привести полный код C++.

[iGrok]

Эээ.. А regsvr32 тут вообще при чём? =)
Это ж не COM-библиотека. =)

А вот с объявлениями всего остального.. Хм.. А что говорит VB при вызове?

[Александр Дмитриев]

Попробуй так

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

Private Declare Function MyFunc Lib "DLLtest" (ByVal lpszUrl As String, ByVal lpszBuffer As String, lpdwBufferLength As Long, ByVal dwFlags As Long) As Long

И строки ей нужно передавать фиксированные: ... As String * ...

[Debugger]

Ошибка такая:

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

Can't find DLL entry point MyFunc in dlltest

Потому я и решил её regsvr'нуть.

Скорее всего, я что-то неправильно написал в библиотечке (в C++ я не силён):
DLLtest.cpp

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

// DLLtest.cpp : Defines the entry point for the DLL application.
//

#include "stdafx.h"


#ifdef _MANAGED
#pragma managed(push, off)
#endif

BOOL APIENTRY DllMain( HMODULE hModule,
                       DWORD  ul_reason_for_call,
                       LPVOID lpReserved
                )
{
    return TRUE;
}

#ifdef _MANAGED
#pragma managed(pop)
#endif

BOOL WINAPI MyFunc(
    IN LPCSTR lpszUrl,
    OUT LPSTR lpszBuffer,
    IN OUT LPDWORD lpdwBufferLength,
    IN DWORD dwFlags )
{
   return true; //)
};

Остальные файлы по умолчанию.

[Mikle]

Debugger
Создай def файл с именами экспортируемых ф-ций, компилятор C++ изменяет имена, без этого файла. Или посмотри каким-нибудь ExeScope получившееся имя и задействуй Alias.

[Debugger]

Спасибо всем ответившим!

[Хакер]

И строки ей нужно передавать фиксированные: ... As String * ...

Глупости.

Can't find DLL entry point MyFunc in dlltest

Потому я и решил её regsvr'нуть.

Глупость, большая. Регистрация нужна только ActiveX- (даже не просто COM- ) библиотекам,чтобы уметь по CLSID-у/ProgId-у класса найти библиотеку с его реализацией. Не более того.

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

#ifdef _MANAGED
#pragma managed(push, off)
#endif

Эти куски надо сразу вырезать.

Типу BOOL не соответствует VB-шный Boolean.

[Debugger]

Не хочется создавать новую тему (да и раздела C++ на конференции нет).
Написал код для вывода форматированной строки в файл:

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

int __cdecl printf(const char * format, ...)
{
    char Buff[1024];
    Int retV;
    DWORD cbWritten;
    va_list argptr;
   
    va_start( argptr, format);
    retV = wvsprintf( LPWSTR(Buff), LPWSTR(format), argptr );
    va_end( argptr );
   
    WriteFile( OP, Buff, retV, &cbWritten, 0 );
    return retValue;
}

Я вызываю его так: printf("A %s C %s","B","D");. Вроде бы, он должен выводить в файлик "A B C D". Но не выводит. В чем же проблема?

[Хакер]

Юникодно-ансишное месево это, а не код. Правь.

[Debugger]

Исправил:

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

int __cdecl printf(const char * frmt, ...)
{
    char szBuff[1024];
    int retV;
    DWORD cbWritten;
    va_list argptr;

    va_start( argptr, frmt);
    retV = vsprintf( szBuff, frmt, argptr );
    va_end( argptr );

    WriteFile( OP, szBuff, retV, &cbWritten, 0 );

    return retV;
}

Работает! Спасибо.