Consumir DLL creado con Delphi 2007 causa error al consumirlo con Delphi 5
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
|