Open (TbpConnection)

function Open:Integer;

Cette méthode ouvre la session sur le serveur de processus métiers.

Paramètre	Usage
Result	Valeur de retour de la fonction

Valeur de retour :

• 0

La connexion à réussi

• <>0

La connexion à échouée

Exemple :

//Procedure EngineInfo;
var bpc:TbpConnection; rslt:integer; doc:TxmlDocument; S:string;
begin
  bpc := TbpConnection.Create;
  bpc.HostName := 'pc100xxx';
  bpc.HostServiceName := 'syfre';
  bpc.UserName := 'syfre';
  bpc.Password := 'syfre';
  rslt := bpc.Open;
  if rslt<>0 then
   begin
     showMessage(Format('Connect Failed :%d',[rslt]));
     exit;
   end;
 
  rslt := bpc.EngineInfo('syfre1',doc);
  if rslt=0 then
     begin
       if Assigned(doc)
          then S := doc.SaveToString
          else S := 'doc not set';
       showMessage(Format('OK: %s',[S]));
     end
     else showMessage(Format('Failed :%d',[rslt]));
 
  Result := FALSE;
end;

— TbpConnection (class) — Développement DSM —

Whos here now:   Members 0   Guests 1   Bots & Crawlers 0