На главной форме есть DBGrid. В DLL есть функция:
Код:
Function SetGridColumnWidths(Wgrid: tdbgrid):Boolean;
const
defborder = 5;
var
temp, n: integer;
lmax: array [0..30] of integer;
begin
with Wgrid do
begin
canvas.font := font;
for n := 0 to columns.count - 1 do
lmax[n] := canvas.textwidth(fields[n].fieldname) + defborder;
Wgrid.datasource.dataset.first;
while not Wgrid.datasource.dataset.eof do
//ТУТ ПОЛУЧАЕМ VIOLATION, но иногда проходит нормально
begin
for n := 0 to columns.count - 1 do
begin
temp := canvas.textwidth(trim(columns[n].field.displaytext)) + defborder;
if temp > lmax[n] then
lmax[n] := temp;
end; {for}
Wgrid.datasource.dataset.next;
end; { while }
Wgrid.datasource.dataset.first;
for n := 0 to columns.count - 1 do
if lmax[n] > 0 then
columns[n].width := lmax[n];
end; { with }
end; {setgridcolumnwidths }
На главной форме, обработчик кнопки вот такой:
Код:
procedure TZastrForm.BitBtn1Click(Sender: TObject);
type
Tsetgridcolumnwidths = Function(Wgrid: TDBGrid):boolean;
var
DLLInstance:THandle;
setgridcolumnwidths:Tsetgridcolumnwidths;
begin
DLLInstance:= LoadLibrary('Gridw.dll');
@setgridcolumnwidths := GetProcAddress(DLLInstance,'setgridcolumnwidths');
setgridcolumnwidths(DbGrid1);
FreeLibrary(DLLInstance);
end;
Иногда все проходит, иногда получаем Access Violation. На строке FreeLibrary(DLLInstance) тож иногда возникает violation. Вообщем вопрос, как мне обработать DBGrid при помощи функции из динамически подключаемого DLL?