Crear una COM DLL

[Enan0]

Hola, Buenos dias.

HE creado una DLL Simple DLL, La cual ejecuta una consulta SQL, y luego Desencripta un password. la cual he probado con una aplicacion delphi. y fuiona correctamente. eh aqui en codigo

Código Delphi [-]
uses
  SysUtils,
  Classes,
  Db,
  ADODB,
  windows,
  Xutil,
  Ttpwcryp,
  Scryp,ttid;

{$R *.RES}

   Function DecryptPSw(s:string;Idlow:integer):string;
   var i:integer;
      aux:ShortString;

   begin
      aux:=s;
      RemoveGarbageHex(aux);
      aux:=HexStrToBinStr(aux);
       Decrypt(aux[1],Length(aux));
           for i:=1 to Length(aux) do
              aux[i]:=Char(Ord(aux[i])-IdLow mod i);
           result:=aux;
   end;

   Function Loggin(Usr,Psw:String):boolean; STDCALL;
   var
      Cnx:TADOConnection;
      Query:TADOQuery;
      tmppw:TPasswordString;
      aux:ShortString;
   begin
      if FileExists(ExtractFilePath(ParamStr(0))+'\Connection.udl') then begin
         Cnx:=TADOConnection.Create(nil);
         Cnx.ConnectionString:='FILE NAME='+ExtractFilePath(ParamStr(0))+'\Connection.udl';
         cnx.LoginPrompt:=false;
         Cnx.Open;
         Query:=TADOQuery.Create(nil);
         Query.Connection:=Cnx;
         Query.SQL.Clear;
         Query.SQL.text:='Select SY_ID2,PS_PASSW from t620pers where ps_short=:Short and ps_Type =3';
         Query.ParamCheck :=true;
         Query.Parameters.ParamByName('Short').Value:=Usr;
         Query.Open;
         TmpPw:=UpperCase(Psw);
         if not Query.IsEmpty then begin
            aux:=Query.FieldByName('PS_PASSW').asstring;
            GeneratePw(TmpPw,Query.FieldByName('SY_ID2').AsInteger);
            RemoveGarbageHex(aux);
            aux:=HexStrToBinStr(aux);
             Result:=TmpPw=aux;
         end else result:=false;
         Query.Close;
         Query.free;
         cnx.Close;
         cnx.free;
      end;

   end;

Exports loggin;

end.

E aqui como la ejecuto desde la aplicacion en delphi

Código Delphi [-]

//EdShort.Text,EdPsw.Text son dos Edits en los cuales paso Usuario y password


  Function Loggin(Usr,Psw:String):boolean; stdcall external 'TTLoggin.dll';
implementation

{$R *.DFM}

procedure TForm1.btTestClick(Sender: TObject);
begin
   if loggin(EdShort.Text,EdPsw.Text) then
      ShowMessage('True')
   else
      ShowMessage('False');

end;

end.

El problema que tengo es que dicha DLL quieren ejecutarla desde .net y al parecer no pueden utilizarla.
yo he intentado REgistrarla pero no es posible ya que Luego de ejecutar Regsvr32 me da el sigueitne Error

---------------------------
RegSvr32
---------------------------
F:\Download\Pc_San\Programas\Loggin DLL\TTLoggin.dll was loaded, but the DllRegisterServer entry point was not found.

DllRegisterServer may not be exported, or a corrupt version of F:\Download\Pc_San\Programas\Loggin DLL\TTLoggin.dll may be in memory. Consider using PView to detect and remove it.
---------------------------
Aceptar
---------------------------

Alguna iDea de como puedo Crearla Como un objeto COM o como puedo instanciar dicha DLL desde .net?

GRacias

[JXJ]

seguro que la dll esta en el mismo directorio de tu aplicacion dotnet

entonces, ppuedes intentar hacer un activex, o un ocx.

en delphi en el menu File -> New Other

del cuadro de seleccion busca por activex, com, ocx.

[Enan0]

Si lo hice. Y me abre un asistente en el cual me el nombre de la Clase. y una descripcion y luego me abre una ventana con este codigo..

Código Delphi [-]

unit Unit1;

interface

uses
  Windows, ActiveX, Classes, ComObj, TTLoggin_TLB, StdVcl;

type
  TLoggin = class(TTypedComObject, ILoggin)
  protected
    {Declare ILoggin methods here}
  end;

implementation

uses ComServ;

initialization
  TTypedComObjectFactory.Create(ComServer, TLoggin, Class_Loggin,
    ciMultiInstance, tmSingle);
end.

Y en la unidad anterior (la DLL) tengo una llamada a

Código Delphi [-]

  TTLoggin_TLB in 'TTLoggin_TLB.pas',
  Unit1 in '..\Unit1.pas' {Loggin: CoClass};

Que mas Deberia hacer?

Gracias por su ayuda. pero la verdad que estoy perdido como perro en cancha de bochas. (o caballo arriba de un techo)

[Enan0]

Bueno ya pude solucionarlo...

tenia que Crear una unidad ActiveX Library, y luego un COM OBject
y luego simplemente utilizar los metodos antes posteados.

Gracias de todos modos