Quier hacer una conexión con SQL server en Delphi pero me sale un mensaje de "access violation".

Me parece que no voy a ser de mucha ayuda. Solo te puede decir dos cosas:
1) Si la dll comunica strings al programa principal tendría que tener como primer uses el de ShareMem.
2) Podrías poner en depuración el dll. Para esto cargar el proyecto que genera la dll y en el menu Project-Parameters veras que puedes definir la aplicación host (La que llama a la dll). Haciendo esto podrás ver que esta fallando y resolver o bien decirme más cosas.

Esto esta cortado de una unit nuestra, no esta completo (solo la parte que interesa) y tendrás que adaptarlo a tu caso en particular
unit uReplaceCharDb;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, ValEdit, StdCtrls, ExtCtrls, Buttons, DB, ADODB, ComCtrls;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure FormCreate(Sender: TObject);
......
const TIPO = 'Provider=SQLOLEDB.1;';
password ='Password=';
user = ';Persist Security Info=False;User ID=';
initial =';Initial Catalog=';
server=';Data Source=';
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
with ADOConnection1 do begin
close;
conexion :=TIPO+password+trim(edPassWord.text)+user+trim(edUserName.text)+initial+'master'+server+trim(edServerName.text)+';';
ConnectionString := conexion;
try
lbinfo.Caption := 'verifing conection...';
lbinfo.Repaint;
Application.ProcessMessages;
open;
ADOQuery1.sql.Clear;
ADOQuery1.sql.Add('sp_databases');
try
lbinfo.Caption := 'Import Databasenames...';
lbinfo.Repaint;
Application.ProcessMessages;
ADOQuery1.open;
ADOQuery1.first;
while not ADOQuery1.eof do begin
if (ADOQuery1.fieldbyname('database_name').asstring<> 'master') and
(ADOQuery1.fieldbyname('database_name').asstring<> 'model') and
(ADOQuery1.fieldbyname('database_name').asstring<> 'msdb') then
lbDATABASES.Items.Add(ADOQuery1.fieldbyname('database_name').asstring);
ADOQuery1.Next;
end;
except
end;
BitBtn18.Enabled := lbDATABASES.Items.Count>0;
lbinfo.Caption := '';
except
lbinfo.Caption := 'Conexión FAILED...';
lbinfo.Repaint;
Application.ProcessMessages;
end;
end;

Hi,
Mira, la utilización de DLLs no es mi fuerte. Ya que no se están utilizando mucho y por lo tanto abandone el tema.
Tu problema puede estar al establecer la conexión en el servidor. Los dos componentes que estas utilizando utilizan capacidades de red y por lo tanto estas tienen que estar bien conectadas. Aparentemente, por lo que me comentas las DLLs andan bien pero el problema esta en el Server o en tu conexión de red.
Espero que te haya servido y cualquier consulta que tengas no dudes en preguntarme.
Nahuelon..

En realidad aun no me manejo en eso. Pero tuve un problema con una aplicación oracle en la cual también me mandaba al demonio. El error radicaba en la ip de conexión al server, quizás sea eso. ¿Cómo se puede saber? Intenta conectar y hace desde la línea de comandos un netstat -r o netstat -a.
Ahora un error de protección... mmmm también me sucedió con unas dll de impresora (en red) la solución a ello fue volver a instalarla, también asegurate de tener instalado el protocolo Netbeui, porque también cuando este protocolo no estaba instalado en algunos equipon me daba error en red.
Bueno ojala algo de esto pueda ayudarte, o al menos iluminarte un poquitín. =)

Access Violation
Gran error, el problema de este error es que no indica mada en especial, el problema más común que lleva a este error el el hecho de usar un componente, clase, etc. sin crearlo o inicializarlo, te sugiero que revises tu código en busca de este tipo de errores.
Siento no podes ayudarte más pero para ello tendría que tener tu código y revisarlo para localizar el error.
Cualquier cosa pregunta, Atentamente. DX.
PD: No te olvides de finalizar la pregunta.

Las dll's, ¿Las has hecho tu o son de Visual?...
En cuanto la conexión ADO, puede ser que sea problema de que pones bien los argumentos o alguna historia de usuarios. Etc..