Discussion :

[SergioMaster]

Bonjour,

je fais un essai de mon nouvel EDI , objectif créer un serveur Datasnap (simple) et son client associé
coté serveur une simple méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
function TServerMethods1.Appositions: TDataSet;
begin
ADTable1.Open;  // adtable1 est une "table" FireDac 
// ps. j'ai remarqué qu'il fallait mettre Open plutôt que Active:=True
// dans ce dernier cas la connexion est fermée   
result:=ADTable1;
end;

Coté client
j'ai d'abord essayé avec des composants DBExpress
une DBConnexion ,une génération des Classes, puis un DataSet etc ...
après quelques frayeurs (due a ADTable1.active:=true) nickel , j'ai la liaison à mon serveur , j'affiche mes données

j'ai essayé ensuite avec Firedac
-premiers essais le simple fait d'essayer de se connecter plantait l'IDE
puis j'ai remarqué que les paramètres de connexion se remplissaient pas !!
seul le driver était renseigné (un petit bug ?)
après renseignement des server et port

Server=localhost
Port=211

nickel la connexion fonctionne !
pour la suite , je lis qu'il faut mettre un ADStoredProc1 et pas une ADTable ou autre , ok , je fais .....
bonne nouvelle je vois , très facilement les méthodes accessibles (contrairement a l'utilisation de DBExpress où il faut un peu ruser)

par contre , et c'est là que je butte

---------------------------
Erreur
---------------------------
Le type de valeur TDBXTypes.INT64 n'est pas accessible comme type de valeur TDBXTypes.INT32.

j'obtiens ce joli message sybillin des pistes ?

[SergioMaster]

je me répond à moi-même

c'était un bug remonté , qui va être corrigé dans la version 8.0.5 (ce qui me permet d'annoncer qu'il va y avoir une nouvelle version )

Dmitry Arefiev , m'a indiquer en attendant la marche a suivre pour corriger ce problème

- open uADPhysTDBXBase.pas
- locate there TADPhysTDBXCommand.FetchMetaRow method
- add to "var" section at top of method:

oVal: TDBXValue;

- found line:

iDbxPrec :=
FDBXReader.Value[TDBXProcedureParametersIndex.Precision].GetInt32;

- replace with:

oVal := FDBXReader.Value[TDBXProcedureParametersIndex.Precision];
if oVal.ValueType.DataType = TDBXDataTypes.Int64Type then
iDbxPrec := oVal.GetInt64
else
iDbxPrec := oVal.GetInt32;

- close RAD Studio IDE
- go to FireDAC\Bin folder
- run there compileDXE4.bat

[SergioMaster]

après , modifications par cette manip , cela fonctionne super pour ce qui est des 'Tables' et 'Querys' en lecture seulement pour l'instant .

Maintenant , j'ai essayé de passer autre choses que des données (la fameuse fonction exemple ReverseString ) et là , je coince , je vois bien la méthode , mais comment je récupère sa valeur ?
j'ai essayé comme pour une table mais bine sur ça fonctionne pas

Datasnap coté client + Firedac:= pas trop le top pour l'instant

je continue mes investigations .....

[ShaiLeTroll]

ReverseString ?

En DataSnap, sur le client, fait Clic-Droit sur ton SQLConnection, tu peux regénérer le fichier de wrapper des méthodes de ton serveur, un peu comme un TLB

[SergioMaster]

Oui , mais non , avec Firedac , pas besoin de générer comme avec DBX, en fait on pose un ADStoredProc et on retrouve la fonction du serveur .
Le hic , c'est que si ça fonctionne pour une table ou query (coté serveur) , je vois pas comment faire coté client .

Mais bon , j'avais laissé de coté depuis mon post . Je vais aller un peu fouillé dans les doc Anydac

[ShaiLeTroll]

Question conne, tu as changé Server=localhost en Server=IP.Du.Serveur.Pour.Client ?

Je suppose que tu as déjà lu Connect to DataSnap server
et l'utilisation de TADPhysDataSnapDriverLink

A priori, côté client, c'est aussi un TADStoredProc et un TADConnection

[SergioMaster]

Question conne

pas forcément

Coté client , j'ai bien posé un TADconnexion , un TAdStoredProc , un TADPhysDataSnapDriverLink, et même un TADGUIwaitcursor .

me connecter a un datasource coté client fonctionne (après les corrections) , en IDE , je vois bien les fonctions 'classiques' EchoString et ReverseString ainsi que celle que j'ai rajouté (voir 1° post)

si je fais un open 'classique'

[FireDAC][Phys][DataSnap]-308. Cannot open / define command, which does not return result sets.
Hint: use Execute / ExecSQL method for non-SELECT commands.

après moultes recherches, aiguillé par ce message j'essaye avec (il manque peut être des : prepare et autre subtilités )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
procedure TForm1.BtnReverseClick(Sender: TObject);
begin
AdStoredProc2.ParambyName('Value').asString:='mon test'; // ou params[0]
AdStoredProc2.Execute;
Label1.Caption:=AdStoredProc2.ParambyName('ReturnValue').AsString; // ou params[1]
end;

mais aujourd'hui je me heurte à

Exception EIPAbstractError dans le module Client.exe en 0043500B.
Aucun homologue avec l'interface ayant pour guid {9BB0BE5C-9D9E-485E-803D-999645CE1B8F} n'a été recensé.

[Edit] au temps pour moi , un petit google plus tard et je vois qu'il me faut rajouter un IPPeerClient dans ma liste des uses

ceci fait , je me suis heurté a une taille de paramètre non indiqué (par défaut c'était a 5 car j'avais mis une valeur initiale = 'Hello' )
Changements effectués pour les 2 paramètres ça fonctionne

Objectif suivant : passer une image du serveur vers le client via un Stream
je suis pas sorti de l'auberge
affaire a suivre , faut que je me mette en mode travail maintenant

[ShaiLeTroll]

Pour le Stream, tu vas devoir toucher au BufferKBSize
Mais tu connais déjà : [XE3] Image par datasnap par SergioMaster

[SergioMaster]

Mais tu connais déjà

S'agissant de Datasnap via FireDac , Non

ma tentative de faire la même chose que dans le lien que tu as cité se sont révélé désastreuse

tout d'abord , la valeur retournée par le serveur est considérée comme un blobfield , j'ai donc essayé ainsi

Code Coté serveur :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
function TServerMethods1.LoadFile(NomFichier: String): TStream;
begin
 Result := TFileStream.Create(NomFichier, fmOpenRead);
end;

Code Coté client :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
ADStoredProc3.ParamByName('NomFichier').AsString:='C:\Users\Master\Pictures\Capturer.jpg';
ADStoredProc3.Execute;
TBlobField(AdStoredProc3.ParamByName('ReturnValue')).SaveToFile('c:\test\temp.jpg');

ça coince sur le Savetofile !
J'ai contrôlé la taille 'envoyée' ok. Par contre taille reçue = 0 (même en changeant la taille du paramètre )
pour l'instant , je bloque et tourne en rond ! suite au prochain poste