////// dll 파일 에서
uses
  //추가사항
  Dll_Component in 'Dll_Component.pas' {DataModule1: TDataModule};

function db_insert(a,b,c,d:String):Integer ;export stdcall;
begin
  Result := DataModule1.db_insert('aa','bb','cc','dd');  
end;

exports
  // 추가사항
  db_insert;




//////// DataModule1 에서
function TDataModule1.db_insert(a,b,c,d:String):Integer;
var
  Str     : String;
begin
  try
    Str := ' insert into ex1 values(''' + a + ''',' + '''' + b + ''',' + '''' + c + ''',' + '''' + d + ''')';
    ADOCmd.CommandText := Str;
    ADOCmd.Execute;

  except
    Result := 0;      // 오류시
    exit;
  end;

  Result := 1;        // 정상처리시
end;


항상 리턴값이 0 입니다.
원인을 알고 싶습니다.
고수님 부탁드려요..
dll에서 제가 생각한 방법이 틀린건사요..
Query문만 떼어너어 실행 하면 정상처리되는데 이것을 dll에 넣으면
리턴값이 0 입니다...
고수님 꼭 부탁드려요...