Bonjour,

j'utilise delphi 7.
Je voudrais créer un soap générique.
Le principe étant que, a partir d'une application, j'utilise une fonction du soap qui me renvoie un clientdataset.
mais cette fonction contiendrait 2 parametres
1 : la chaine de connection a une base de données.
2 : La reqete sql

La fonction sur le web service serait du style :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
function Twebdata.SelectGenerique(AConnection,ASelect:string):integer;
var
  AStlist : TStringList;
  lsDb, lsLogin, lsPsw, lsCharset, lsSQLDialect : string;
 
begin
  AStlist := TStringList.Create;
  AStlist.Text := AConnection;
 
  lsDb := AStlist[0];
  lsLogin := AStlist[1];
  lsPsw := AStlist[2];
  lsCharset := AStlist[3];
  lsSQLDialect := AStlist[4];
  FreeAndNil(AStlist);
 
  result:=-1;
  try
    DB.DataBaseName := lsDb;
    DB.DBParams.Clear;
    DB.DBParams.Add('user_name=' + lsLogin);
    DB.DBParams.Add('password=' + lsPsw);
    DB.DBParams.Add('lc_ctype=' + lsCharset);
    DB.SQLDialect :=StrToInt(lsSQLDialect);
 
    DB.Connected:=True;
    pFIBDataSet1.Active:=False;
    pFIBDataSet1.SelectSQL.Text := ASelect;
    pFIBDataSet1.Open;
 
    pFIBDataSet1.FetchAll;
    result:= pFIBDataSet1.RecordCount;
 
  except
    on e:Exception do
    begin
      result:=-1;
    end;
 
  end;
 
end;
pFIBDataSet1 est linké a un provider et je voudrais avoir accès a ce moment là, à ce provider.

je ne sais pas comment faire
Je sais lancer une fonction qui me renvoie un résultat
je sais lancer une connection avec acces a un provider par clientdataset mais la base est déjà connectée.

Je ne vois pas comment faire

merci pour votre aide