Bonjour,
Je ne comprends pas ce message, lorsque j'execute dans RESTDebugger je n'ai pas de problème, mais, à l'exécution en mode debug j'ai cette erreur.
Je pourrais l'ignorer, ce que je fait pour la session, mais j'aimerais une explication (pb. de GExpert à signaler ou pas ?)
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 procedure TForm15.BtnRESTClick(Sender: TObject); var I: Integer; begin Resultat.Lines.Add('RESTDEBUGGER COMPONENTS '+restClient1.BaseURL); RestRequest1.Params.ParameterByName('id').Value:= nom.Text; RestRequest1.Execute; if RESTResponse1.StatusCode=200 then begin if FdMemTable1.Fields[0].IsNull then resultat.Lines.Add('Non valable') else begin for I := 0 to FDmemTable1.FieldCount-1 do begin try Resultat.Lines.Add(FDmemTable1.Fields[i].Name+' = '+FDmemTable1.Fields[i].AsWideString); except Resultat.Lines.Add('à faire '+fdmemTable1.Fields[i].ClassName); end; end; end; end else resultat.Lines.Add(RESTResponse1.StatusText); end;
Partager