Error al usar una dll que he creado

[DISIMULA]

Bueno para empezar indicar que es la primera dll que creo para uso propio y por ser la primera pues empiezan los problemas.

indico la funcion que me da problemas de la dll es la siguiente.

Código Delphi [-]
Procedure ConectarAdo(ADOConnection1: TADOConnection; Nombre: String); stdcall; export;
Begin
  ADOConnection1.Connected:=False;
  ADOConnection1.ConnectionString:=
  'Provider=Microsoft.Jet.OLEDB.4.0;'+
  'Data Source='+ExtractFilePath(Application.ExeName)+Nombre+
  ';Persist Security Info=False';
  Try ADOConnection1.Connected:=True
  Except
  Begin
     Showmessage('No ha sido posible realizar la conexion');
  end;
  end;
end;

exports ConectarAdo

Ahora el codigo de llamada que uso en el ejemplo uso un form con un TADOConecction y la siguiente llamada:

Código Delphi [-]
var
  Form1: TForm1;
  Procedure ConectarAdo(ADOConnection1: TADOConnection; Nombre:    String); external 'info.dll';

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ConectarAdo(AdoC,'Ejemplo.mdb');
end;

Pues cuando pruebo me da una excepcion EAccessViolation in module info.dll at 001484FA

Alguien puede ayudarme seguro que es una tonteria pero es que no estoy muy puesto,

Gracias por todo.

[[Caral]]

Hola DISIMULA
No se si me equivoco, pero veo algunas diferencias de sintaxis, podrian ser el problema, no se, pruebalo asi:

Código Delphi [-]
Procedure ConectarAdo(ADOConnection1: TADOConnection; Nombre: String); stdcall; export;
Begin
  ADOConnection1.Connected:=False;
  ADOConnection1.ConnectionString:=
  'Provider=Microsoft.Jet.OLEDB.4.0;'+
  'Data Source='+ExtractFilePath(Application.ExeName)+Nombre+';'+
  'Persist Security Info=False';
  Try ADOConnection1.Connected:=True
  Except
  Begin
     Showmessage('No ha sido posible realizar la conexion');
  end;
  end;
end;

exports ConectarAdo

y este otro:

Código Delphi [-]
var
  Form1: TForm1;
  Procedure ConectarAdo(ADOConnection1: TADOConnection; Nombre:    String); external 'info.dll';

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ConectarAdo(ADOConnection1,'Ejemplo.mdb');
end;

y si tiene clave la base de datos, por ejemplo: Clave admin

Código Delphi [-]
Procedure ConectarAdo(ADOConnection1: TADOConnection; Nombre: String); stdcall; export;
Begin
  ADOConnection1.Connected:=False;
  ADOConnection1.ConnectionString:=
  'Provider=Microsoft.Jet.OLEDB.4.0;'+
  'Data Source='+ExtractFilePath(Application.ExeName)+Nombre+';'+
  'Persist Security Info=False;'+
  'Jet OLEDB: Database Password=admin';
  Try ADOConnection1.Connected:=True
  Except
  Begin
     Showmessage('No ha sido posible realizar la conexion');
  end;
  end;
end;

exports ConectarAdo

Tal vez ayude en algo, aunque prefiero un archivo ini al que pueda cambiar la direccion de la base de datos, con un dll, queda solo en un sitio, ademas de tener que distribuir el dll, con el programa, bueno, es una opinion nada mas.
Saludos

[DISIMULA]

Gracias Caral acabo de probar y nada sigo con el mismo error, se ve que no es esa del todo la solución se os ocurre alguna otra cosa.

Posdata: no lo pongo en un ini por que es una dll con mas funciones relacionadas para despues usarlas en mis programas.

Gracias por responder.

[[poliburro]]

El problema que tienes radica en dos partes

La primera es que Cuando creas Dlls que serán utilizadas por diferentes lenguajes (lo menciono por tu sentencia StdCall), no podrás utilizar Tipos String, por lo que deberas usar Pchar, y despúes en el código de delphi cuando haces la declaración de la función debes agregarle por igual la sentencia StdCall.

Código Delphi [-]
Procedure ConectarAdo(ADOConnection1: TADOConnection; Nombre:    String); StdCall; external 'info.dll';

Suerte

[roman]

También puede usar el tipo ShortSring. Tiene la limitante de 256 caracteres pero en muchos casos es más que suficiente y con la ventaja de no tener que ocuparnos del manejo de memoria como en el caso de los PChar.

// Saludo

[DISIMULA]

Pues dicho y hecho Poliburro tenias razón me faltaba el stdcall en la declaración de la función, ya funciono todo y como decia tambien Roman pues use el ShortString y todo ha ido sobre rueda.

Gracias a todos los que me habeis ayudado.