Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Ошибка в DLL при работе с БД !!!

Автор: oblom04 2.11.2005, 17:39

Помогите устранить ошибку!
Сперва работу в 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;

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

Автор: _hunter 2.11.2005, 18:13

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

Автор: bas 2.11.2005, 19:13

Ошибка в 'svoistva.dll' а не в приведенном коде.

Автор: oblom04 2.11.2005, 19:13

Ошибка появляется при обращении к длл.

Автор: _hunter 2.11.2005, 19:45

при обращении это при LoadLibrary() что ли?

Автор: Quadr0 2.11.2005, 20:27

...

Автор: oblom04 5.11.2005, 17:31

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

Всем спасибо.