Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   Como usar una dll hecha en VB (https://www.clubdelphi.com/foros/showthread.php?t=12835)

ingel 29-07-2004 01:17:55

Como usar una dll hecha en VB
 
HOla .tengo codigo VB para imprimir etiquetas en una ELtron 2642 , el cual no logro hacer funcionar en delphi, con los metodos tradicionales de impresion,.. ya me tiene seco... usa EPL y necesita los parametros entre comillas , como opcion un amigo me hizo una DLL con esas funciones para que las utilice desde delphi .. , ya registre la dll ahora .. la pregunta es como declaro/donde en delphi y como hago las llamadas a esa dll
Gracias a todos.

defcon1_es 13-09-2004 19:02:26

Hola, debes cargar esa dll y acceder a las funciones que contiene.

Ejp:
Tenemos definida en la dll "Libreria.dll" una funcion de este estilo:
Código:

  function MultiplicarDll(Parametro1, Parametro2: Real): Real;
Código Delphi [-]
type
  TMultiplicarDll  = function(Parametro1, Parametro2: Real): Real;  register; 
 
...
...
 
 
function MultiplicarDll(N1, N2: Real): Real;
var Handle : Integer;
     Mul : TMultiplicarDll;
begin
  Result := False;
  Handle := LoadLibrary('Libreria.DLL');
  try
    if (Handle <> 0)
    then begin
      @Mul := GetProcAddress(Handle, 'MultiplicarDll');
      if (@Mul <> nil)
      then result := Mul(N1, N2);
    end;
  finally
    FreeLibrary(Handle);
  end;
end;
Espero que te sirva. ;)

delphi.com.ar 13-09-2004 19:06:37

Cita:

Empezado por defcon1_es
Hola, debes cargar esa dll y acceder a las funciones que contiene.

Mmmmm... VB no es capaz de compilar DLL´s Win32, solo compila DLL´s COM. Para usar estas DLL´s, tendrías que importar la librería, desde el menú: "Project \ Import Type Library" y utilizar el archivo creado por esta utilidad como interface para "hablar" con la DLL.


La franja horaria es GMT +2. Ahora son las 09:04:44.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi