Buenas, estoy escribiendo una función para enviar datos post a un gateway de sms, ya hice la función y todo perfecto, pero ahora me gustaría tenerla en dll la paso a dll pero me dice Interface Not Suported, aqui dejo el codigo de la dll y la llamada.
Codigo DLL.
Código Delphi
[-]
library sms;
uses
SysUtils,
Classes,
IdHTTP;
{$R *.res}
function enviarSMS (url,usuario,clave,phone,mensaje : string) : string; export
var
http: TIdHttp;
params: TStrings;
respuesta: string;
begin
http := TIdHTTP.Create(nil);
params := TStringList.Create;
begin
params.Add('usuario='+usuario);
params.Add('clave='+clave);
params.Add('telefonos='+phone);
params.Add('texto='+mensaje);
respuesta := http.Post(url, params);
end;
params.Free;
http.Free;
end;
end.
este es el de la llamada
Código Delphi
[-]var
Form1: TForm1;
function enviarSMS (url,usuario,clave,phone,mensaje : string) : string; stdcall external'sms.dll';
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
enviarSMS(edt1.Text,edt2.Text,edt3.Text,edt4.Text,edt5.Text);
edt4.Clear;
edt5.Clear;
end;