Discussion :

[ThierryAIM]

Bonjour à tous
Comme mon titre l'indique, je ne suis pas un king of Delphi , mais je gratouille un peu

Et là, j'ai un souci
J'ai, en VB6 (ça vous étonne ??? ) une fonction qui ressemble à ça (pour essai) qui m'affiche un message et me renvoie un bool :

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Function IsWebConnected() As Boolean
Dim dwflags As Long
Dim bWebTest As Boolean
Dim sConnType As String
 
    bWebTest = InternetGetConnectedState(dwflags, 0&)
    Select Case bWebTest
    Case dwflags And INTERNET_CONNECTION_MODEM: sConnType = "Modem"
    Case dwflags And INTERNET_CONNECTION_PROXY: sConnType = "Proxy"
    Case dwflags And INTERNET_CONNECTION_LAN: sConnType = "LAN"
    End Select
    MsgBox sConnType
    IsWebConnected = bWebTest
End Function

que je tente de traduire en Delphi 7 dans une dll (le premier qui me traite de ringard aura droit aux orties fraiches !!! )
donc je :

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
Function IsWebConnected: Boolean; stdcall;
var
  dwFlags: Integer;
  bWebTest: boolean;
//  sConnType: String;
begin
//  dwFlags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or INTERNET_CONNECTION_PROXY;
  bWebTest := InternetGetConnectedState(@dwFlags, 0);
  Case bWebTest of
      dwFlags And INTERNET_CONNECTION_LAN: sConnType := "LAN";
      dwFlags And INTERNET_CONNECTION_MODEM: sConnType = "Modem";
      dwFlags And INTERNET_CONNECTION_PROXY: sConnType = "Proxy";
  end;
  Showmessage (sConnType)
  Result:=bWebTest ;
end;

et là, le compilateur râle comme quoi il veut une expression constante dans le Case ...

Bien sûr je peux passer par une série de If mais c'est pas très élégant ...

VB6 serait-il plus compréhensif que D7, ou j'ai raté un truc ?

[Aka Guymelef]

Bonjour,

Moi je coderais ceci de la manière suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
...
  if bWebTest then
  begin
    case dwFlags of
     INTERNET_CONNECTION_LAN: sConnType := 'LAN';
     INTERNET_CONNECTION_MODEM: sConnType = 'Modem';
     INTERNET_CONNECTION_PROXY: sConnType = 'Proxy';
    else
      // flag non reconnu ?
    end;
  end
  else
   // si non-connecté ?

[ThierryAIM]

Merci, oui, mais non
car dwflags est modifié ByRef ou par adresse, si tu préfères, par la fonction InternetGetConnectedState et renvoie une valeur sur laquelle il faut appliquer un masque (d'ou le Case en VB) car certains bits ne doivent pas être pris en compte

Ex: chez moi avec une connexion adsl direct (LAN) la fonction me renvoie 18, soit en hexa 16 + 2, et avec l'application du masque >> 2 = LAN

[Nono40]

A un détail près : la fonction InternetGetConnectedState retourne une somme de drapeaux et pas forcément un seul.

Dons ce cas je craints que ce soit :

Code :

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

1
2
3
4
If (dwFlags And INTERNET_CONNECTION_LAN) <>0 Then sConnType := 'LAN'
Else If (dwFlags And INTERNET_CONNECTION_MODEM) <>0 Then sConnType := 'Modem'
Else  If (dwFlags And INTERNET_CONNECTION_PROXY) <>0 Then     sConnType = 'Proxy'
Else // innconnu..

Edit thierry à répondu plus vite.

PS : c'est quoi le plus vieux : VB6 ou D7

[Aka Guymelef]

J'ai peut-être une solution, pas générique mais bon, si j'en crois la MSDN les trois constantes qui t'intéresse sont 0x01, 0x02 et 0x04. Partant de ce postulat je peux dès lors écrire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
...
  if bWebTest then
  begin
    case ( dwFlags and $07 ) of
     INTERNET_CONNECTION_LAN: sConnType := 'LAN';
     INTERNET_CONNECTION_MODEM: sConnType := 'Modem';
     INTERNET_CONNECTION_PROXY: sConnType := 'Proxy';
    else
      // flag non reconnu ?
    end;
  end
  else
   // si non-connecté ?

[ThierryAIM]

PS : c'est quoi le plus vieux : VB6 ou D7

Pour le plus vieux, je sais pas, et puis je ne veux vexer personne

Ta réponse me conforte pour la série de If, je n'avais pas trouver autre chose qui fonctionne, mais j'espérais que les meilleurs que moi dans ce langage avait peut-être une solution que je ne connaissais pas
Merci

PS : Mais pour le plus performant ... non, j'ai rien dit, ou alors pas fort

[ThierryAIM]

Merci Aka
J'avais aussi testé cette possibilité (qui fonctionne au demeurant dans ce cas précis)

Mais quid si, dans une solution un peu plus générique, tu dois tester d'autre bits ?

Dois-je en déduire (l'objet de ma question initiale) qu'un Case avec variable évaluée n'est pas possible en delphi 7 (j'ai bien peur que oui ...)

[Aka Guymelef]

En effet l'évaluation de variable pour déterminer l'étiquette n'est pas permise, je cite l'aide de Delphi :

Chaque étiquette est l'un des éléments suivants :

1. Un nombre, une constante déclarée ou une expression que le compilateur peut évaluer sans exécuter le programme. Ce doit être une valeur de type scalaire compatible avec expressionSelection. Ainsi 7, True, 4 + 5 * 3, 'A', et Integer('A') peuvent être utilisés comme étiquette, mais les variables et la plupart des appels de fonctions ne peuvent être utilisés. Certaines fonctions prédéfinies comme Hi et Lo peuvent s'utiliser dans une étiquette. Voir Expressions constantes.
2. Un intervalle de la forme Premier..Dernier, où Premier et Dernier respectent tous les deux les critères précédents et où Premier est inférieur ou égal à Dernier.
3. Une liste de la forme élément 1, ..., élément n, où chaque élément respecte l'un des critères précédents.

Ce qui m'étonne dans ton histoire c'est que, selon la MSDN toujours, la valeur 16 n'est pas parmi les constantes qui devraient revenir. Mais bon entre ce que dit la MSDN et la réalité

[ThierryAIM]

En effet l'évaluation de variable pour déterminer l'étiquette n'est pas permise, je cite l'aide de Delphi :

Oui, ça j'avais vu, merci
Mais connaissant vos talents, je me disais que j'avais peut-être raté un truc

Ce qui m'étonne dans ton histoire c'est que, selon la MSDN toujours, la valeur 16 n'est pas parmi les constantes qui devraient revenir. Mais bon entre ce que dit la MSDN et la réalité

Je suis d'accord, les constantes reconnues sont normalement &H1, &H2, &H4, &H8 (obsolete), &H20, &H40, mais on ne sait pas vraiment ce que renvoie la fonction de l'API Windows ?!?

Merci à vous, je vais me résoudre aux masques sur des If (et me dire que parfois, VB6 est plus aisé que D7, ça c'est pour ma paroisse )

[edam]

Code vb :

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

1
2
3
4
 
    Case dwflags And INTERNET_CONNECTION_MODEM: sConnType = "Modem"
    Case dwflags And INTERNET_CONNECTION_PROXY: sConnType = "Proxy"
    Case dwflags And INTERNET_CONNECTION_LAN: sConnType = "LAN"

et si dwflags =INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_PROXY par example alors, là mon cher sconntype=proxy; mais si par maleur tu appel des fonction au lieu d'affecter un seul variable, vb va appler les 2 premier
la solution de AKA est juste pour ta solution initiale, sa veux dire dwflag est un 2^x, si non, au moins delphi va excecuter une seul case pas comme vb les passé tous

[ThierryAIM]

je vais pas passer Noêl la dessus, mais ce que tu dis m'interpelle :

et si dwflags =INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_PROXY par example alors, là mon cher sconntype=proxy; mais si par maleur tu appel des fonction au lieu d'affecter un seul variable, vb va appler les 2 premier

Pas d'accord, VB n'exécute qu'un seul Case dans une série, le premier trouvé, comme Delphi
Et si tant est que ce soit possible, (je ne me vois pas tester une connexion rtc avec un proxy) cela voudrait dire que dwflags = 5
Alors

la solution de AKA est juste pour ta solution initiale, sa veux dire dwflag est un 2^x, si non, au moins delphi va excecuter une seul case pas comme vb les passé tous

là, je n'aurai plus rien du tout (ou flag inconnu) puisque 5 ne correspond à aucune des constantes prédéfinies, juste ?

et VB ne passe pas tous les Case

J'ai finalement choisi de renvoyer in Integer, en hiérarchisant les tests :

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
Function IsWebConnected: Integer; stdcall;
{Pour mémoire :
 connecté :
  INTERNET_CONNECTION_MODEM =$01
  INTERNET_CONNECTION_LAN = $02
  INTERNET_CONNECTION_PROXY = $04
 non connecté :
  INTERNET_CONNECTION_OFFLINE = $20
  INTERNET_CONNECTION_CONFIGURED = $40
}
var
  dwFlags: Integer;
  bWebTest: boolean;
begin
  bWebTest := InternetGetConnectedState(@dwFlags, 0);
  if bWebTest then
 begin
    if (dwFlags And INTERNET_CONNECTION_PROXY)= INTERNET_CONNECTION_PROXY then Result:= INTERNET_CONNECTION_PROXY
    else if (dwFlags And INTERNET_CONNECTION_LAN)= INTERNET_CONNECTION_LAN then Result:= INTERNET_CONNECTION_LAN
    else if (dwFlags And INTERNET_CONNECTION_MODEM)= INTERNET_CONNECTION_MODEM then Result:= INTERNET_CONNECTION_MODEM
    else Result:=0;
  end }
  else Result:=0;
//  ShowMessage(IntToStr(Result));
end;

merci à tous

[ShaiLeTroll]

une idée de code si le nombre de flag devient trop important, ... 3 cela va, mais avec une douzaine, le if deviendrait fatiguant ... je comprend la volonté d'un case plus lisible ...

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
Function IsWebConnected: Integer; stdcall;
type
 TInternetConnectedState = (csProxy, csLan, csModem);
const
  FLAGS: array[TInternetConnectedState] of Integer =
    (INTERNET_CONNECTION_PROXY, INTERNET_CONNECTION_LAN, INTERNET_CONNECTION_MODEM);
var
  dwFlags: Integer;
  State: TInternetConnectedState;
begin
  if InternetGetConnectedState(@dwFlags, 0) then // dwFlags pourrait être géré par une Enumération aussi ...
  begin
    for State := Low(FLAGS) to High(FLAGS) do
    begin
      Result := dwFlags and FLAGS[State];
      if Result = FLAGS[State] then
        Exit;     
    end;
  end;
 
  Result:=0;
end;

avec une chaine ...

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
Function IsWebConnected: shortstring; stdcall;
type
 TInternetConnectedState = (csProxy, csLan, csModem);
const
  FLAGS: array[TInternetConnectedState] of Integer =
    (INTERNET_CONNECTION_PROXY, INTERNET_CONNECTION_LAN, INTERNET_CONNECTION_MODEM);
  FLAGS_STRING: array[TInternetConnectedState] of string =
    ('PROXY', 'LAN', 'MODEM');
var
  dwFlags: Integer;
  State: TInternetConnectedState;
begin
  if InternetGetConnectedState(@dwFlags, 0) then
  begin
    for State := Low(FLAGS) to High(FLAGS) do
    begin
      if dwFlags and FLAGS[State] then
      begin
        Result := FLAGS_STRING[State];  
        Exit;
      end;
    end;
  end;
 
  Result := '';
end;

[edam]

A un détail près : la fonction InternetGetConnectedState retourne une somme de drapeaux et pas forcément un seul.

Dons ce cas je craints que ce soit :

Code :

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

1
2
3
4
If (dwFlags And INTERNET_CONNECTION_LAN) <>0 Then sConnType := 'LAN'
Else If (dwFlags And INTERNET_CONNECTION_MODEM) <>0 Then sConnType := 'Modem'
Else  If (dwFlags And INTERNET_CONNECTION_PROXY) <>0 Then     sConnType = 'Proxy'
Else // innconnu..

, alors pourquoi un else ou case, si une somme de drapeaux?????
si non, on l'utilise sans passé par "and", car là il va surmenet avoir qu'une seul
j'ai vu ce topic
ShaiLeTroll

[edam]

un peut de modification dans le code de ShaiLeTroll:

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
Function IsWebConnected: shortstring; stdcall;
type
 TInternetConnectedState = (csProxy, csLan, csModem);
const
  FLAGS: array[TInternetConnectedState] of Integer =
    (INTERNET_CONNECTION_PROXY, INTERNET_CONNECTION_LAN, INTERNET_CONNECTION_MODEM);
  FLAGS_STRING: array[TInternetConnectedState] of string =
    ('PROXY', 'LAN', 'MODEM');
var
  dwFlags: Integer;
  State: TInternetConnectedState;
begin
  if InternetGetConnectedState(@dwFlags, 0) then
  begin
    result:='Type de connexction: ';
    for State := Low(FLAGS) to High(FLAGS) do
    begin
      if dwFlags and FLAGS[State] then
      begin
        Result :=result+ FLAGS_STRING[State]+'  :  ' ;  
//        Exit;
      end;
    end;
  end;
end;

[ThierryAIM]

J'aime bien le code de ShaiLeTroll

Merci à vous tous

[ShaiLeTroll]

Effectivement, je suis resté dans l'exclusif, mais bien sur, après on peut imaginer, d'autre résultat comme Edam le propose ...

Sinon, le and est obligatoire si plusieurs bit peuvent être actif simultanément, sinon aucun intérêt ...

Et, ben si mon code plait, tant mieux (ce qui doit signifier qu'il compile et fonctione, l'ayant tapé sur le forum sans le tester ...) , c'est plus lent qu'un case ou if, mais peut-être plus maintenable si l'on a l'habitude de ce style d'écriture ...