Discussion :

[colorid]

bonjour

Le code suivant appelé dans formcreate:

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
function TFormNominal.WebCamExists: boolean;
var
  strName,strVer: TPeek100Char; // tableau de 100 char
  x: integer;
  Ok: boolean;
  List: TStrings;
begin
  List:= TStringList.Create;
  try
    Ok:= True;
    List.Clear;
    x:=0;
    while Ok do
    begin
      Ok:= capGetDriverDescriptionA(x, strName, 100, strVer, 100);
      inc(x);
      if Ok then List.Add(StrPas(StrName));
    end;
    result:= List.Count>0;
  finally
    List.Free;
  end;
end;

Fonctionne parfaitement dans Delphi 2007 et est inactif dans RAD Studio XE
La ligne 15 retourne False dans XE et pas dans D2007
Quelqu'un peut-il venir à mon secours ?

[ouiouioui]

peut-être du à l'unicode
ta essayé capGetDriverDescription ou capGetDriverDescriptionW

[Cl@udius]

peut-être du à l'unicode

+1 très certainement.

Si le type TPeek100Char est défini ainsi: TPeek100Char: array[0..99] of Char alors sous D2007 c'est de l'AnsiChar et sous XE du WideChar.

D'où l'appel bancal avec capGetDriverDescriptionA.

Attention également à la longueur des chaines transmises à la fonction:

Code :

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

Ok:= capGetDriverDescription[A|W](x, strName, SizeOf(strName), strVer, SizeOf(strVer));

@+ Claudius.