dll con forms

[Rafa]

saludos

Disculpen la insistencia pero no logro hacer qe me funcione el llamar un dll qe contiene forms.


Segui este Hilo que me paso cadetill, pero me arroja este error

CoInitialize has not been called

y de ahi no paso
Ojala me puedan hechar la mano

[__cadetill]

Estaría bien que enviaras el código de llamada a la dll y la función/procedimiento de la dll para ver por donde puede ir el error.

[delphi.com.ar]

Empezado por Rafa

CoInitialize has not been called

Prueba poniendo un Application.Initialize antes del Application.Run

Saludos!

[Rafa]

Aqui va el codigo de como llamo a mi dll

procedure TForm1.FormCreate(Sender: TObject);
var

h:THandle;
setAdo:function (cCia: pchar;hwd:Integer):integer;stdcall;
Cia: pchar;

begin

h:=LoadLibrary('prueba.dll');
if h = 0 then
begin

showmessage('no se encontro prueba.dll');
exit;

end;
@setAdo:=GetProcAddress(h,'SetAdo');
if @setAdo=nil then
begin

showmessage('no se encontro SetAdo');
exit;

end;
getmem(Cia,3);
strlcopy(Cia,pchar('COI'),3);
setAdo(Cia,self.Handle);
FreeLibrary(h);
Application.Terminate;

end;

y este es el codigo de la dll

library prueba;
uses
SysUtils,
Classes,
Forms,
Dialogs,
ShellApi,
Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}
function SetAdo(Cia: pchar;hwd:Integer):integer;stdcall;
begin

Application.handle:=hwd;
try

Form1:=TForm1.Create(Application);
Form1.cCia:=Cia;
Showmessage(Form1.ADOStoredProc1.ConnectionString);

except
on E: Exception do
begin

ShowMessage('Error Creant Formulari. ' + E.Message);
result:=0;
raise;
exit;

end;
end;
result:=1;

end;

exports SetAdo;
begin

end.

[__cadetill]

Pues no sabría decirte, acabo de probar el código que mandas y no me ha dado ningún error

Mira lo que te comenta el amigo delphi.com.ar (aunque también lo he probado y ma ha funcionado bien )

[delphi.com.ar]

Si trabajas con ADO, te recomiendo probar lo que te he sugerido anteriormente.

Saludos!

[Rafa]

Me dices qe ponga application.initialize ,donde??
antes del application.run, pero si cuando haces una aplicacion delphi lo pone solo en el archivo del proyecto
program Pruebadll;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin


Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;

end

O a la mejor no te estoy entendiendo, es ahi no?