Invalid Pointer Operation при вызове DLL

← →
awp © (2004-09-30 12:23) [0]

Проблемка в следующем:

DLL:
library dbf_loader;
uses SysUtils, Classes, DB, Dbf;

function Load_Dbf(FN: String): String; EXPORT;
var
Tb: TDbf;
i: Byte;
S: AnsiString;
begin
try
S:= "";
Tb:= TDbf.Create(nil);
with Tb do
begin
FileName:= FN;
Active:= True;
First;
while not Eof do
begin
for i:= 0 to Fields.Count - 1 do
S:= S + "<th><input name="cell" value="" + Fields[i].AsString + "">"
+ "</th>";
Next;
end;
Active:= False;
Free;
end;
Result:= S;
except
on E: Exception do Result:= E.Message;
end;
end;

EXPORTS
Load_Dbf Name "Load";
end.

Вызываю:
function LodDb(FN: String):String; external "dbf_loader.dll" name "Load";

Использую:
if OpenDialog1.Execute then
Memo1.Text:= LodDb(OpenDialog1.FileName);

Причем когда просто в проге испальзую код из DLL то она работает.

Подскажите плз.

← →
Мастер © (2004-09-30 12:28) [1]

Почитай у меня в инфе ответ. П.3

Invalid Pointer Operation при вызове DLL Найти похожие ветки