Discussion :

[coucoucmoi]

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

[coucoucmoi]

j'ai trouvé.
Pour info
je crée un clientdataset coté client. Je fais un save as Stream (c'est juste histoire qu'il soit pas vide, au cas ou)
j'envoi en var le Stream a mon soap avec mes params.
Mon soap crée un clientdataset et le met dans le Stream mis en var puis est détruit.

Mon client récupère le Stream et fais cds.loadfromstream et c'est bon.

Voilà.