Поиск:

Ответ в темуСоздание новой темы Создание опроса
> DataModule, как и где создать? 
:(
    Опции темы
Лена
Дата 22.11.2006, 18:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 879
Регистрация: 16.8.2006

Репутация: 11
Всего: 11
Вот пришлось в первые столкнуться с написанием DLL  smile 
Функция в DLL должна уметь принять параметр, проверить, если такое значение в удаленной базе данных и вернуть его, если такой параметр есть, в противном случае вернуть NULL.
Вот вариант DLL:
Код

#pragma argsused
#include "UFind.h" //h файл DLL
#include "UDataModule.h"  //Дата модуль
#include <stdio.h>

int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
       return 1;
}
//---------------------------------------------------------------------------

char buf[1024];

char * FindRecord(char *param)
{


 DataModule1->ADOQuery1->Active = false;
 DataModule1->ADOQuery1->SQL->Clear();
 sprintf(buf, "select code from key where code = \"%s\"", param);
 DataModule1->ADOQuery1->SQL->Text = String(buf);
 DataModule1->ADOQuery1->Active = true;
 char *res = NULL;
 if (DataModule1->ADOQuery1->RecordCount == 0)
  ; 
 else {
       res = new char[DataModule1->ADOQuery1->FieldByName("code")->AsString.Length() + 1];
       strcpy(res, DataModule1->ADOQuery1->FieldByName("code")->AsString.c_str());
      }
   DataModule1->ADOQuery1->Active = false;
     char *res2 = res;
    delete res;
    return res2;

}



В DataModule1 настроено соединение.

h файл DLL
Код

#ifndef  _UFIND_H
#define  _UFIND_H

#ifdef __DLL__
#define DLL_EI __declspec(dllexport)
#else
#define DLL_EI __declspec(dllimport)
#endif

extern "C" char * DLL_EI FindRecord(char *param);
#endif


Создала тестовое приложение. Добавила в него lib файл. Код тестового приложения:
Код

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "UFind.h" //DLL
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Edit1->Text = FindRecord(Edit1->Text.c_str());
}


При выполнении этого кода на первой же строке функции FindRecord выскакивает исключение (см.рис). Похоже, Дата Модуль, хоть он и находиться в DLL не создан. Как исправить положение? Где создавать и как засунуть это чертов Дата Модуль в DLL?  smile 


Это сообщение отредактировал(а) Лена - 22.11.2006, 18:43

Присоединённый файл ( Кол-во скачиваний: 13 )
Присоединённый файл  1.gif 12,39 Kb
PM MAIL   Вверх
Лена
Дата 22.11.2006, 19:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 879
Регистрация: 16.8.2006

Репутация: 11
Всего: 11
Если так:
Код

char * FindRecord(char *param)
{

  TDataModule1 * DataModule1 = new TDataModule1(Application);
  DataModule1->ADOQuery1->Active = false;
  DataModule1->ADOQuery1->SQL->Clear();
  sprintf(buf, "select code from key where code = \"%s\"", param);
  DataModule1->ADOQuery1->SQL->Text = String(buf);
  DataModule1->ADOQuery1->Active = true;
  char *res = NULL;
  if (DataModule1->ADOQuery1->RecordCount == 0)
    ; 
  else {
        res = new char[DataModule1->ADOQuery1->FieldByName("code")->AsString.Length() + 1];
        strcpy(res, DataModule1->ADOQuery1->FieldByName("code")->AsString.c_str());
       }
    DataModule1->ADOQuery1->Active = false;
    char *res2 = res;
    delete res;
    delete DataModule1;
    return res2;

}

то ошибка на рисунке:  smile 
и курсор поподает сюда:
__fastcall TDataModule1::TDataModule1(TComponent* Owner)
        : TDataModule(Owner)
{
}

Это сообщение отредактировал(а) Лена - 22.11.2006, 19:16

Присоединённый файл ( Кол-во скачиваний: 10 )
Присоединённый файл  1.gif 5,93 Kb
PM MAIL   Вверх
Лена
Дата 22.11.2006, 19:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 879
Регистрация: 16.8.2006

Репутация: 11
Всего: 11
Вот опытным путем пришла к такому решению. Вроде работает:
Код

char * FindRecord(char *param)
{
CoInitialize(NULL);
  TDataModule1 * DataModule1 = new TDataModule1(Application);
  DataModule1->ADOQuery1->Active = false;
  DataModule1->ADOQuery1->SQL->Clear();
  sprintf(buf, "select code from keys where code = '%s'", param);
  DataModule1->ADOQuery1->SQL->Text = String(buf);
  DataModule1->ADOQuery1->Active = true;
  char *res = NULL;
  char *res2 = NULL;
  if (DataModule1->ADOQuery1->RecordCount == 0)
    ; // ничего не делать
  else {
        res = new char[DataModule1->ADOQuery1->FieldByName("code")->AsString.Length() + 1];
        strcpy(res, DataModule1->ADOQuery1->FieldByName("code")->AsString.c_str());
        res2 = strcpy(buf,res);
        delete res;
       }
    DataModule1->ADOQuery1->Active = false;
    delete DataModule1;
    CoUninitialize(); //это надо?
    return res2;
  
}

Такой подход правильный? Это надежно, или лучше как-то подругому делать?



Это сообщение отредактировал(а) Лена - 22.11.2006, 20:04
PM MAIL   Вверх
Vyacheslav
Дата 23.11.2006, 11:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 2124
Регистрация: 25.3.2002
Где: Москва

Репутация: 47
Всего: 59
Не совсем smile
Лена подходите к вопросу проще и исходя из принципов ООП.
А из них следует, что Вы должны весь функционал засунуть в DataModule
и весь код экспортируемой  функции у Вас будет выглядеть следующим образом
Код


char* FindRecord(char* param)
{
     CoInitialize(NULL);
     std::auto_ptr<TDataModule1> module(new TDataModule(NULL);
     return module->FindRecord(param);
}



А весь функционал будет в методе FindRecord. Тогда вот такие длинные цепочки 
DataModule1->ADOQuery1-> будут не нужны
У ADOQuery1 в дизайне устновите Active в false
В дизайне задане запрос с параметром
select code from keys where code = :code
 
Тогда сам метод упростится

Добавлено @ 11:42 
Ну и к тому же я практически не использовал статическую линковку dll. Обычно применял динамическую загрузку и при этом для передачи можно было спокойно использовать AnsiString вместо char*.
Кстати AnsiString можно использовать и при статической линковке если пристыковывать к проектам библиотеку MEMMGR.LIB


--------------------
С уважением, Вячеслав Ермолаев
PM MAIL WWW ICQ   Вверх
Лена
Дата 23.11.2006, 12:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 879
Регистрация: 16.8.2006

Репутация: 11
Всего: 11
Понятно. Спасибо за разъяснения.  На будущее учту замечания.
Я вчера вечером отдала такой вариант кода. Он будет нормально работать или все-таки обязательно переделать и отнести новый вариант?
Код

char buf[1024];

char * FindRecord(char *param)
{
  try
  {
  CoInitialize(NULL);
  TDataModule1 * DataModule1 = new TDataModule1(Application);
  DataModule1->ADOQuery1->Active = false;
  DataModule1->ADOQuery1->SQL->Clear();
  sprintf(buf, "select code from keys where code = '%s'", param);
  DataModule1->ADOQuery1->SQL->Text = String(buf);
  DataModule1->ADOQuery1->Active = true;

  char *res = NULL;
  char *res2 = NULL;
  if (DataModule1->ADOQuery1->RecordCount == 0)
    ; // ничего не делать
  else {
        res = new char[DataModule1->ADOQuery1->FieldByName("code")->AsString.Length() + 1];
        strcpy(res, DataModule1->ADOQuery1->FieldByName("code")->AsString.c_str());
        res2 = strcpy(buf,res);
        delete res;
       }
    DataModule1->ADOQuery1->Active = false;
    delete DataModule1;
    CoUninitialize();
    return res2;
   }
   catch(...)
      {
       ShowMessage("Не удалось вызвать функцию DLL: FindRecord. Проверти правильность подключения к базе. Data Source=Access");
       return NULL;
      }
}
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0487 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.