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;

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