Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка в DLL при работе с БД !!! Ошибка в DLL при работе с БД !!! 
:(
    Опции темы
oblom04
Дата 2.11.2005, 17:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Помогите устранить ошибку!
Сперва работу в dll организовал через Excel.
Ввиду того, что не у каждого установлен Excel и небольшой заторможенностью, переделал под БД.
Хочу удалить следующие переменные, оставщиеся после порехода на БД:

Код

var
 Excel                                                   : OleVariant;
 WorkBook                                                : OleVariant;
 WorkSheet1                                              : OleVariant;

Но выскакивает ошибка:
Access violation at address 0032300A in module 'svoistva.dll'. Read of address 27748B26.

Помогите устранить.

Вот фрагмент кода.

Library svoistva;

uses
  ShareMem,
  SysUtils,
  Windows,
  Dialogs,
  Messages,
  Classes,
  Graphics,
  Controls,
  StdCtrls,
  OleServer,
  ComObj,
  ComCtrls,
  Excel97,
  ActiveX,
  Db,
  DBTables,
  ExtCtrls;

type
   Mas01 = array [1..30] of real;

{$R *.RES}

Procedure svoistvadll (P,T: real; sos : Mas01;
                       var Mol_ves,Z,Roc,dRoc,M,Cp,Ppr,Tpr: real); Stdcall

var
// Excel                                                   : OleVariant;
 WorkBook                                                : OleVariant;
 WorkSheet1                                              : OleVariant;
 i                                                       : integer;
 sum,Pkrit,Tkrit,A1,A2,Pc,Tc,Rm,R,Zc                     : real;
 B1,B2,B3,M0,E0,E1,E2,E3                                 : real;
 ves,Pkr,Tkr,Zst                                         : Mas01;
 Table1                                                  : TTable;
 aa                                                      : string;
 code                                                    : integer;
Begin

 Table1 := TTable.Create(table1);
 with Table1 do begin
   DatabaseName := 'POISK';
   TableType := ttParadox;
   TableName := 'baza_svo';
   Active := True;
                end;

 for i:=1 to 30 do begin
                   ves[i]:=Table1.Fields[1].AsFloat;
                   Zst[i]:=Table1.Fields[3].AsFloat;
                   Tkr[i]:=Table1.Fields[6].AsFloat;
                   Pkr[i]:=Table1.Fields[7].AsFloat;
                   Table1.Next;
                   end;


Заранее благодарен за помощь.

Это сообщение отредактировал(а) Girder - 2.11.2005, 18:00
PM MAIL   Вверх
_hunter
Дата 2.11.2005, 18:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
толку с этого фрагмента?
+ где именно ( на какой строке/фунции ) появляется ошибка?


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
bas
Дата 2.11.2005, 19:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 446
Регистрация: 14.8.2002
Где: Молдова, Кишинев

Репутация: нет
Всего: 2
Ошибка в 'svoistva.dll' а не в приведенном коде.
PM MAIL   Вверх
oblom04
Дата 2.11.2005, 19:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Ошибка появляется при обращении к длл.
PM MAIL   Вверх
_hunter
Дата 2.11.2005, 19:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
при обращении это при LoadLibrary() что ли?


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Quadr0
Дата 2.11.2005, 20:27 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 02:30
  Вверх
oblom04
Дата 5.11.2005, 17:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Заработало!!!
Всем спасибо. Ошибка действительно была в коде. Надо было писать
Table1 := TTable.Create(nil).

Всем спасибо.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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