Пытаюсь подключить dll на Qt в delphi....

[lolbla2]

Если не использую никакие Qt классы, то работает грузит функции находит, т.е. всё норм, но, как только использую чонить Qtшное (например QObject), он вообще не может загрузить dll. Кто подскажет в чём проблема?

.h файл моей длл на qt

Код

C++ (Qt)
#ifndef SNAKELION_H
#define SNAKELION_H
 
#include "SnakeLion_global.h"
#include <QLibrary>
 
typedef void (__stdcall *prolog)(unsigned char,unsigned char *);
 
prolog SnakeBrain;
QLibrary *lib;
 
const unsigned char ObservingGameFieldWidth = 3*2+1;
const unsigned char ObservingGameFieldHeight = 3*2+1;
 
// коды значений элементов игрового поля
const unsigned char gfiEmpty = 0;
const unsigned char gfiOwnHead = 1;
const unsigned char gfiEnemyHead = 2;
const unsigned char gfiOwnBody = 3;
const unsigned char gfiEnemyBody = 4;
const unsigned char gfiOwnTail = 5;
const unsigned char gfiEnemyTail = 6;
const unsigned char gfiBlocked = 7;
 
extern "C" SNAKELIONSHARED_EXPORT  unsigned char GetDecision(unsigned char *ObservingGameField);
 
 SNAKELIONSHARED_EXPORT  unsigned char GetVersion1();
 
extern "C" SNAKELIONSHARED_EXPORT  unsigned char ShowInfoWindow();
#endif // SNAKELION_H
 
 

.cpp файл

Код

C++ (Qt)
#include "snakelion.h"
#include <stdlib.h>
#include <QDebug>
#include <iostream>
#include <Windows.h>
//#include <time.h>
 
using namespace std;
 
 
 
 
 
extern "C" SNAKELIONSHARED_EXPORT  unsigned char GetDecision (unsigned char *ObservingGameField)
{
//    qsrand(NULL);
    cout << "getDesicion!";
    srand(NULL);
    unsigned char ogf[ObservingGameFieldHeight][ObservingGameFieldWidth];
    for (int i =0; i< ObservingGameFieldHeight; i++)
        for(int j=0; ObservingGameFieldWidth; j++)
            ogf[i][j] = ObservingGameField[j * ObservingGameFieldHeight + i];
 
      // и теперь простенький алгоритм принятия решения
 
      // если есть рядом хвост, ешь его
    if (ogf[4][3] == gfiEnemyTail || ogf[5][3] == gfiEnemyTail) return 0;
      else
        if (ogf[3][4] == gfiEnemyTail || ogf[3][5] == gfiEnemyTail) return 1;
      else
      if (ogf[2][3] == gfiEnemyTail || ogf[1][3] == gfiEnemyTail) return 2;
      else
        if (ogf[3][2] == gfiEnemyTail || ogf[3][1] == gfiEnemyTail) return 3;
      else
      // если хвост наискосок, то выбери ту сторону, где видно тело
      if (ogf[2][2] == gfiEnemyTail && ogf[1][2] == gfiEnemyBody) return 2;
      else
      if (ogf[2][2] == gfiEnemyTail && ogf[2][1] == gfiEnemyBody) return 3;
      else
      if (ogf[2][4] == gfiEnemyTail && ogf[1][4] == gfiEnemyBody) return 2;
      else
      if (ogf[2][4] == gfiEnemyTail && ogf[2][5] == gfiEnemyBody) return 1;
      else
      if (ogf[4][2] == gfiEnemyTail && ogf[5][2] == gfiEnemyBody) return 0;
      else
      if (ogf[4][2] == gfiEnemyTail && ogf[4][1] == gfiEnemyBody) return 3;
      else
      if (ogf[4][4] == gfiEnemyTail && ogf[4][5] == gfiEnemyBody) return 1;
      else
      if (ogf[4][4] == gfiEnemyTail && ogf[5][4] == gfiEnemyBody) return 0;
      else
      // с вероятностью 1/8 меняй направление
      if (rand()%8 == 0)
        return rand()%4;
      // иначе иди, куда шел
      if (ogf[3][4] == gfiOwnBody || ogf[3][4] == gfiOwnTail) return 3;
      else
      if (ogf[3][2] == gfiOwnBody || ogf[3][2] == gfiOwnTail) return 1;
      else
      if (ogf[2][3] == gfiOwnBody || ogf[2][3] == gfiOwnTail) return 0;
      else
      if (ogf[4][3] == gfiOwnBody || ogf[4][3] == gfiOwnTail) return 2;
      // иначе получается, что от меня осталась только голова - значит идем случайно
      else
        return rand()%4;
}
 
 SNAKELIONSHARED_EXPORT  unsigned char GetVersion1()
{
 //   lib = new QLibrary("SnakeBrain.dll");
//    if(!lib->load())
//    {
//        return 0;
//    }
//    SnakeBrain = static_cast<prolog>(lib->resolve("start"));
//    if(!SnakeBrain)
//    {
//        return 1;
//    }
//    unsigned char res;
//    SnakeBrain(3,&res);
//    return res;
    QObject obj;
    HINSTANCE  h = LoadLibraryA("SnakeBrain.dll");
    if(!h)
        return 0;
    SnakeBrain = (prolog)GetProcAddress(h,"start");
    if(!SnakeBrain)
        return 1;
    unsigned char res;
    SnakeBrain(3,&res);
    return res;
}
 
extern "C" SNAKELIONSHARED_EXPORT  unsigned char ShowInfoWindow()
{
    return 1;
}
 
 

На extern "C" можно не обращать внимание, т.к. я подключаю .def файл с экспортируемыми функциями

Приложение на Delphi точно рабочее, т.к. оно использовалось несколько лет и подключало корректно разные дллки

[Serr500]

"Не может загрузить" это как? Что пишет?

Предположу, что не видит Qt'шные либы, т.е. QtCode4.dll и т.п.

[lolbla2]

"Не может загрузить" это как? Что пишет?

Предположу, что не видит Qt'шные либы, т.е. QtCode4.dll и т.п.

в Delphi event log показывает:

Module Load: SnakeLion.dll. No Debug Info. Base Address: $63BE0000. Process Snake.exe (7912)
Thread Start: Thread ID: 6200. Process Snake.exe (7912)
Module Load: QtCored4.dll. No Debug Info. Base Address: $06590000. Process Snake.exe (7912)
Module Load: mingwm10.dll. No Debug Info. Base Address: $01D20000. Process Snake.exe (7912)
Module Load: libgcc_s_dw2-1.dll. No Debug Info. Base Address: $6E940000. Process Snake.exe (7912)
Module Unload: SnakeLion.dll. Process Snake.exe (7912)
Module Unload: QtCored4.dll. Process Snake.exe (7912)
Module Unload: libgcc_s_dw2-1.dll. Process Snake.exe (7912)
Module Unload: mingwm10.dll. Process Snake.exe (7912)
Thread Start: Thread ID: 9072. Process Snake.exe (7912)

он всё загружает, но как дело доходит до использования Qt лаб что-то "ужасное" там случается, он начинает всё выгружать.

LoadLibrary в Delphi возвращает NULL

Нужные qt либы лежат рядом с .ехешником Delphi

[lolbla2]

Всё... решил проблему, у меня QtCore4d.dll была странная какая-то, 40 мб весила... зашёл в QtSdk\bin и взял оттуда нормальную QtCore4d.dll которая 4 мб весит и заработало

[navrocky]

QtCore4d.dll 40мб - с отладочной инфой. 4мб - видимо релизная, но она должна быть без d.

[lolbla2]

QtCore4d.dll 40мб - с отладочной инфой. 4мб - видимо релизная, но она должна быть без d.

нет. 4 мб как раз была отладочная с подписью d она из папки Qtsdk\bin, а ещё там же есть релизная верия 2,2 мб, а вот та которая 40 мб я чот не помню откуда я её вообще взял, видимо старая версия Qt.

[Alex_C]

Как раз все наоборот. Отладочная размером в разы меньше.  navrocky  все верно написал.

[Sancho_s_rancho]

Как раз все наоборот. Отладочная размером в разы меньше.  navrocky  все верно написал.

Да, с логикой тут круто. 

[gil9red]

Как раз все наоборот. Отладочная размером в разы меньше.  navrocky  все верно написал.

Отладочная версия dll не может меньше весить релизной
она от того и отладочная что в ней содержится дополнительная информация, нужная для отладок, как бэ