Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c