Delphi - AYUDA UGENTE!!

 
Vista:

AYUDA UGENTE!!

Publicado por El Pollito (7 intervenciones) el 13/08/2000 00:00:00
Ayuda!!!
Tengo un dll (opcdaauto.dll) que sirve para automatizacion industrial usando OLE.
me parece que esto es un componente ActiveX. Mi problema radica en que no
se como utilizarlo desde Delphi. En resumen, quisiera que alguien me explicase
como cargar un componente ActiveX ya hecho y luego utilizarlo en Delphi.
Utilice la opcion Import Type Library del Delphi, y me mostro una unidad con
las funciones, pero cuando lo inclui en mi proyecto, la cosa esta no reacciono y me
mostro un error de memoria.

Help!!!!
Atte. El pollito desesperado.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AYUDA UGENTE!!

Publicado por David Mella Aránguiz (3 intervenciones) el 14/08/2000 00:00:00
//function Invertir(Buffer : PChar) : PChar; external ´EjemploDll.Dll´;

type
TFInvertir = function (Buffer : PChar) : PChar;


procedure TForm1.Button1Click(Sender: TObject);
var
Respuesta : PChar;
FuncionInvertir : TFInvertir;
HDll : THandle;
begin
HDll := LoadLibrary(´EjemploDll.Dll´);
if HDll <> NULL then begin
FuncionInvertir := GetProcAddress(HDll, ´Invertir´);
Respuesta := FuncionInvertir(PChar(Edit1.Text));
if Respuesta <> nil then begin
ShowMessage(StrPas(Respuesta));
StrDispose(Respuesta);
end;
FreeLibrary(HDll);
end;
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:AYUDA UGENTE!!

Publicado por Armando Rodriguez (22 intervenciones) el 15/08/2000 00:00:00
Para delphi 5 tenes que ir al menu Components y entras a Import ActiveX Controls, luego oprimis Add y te posicionas en el directorio donde se encuentra el control seleccionandolo y abriendolo. Una vez importado oprimis install y se instala el componente y luego compilas el paquete de la libreria dclusr50.dpk y listo.
Buscalo en ActiveX de la barra de herramientas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar