lo estaba intentando asi haciendo pruebas
Código Delphi
[-]
var
connexion: TMyConnection;
{$R *.res}
function conectar (server,usuario,clave,base:string;puerto:Integer):Boolean;
begin
connexion.Create(nil);
connexion.Server:=server;
connexion.Username:=usuario;
connexion.Password:=clave;
connexion.Database:=base;
connexion.Port:=puerto;
connexion.Connected:=True;
end;
procedure guardar (dato1,dato2:string);stdcall;
var
consulta:TMyQuery;
begin
conectar('127.0.0.1','root','0000','finanzas',3305);
with consulta do
begin
Create(nil);
connexion:=connexion;
SQL.Add('insert into (conf_agente,config_rif)');
SQL.Add('values (
dato1,
dato2)');
ParamByName('pdato1').AsString:=dato1;
ParamByName('pdato2').AsString:=dato2;
Execute;
end;
consulta.Free;
connexion.Free;
end;
exports guardar;