Soap avec parametre qui renvoie un clientdataset
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:
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
