criação de dll´s
como faço para declarar uma function em uma dll?
estou fazendo assim só que não está compilando (ctrl+F9):
//
unit uImerelat;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Qrctrls, jpeg, QuickRpt, ExtCtrls;
function MostraRelat (CAMINHO : STRING) : string; stdcall; export;
type
//
[]´s
Fabiano(RS)
estou fazendo assim só que não está compilando (ctrl+F9):
//
unit uImerelat;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Qrctrls, jpeg, QuickRpt, ExtCtrls;
function MostraRelat (CAMINHO : STRING) : string; stdcall; export;
type
//
[]´s
Fabiano(RS)
Anonymous
Curtidas 0
Respostas
Kanedasam
23/03/2003
Verifique a estrutura basica
library Project1; //
uses SysUtils, Classes,WinTypes,WinProcs;
var i : integer ;
{$R *.res}
Function Trim(J:String):String; Export;
Begin // Inicio da função
i := Length(J);
While J[Length(J)]=#32 do Dec(J[i]);
If Length(J)>1 then
While (J[1]=´ ´) do
Begin
Delete(J,1,1);
If Length(J)<=1 then J:=´´;
end;
Result:=J;
end; // Final da função
Exports { Torna visivel para os programas }
Trim; // Função a ser exportada
end. // final da Unit
library Project1; //
uses SysUtils, Classes,WinTypes,WinProcs;
var i : integer ;
{$R *.res}
Function Trim(J:String):String; Export;
Begin // Inicio da função
i := Length(J);
While J[Length(J)]=#32 do Dec(J[i]);
If Length(J)>1 then
While (J[1]=´ ´) do
Begin
Delete(J,1,1);
If Length(J)<=1 then J:=´´;
end;
Result:=J;
end; // Final da função
Exports { Torna visivel para os programas }
Trim; // Função a ser exportada
end. // final da Unit
GOSTEI 0