[rchavezh]

codigo de la dll

unit CGIDLL;

interface

uses Classes, SysUtils, MidItems, Sharemem;

function DGetConsumos(usuario, clave, FechaInicial, Fechafinal: AnsiString): AnsiString; cdecl; export;


function DGetConsumos(usuario, clave, FechaInicial, Fechafinal: AnsiString): AnsiString;
var
vFormPrueba: TFormPrueba;
begin
{$ifdef FULDebug}
WriteDebug('Transpose() - Enter');
{$endif}
vFormPrueba := TFormPrueba.Create(nil);
try
Result := vFormPrueba.fGetConsumos(usuario, clave, FechaInicial, Fechafinal);
finally
vFormPrueba.Free;
end;

{$ifdef FULDebug}
WriteDebug('Transpose() - Exit');
{$endif}
end;



codigo en delphi 5 para llamar la dll

function DCheckUsuario(usuario, clave, tipo: AnsiString): AnsiString; stdcall external 'DLLCGI.dll';


procedure TForm3.ButtonCheckUsuarioClick(Sender: TObject);
begin
try
Memo2.Lines.Text := DCheckUsuario(EditUsuario.Text, EditClave.Text, EditTipo.Text);
except
end;
end;



al momento de llamar la funcion genera un acces violation


Si se preguntan el porque de una dll en Delphi 2007 para usarse en Delphi 5 es porque tengo que hacer unos llamados a web services muy facil de hacer en delphi 2007 pero no disponible en delphi 5