Discussion :

[mario9]

Bonjour

J'essais de traduire un code en c# en delphi Xe2

Quelqu'un peut-il m'aider svp.

voici le code

Code C# :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
 
 public static class BafServices
    {
        /// <summary>
        /// Initializes the <see cref="BafServices"/> class.
        /// </summary>
        static BafServices()
        {
            userServer = "LocalHost"; 
            portServer = "8000";
        }
 
        // Nom du serveur
        static private string userServer;
        // Port du serveur
        static private string portServer;
 
        /// <summary>
        /// Gets or sets the user server.
        /// </summary>
        /// <value>The user server.</value>
        static public string UserServer
        {
            get { return userServer; }
            set 
            { 
                if (string.Compare(userServer, value.Trim(), true) != 0)
                {
                    if (IsLoggedIn)
                        LogOffUser();
                    SDK_ServiceCtx.ResetCtx();
 
                }
                userServer = value.Trim(); 
            }
        }

Merci


Mario

[Paul TOTH]

cette classe ne sert pas à grand chose en soit...

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
type
  BafServices = class
  private  
    // Nom du serveur
    FuserServer : string;
    // Port du serveur
    FportServer : string;
 
    procedure SetuserServer(value: string);
  public
    constructor Create;
    /// <summary>
    /// Gets or sets the user server.
    /// </summary>
    /// <value>The user server.</value>
    property userServer: string read FuserServer write SetuserServer;
  end;
 
/// <summary>
/// Initializes the <see cref="BafServices"/> class.
/// </summary>
constructor BafServices.Create;
begin
  FuserServer := 'LocalHost';
  FportServer := '8000';
end;
 
procedure BafServices.Setuserserver(Value: string);
begin
  if FUserServer <> Trim(Value) then
  begin
    if IsLoggedIn then
      LogOffUser();
    SDK_ServiceCtx.ResetCtx();
  end;
  FUserserver := Trim(Value);
end;

[guillemouze]

juste une petite rectification a ton code Paul (si tu me le permet ) :

Code :

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

if not SameText(FUserServer, Trim(Value)) then

Car String.Compare(s1, s2, true) : le true c'est ignoreCase

[Paul TOTH]

juste une petite rectification a ton code Paul (si tu me le permet ) :

Code :

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

if not SameText(FUserServer, Trim(Value)) then

Car String.Compare(s1, s2, true) : le true c'est ignoreCase

ok

ceci dit ce code n'est pas vital...ou alors quelque chose m'échappe

[mario9]

Un gros merci

Votre aide est tres précieuse .Ca me permet de continuer ma recherche de conversion d'un programme fait en C# vers delphi. Qui va me servir a me connecter a un webservice.

Il me reste a integrer une DLL dans mon programme delphi dans le but de me connecter au webservice.

Merci encore

Mario