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 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74
|
unit gestion;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, FMX.Layouts, FMX.Edit,
FMX.Controls.Presentation, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, System.Net.URLClient,
System.Net.HttpClient, System.Net.HttpClientComponent;
const
urlsite: String = 'https://www.monsite.fr/monscript.php';
type
TForm1 = class(TForm)
stadem: TStyleBook;
PanID: TPanel;
Label1: TLabel;
edMail: TEdit;
Layout1: TLayout;
Layout2: TLayout;
Label2: TLabel;
edMdP: TEdit;
btnConnexion: TButton;
PanCompet: TPanel;
Label3: TLabel;
httpadem: TNetHTTPClient;
reqadem: TNetHTTPRequest;
procedure btnConnexionClick(Sender: TObject);
procedure reqademRequestCompleted(const Sender: TObject; const AResponse: IHTTPResponse);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
{$R *.LgXhdpiPh.fmx ANDROID}
{$R *.NmXhdpiPh.fmx ANDROID}
{$R *.SmXhdpiPh.fmx ANDROID}
procedure TForm1.btnConnexionClick(Sender: TObject);
var
params: TStringList;
begin
params := TStringList.Create;
params.Add('email=' + edMail.Text);
params.Add('mdp=' + edMdP.Text);
reqadem.Post(urlsite,params);
end;
procedure TForm1.reqademRequestCompleted(const Sender: TObject; const AResponse: IHTTPResponse);
var
ret:string;
begin
ret:=AResponse.ContentAsString();
if pos('ok',ret)>0 then
begin
PanID.Visible := false;
PanCompet.Visible := true;
end;
end;
end. |
Partager