Discussion :

[jajadesforets]

Bonjour

je recherche désespérément un exemple de code delphi ou pascal permettant de réaliser une authentification aux services Web de Google tel que Google calendar ou Google Documents.

Je sais que des clients PHP, .Net, JScript existent mais pas moyen de trouver quoi que ce soit en pascal.

Merci pour votre aide.

[hector94]

Bonjour,

Un exemple de code utilisant le composant IEHTTP3 parce qu'il faut du https



TGoogleClientRequest = class (TComponent)
private
fhttp : TIEHTTP;
FFailure : integer;
FSuccess : integer;
FServer : string;
fAuthToken : string;
public
function Execute : integer;
procedure AddCmd (const name,value : string);
function Login : integer;
property Server : string read fServer write fServer;
end;

function TGoogleClientRequest.Execute : integer;
var
resp : string;

begin
try
try
try
FHTTP.ExecuteURL(Server);
FFailure := 0;
FSuccess := 1;

except
FFailure := 1;
FSuccess := 0;
end;
finally
end;
except
FFailure := 1;
FSuccess := 0;
end;
fhttp.sl.Text:= WideReplaceText(fhttp.sl.text,'encoding="UTF-8"',' ');
Result := fhttp.error_code;
end;

procedure TGoogleClientRequest.AddCmd (const name,value : string);
begin
fhttp.AddMultipartVar(name,Value);
end;

function TGoogleClientRequest.Login: integer;
begin
fhttp.RequestMethod := 'POST';
fhttp.MultipartPOST := true;
AddCmd('accountType','HOSTED_OR_GOOGLE');
AddCmd('service','lh2'); // picasa
AddCmd ('Email',Username+'@gmail.com');
AddCmd('Passwd',Password);
AddCmd('source','blabla');
server := 'https://www.google.com/accounts/clientlogin';
Result := Execute;
fAuthToken := fhttp.sl.Values['Auth'];
if FAuthToken <> '' then
Result := 0;
end;


Ce bout de code fonctionne avec Picasa

Si cela peut aider