Текущий архив: 2002.10.21;
Скачать: CL | DM;

Вниз

DLL и компоненты доступа к БД   Найти похожие ветки 

← →
Dimedrol ©   (2002-10-09 18:33) [0]

Коллеги, у меня создана ДЛЛ с компонентами доступа к БД.
В процедуре как только идет обращение к любому из них,
даже самое "невинное обращение", валится AccessViolation...
Что я не так сделал ?


library ibinsert;
uses
SysUtils,
Classes,
Windows,
instempform in "instempform.pas" {InsF};
{$R *.res}
function IB_InsertFile(Paper,filename:PChar):boolean;
begin
Result:=false;
try
InsF.IB_InsertFile(string(Paper),string(filename));
Result:=true;
except
Result:=false;
end;
end;

exports IB_InsertFile;
begin end.

А вот сама форма с компонентами, причем я ее пробовал и создавать,
но похоже при моем СТАТИЧЕСКОМ спозобе линковки ДЛЛ,
она сама создается...

procedure TInsF.IB_InsertFile(Paper,filename:string);
var j:byte;
f,sBuf:string;
begin
try try
MessageBox(0,"Passed 1", "IB Info", MB_OK+MB_SYSTEMMODAL);
UniFound[1]:=false;
MessageBox(0,"Passed 11", "IB Info", MB_OK+MB_SYSTEMMODAL);
UniFound[2]:=false;
MessageBox(0,"Passed 111", "IB Info", MB_OK+MB_SYSTEMMODAL);

До сих пор все ОК, но вот на следующей строчке -
AccessViolation

MessageBox(0,PChar(StP.StoredProcName), "IB Info", MB_OK+MB_SYSTEMMODAL);

Здесь мы уже вывалились...


if StP<>nil then MessageBox(0,"STP - not nil !", "IB Info", MB_OK+MB_SYSTEMMODAL);

QTemplate:="ееееееее";

//Some default parameters
MessageBox(0,"Passed 2", "IB Info", MB_OK+MB_SYSTEMMODAL);

for j:=0 to StP.ParamCount-1 do StP.Params.Items[j].Clear;




Помогите, кто может ;-)...

---

← →
Best Before 2024   (2002-10-09 18:51) [1]

По-моему, создавать, все-таки, надо!
function IB_InsertFile(Paper,filename:PChar):boolean;
var InsF : TInsF;
begin
Result:=false;
InsF := TInsF.Create(nil);
try
try
InsF.IB_InsertFile(string(Paper),string(filename));
Result:=true;
except
Result:=false;
end;
finally
InsF.Free;
end;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2002.10.21;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c