Discussion :

[Pierre95]

Bonjour,

Dans mon projet D10, je dois faire appel à une fonction d'une dll située à divers endroits selon les utilisateurs.
Comment utiliser le mot clé "external" dans ce cas. Il ne semble pas accepter la concaténation.

Merci de votre aide.

Cordialement
Pierre

[tourlourou]

Si ces divers endroits font tous partie des chemins de recherche par défaut de Windows, ne rien faire d'autre que de mettre external mylib.dll, sans chemin. Si ce n'est pas le cas, faire un chargement dynamique (LoadLibrary) au lieu de statique, en constituant le chemin à l'exécution.
NB : pê est-il possible de donner des chemins supplémentaires à la recherche des dll ?

[ShaiLeTroll]

Tu ne l'utilises pas !
Tu passes par LoadLibrary et GetProcAddress : Voir la Comment appeler une fonction dans une DLL ? qui explique les deux méthodes

[Pierre95]

Merci à vous deux, Je vais voir cela et revenir pour un rapport.

Cordialement
Pierre

[Paul TOTH]

il existe tout de même une astuce possible sous Windows

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
 
 
function mafonction(params):type; external 'SOMEWHERE' delayed; // mot clé delayed !!
 
// reste à enregistrer un gestionnaire de chargement spécifique
 
var
  LoadHook: TDelayedLoadHook;
  Somewhere: THandle;
 
function MyHook(dliNotify: dliNotification; pdli: PDelayLoadInfo): Pointer; stdcall;
begin
  if (dliNotify = dliNotePreLoadLibrary) and (pdli.szDll = 'SOMEWHERE') then
  begin
     Somewhere := .... charger la DLL là où elle se trouve...
     Result := Pointer(Somewhere);
     Exit;
  end;
  if @LoadHook <> nil then
    Result := LoadHook(dliNotify, pdli)
  else
	Result := nil;
end;
 
initialization
  Handle := 0;
  LoadHook := SetDliNotifyHook2(MyHook);
finalization
  SetDliNotifyHook2(LoadHook);

et le tour est joué

[Pierre95]

Bonsoir,
Après quelques tests, j'obtiens un résultat vide de données:
Voici le fruit de mes recherches:

Ici la structure donnée par l'auteur de l'API utilisée

Code :

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

1
2
3
4
5
6
7
 
TWxData = Record
  AltFt: Integer;// Out
  Pressure: Double;//In
  Temperature: Double;//In
  WindDirection: Double;//In
  WindSpeed:Double;//In

La procedure qui appelle la fonction (GetAtmosphere) en cours de développement

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
Procedure LoadAsWx;
var
  WxLat: Double;
  WxLon: Double;
  WxTime_Shift: Byte;
  WxData: array[0..0] of TWxData;
  WxDataSize: Byte;
  HandleDLL: THandle;
  GetAtmosphere: function(Lat: Double; Lon: Double; Time_Offset: Byte;
                          Data: Array of TWxData; Data_Size: Byte): Boolean;
begin
  GetAtmosphere:= nil;
  HandleDLL:= LoadLibrary(pWideChar('D:\Program Files (x86)\HiFi\AS16_P3D' + '\as_srv\as_btstrp.dll'));
  if HandleDLL = 0 then Exit;
  GetAtmosphere:= GetProcAddress(HandleDLL, pAnsiChar('GetAtmosphere'));
  WxLat:= 40.520843;
  WxLon:= 22.971601;
  WxTime_Shift:= 0;
  WxData[0].AltFt:= 10000;
  WxDataSize:= 1;
  if GetAtmosphere(WxLat, WxLon, WxTime_Shift ,WxData, WxDataSize) then
  begin
    ShowMessage(FloatToStr(WxData[0].Pressure));
  end;
end;

que puis-je faire?

Cordialement
Pierre

[Paul TOTH]

1) ne jamais utiliser un "array of" dans un appel de DLL ! un tel tableau exige des paramètres complémentaires, comme la taille du tableau !

2) 99% des API utilisent la convention stdcall

Code :

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

1
2
3
4
5
6
7
8
 
type
  PWxData = ^TWxData;
 
function(Lat: Double; Lon: Double; Time_Offset: Byte;
                          out Data: PWxData; Data_Size: Byte): Boolean; stdcall;
 
if GetAtmosphere(WxLat, WxLon, WxTime_Shift ,@WxData[0], WxDataSize) then

Bonsoir,
Après quelques tests, j'obtiens un résultat vide de données:
Voici le fruit de mes recherches:

Ici la structure donnée par l'auteur de l'API utilisée

Code :

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

1
2
3
4
5
6
7
 
TWxData = Record
  AltFt: Integer;// Out
  Pressure: Double;//In
  Temperature: Double;//In
  WindDirection: Double;//In
  WindSpeed:Double;//In

La procedure qui appelle la fonction (GetAtmosphere) en cours de développement

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
Procedure LoadAsWx;
var
  WxLat: Double;
  WxLon: Double;
  WxTime_Shift: Byte;
  WxData: array[0..0] of TWxData;
  WxDataSize: Byte;
  HandleDLL: THandle;
  GetAtmosphere: function(Lat: Double; Lon: Double; Time_Offset: Byte;
                          Data: Array of TWxData; Data_Size: Byte): Boolean;
begin
  GetAtmosphere:= nil;
  HandleDLL:= LoadLibrary(pWideChar('D:\Program Files (x86)\HiFi\AS16_P3D' + '\as_srv\as_btstrp.dll'));
  if HandleDLL = 0 then Exit;
  GetAtmosphere:= GetProcAddress(HandleDLL, pAnsiChar('GetAtmosphere'));
  WxLat:= 40.520843;
  WxLon:= 22.971601;
  WxTime_Shift:= 0;
  WxData[0].AltFt:= 10000;
  WxDataSize:= 1;
  if GetAtmosphere(WxLat, WxLon, WxTime_Shift ,WxData, WxDataSize) then
  begin
    ShowMessage(FloatToStr(WxData[0].Pressure));
  end;
end;

que puis-je faire?

Cordialement
Pierre

[Pierre95]

Bonjour,

Merci Paul pour ces précisions.

Voici ce que l'auteur de l'API donne comme renseignements:

Weather information at a specified location can also be obtained directly through API function GetAtmoshere that is exported by as_btstrp.dll This is meant to be used by aircraft Flight Management Computers a way to get "live" (or forecast) weather information at a specified way point at various flying altitudes. By design it only contains information that may be useful for such functionality as winds, pressure and temperature and not for example precipitation or other information. Here's the declaration of the function:

Code :

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

bool GetAtmosphere(double lat, double lon, unsigned time_offset, WxData* data, unsigned data_size );

Parameters:
- lat, lon: The latitude and longitude in degrees of the waypoint
- time_offset: The time offset (in seconds) from current base ACTIVE SKY active time. For example if this has value 240*60 (and ACTIVE SKY is in live real time mode), forecast weather conditions at the specified way point 4 hours from now are requested
- data is an array of WxData structs with a length data_size. The WxData definition is :

Code :

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

1
2
3
4
5
6
7
8
struct WxData
{
int AltFt; // (In) The requested altitude (MSL in feet)
double Pressure; // (Out) The returned pressure (in hectoPascals)
double Temperature; // (Out) The returned temperature (in Celsius)
double WindDirection; // (Out) The returned wind direction (in degrees)
double WindSpeed; // (Out) The returned wind speed (in knots)
};

The allocation of the memory (and memory management) for this array is the responsibility of the caller. The caller sets the AltFt value for each instance of WxData and then once the function returns, the values for temperature, winds and pressure will be populated at the specified fields.
Example:

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
double lat = 40.520843;
double lon = 22.971601; // The lat/lon of LGTS airport
unsigned time_offset = 0; // We need current data (no forecast)
unsigned data_size = 2; // We need data for 2 altitudes
WxData* data = new WxData[data_size];
data[0].AltFt = 6000;
data[1].AltFt = 34000;
if (GetAtmosphere(lat, lon, time_offset, data, data_size))
{
for (int i = 0;i < data_size;i++)
{
// data[i].AltFt) should be 6000 and 34000
// data[i].Pressure the ambient pressure at 6000 and 34000 ft
// data[i].WindDirection) the wind direction at 6000 and 34000 ft
// data[i].WindSpeed) the wind speed at 6000 and 34000 ft
// data[i].Temperature) the temperature at 6000 and 34000 ft
}
}
else
LogMessage(TEXT("ExternalFailed"));
delete[] data;

Très novice en matière d'API, surtout quand les exemple sont en C++, comment appeler la fonction de la dll en lui fournissant 1 seule altitude de 10000 ft en Delphi?

Merci de votre aide

Cordialement
Pierre

[Paul TOTH]

en plus de ce que je dis plus haut, unsigned est un Cardinal et non un Byte, pour le reste ça m'a l'air ok...que donne l'appel à la fonction ? une erreur, des données incorrectes ?

[Pierre95]

Dois-je faire:

Code :

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

if GetAtmosphere(WxLat, WxLon, WxTime_Shift ,@WxData[10000], WxDataSize) then

Pour renseigner l'altitude?

J'ai essayé :

Code :

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

@WxData[0]:= 10000;

Sans succès, erreur à la compilation.

Cordialement
Pierre

[SergioMaster]

Bonjour,

rapidement, ligne 20:

Code :

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

  WxDataSize:= 1;

j'aurais plutôt utilisé

Code :

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

  WxDataSize:= SizeOf(WxData);

[Pierre95]

Merci,

Je suis plutôt perdu...

WxData est un tableau dans l'API, dont la taille est déterminée par WxDataSize qui donne le nombre d'altitudes souhaitées.

Merci par avance
Pierre

[SergioMaster]

Autant pour moi, en relisant l'api je vois que WxDataSize est en fait le nombre d'éléments du tableau le nom portait à confusion
donc WxDataSize:= 1; semble correct

[Pierre95]

Merci beaucoup,

Comment dimensionner le tableau dans l'appel de fonction SVP?

Cordialement
Pierre

[Pierre95]

Voici le dernier code utilisé:

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
Procedure LoadAsWx;
var
  WxLat: Double;
  WxLon: Double;
  WxTime_Shift: Cardinal;
  WxData: array of TWxData;
  WxDataSize: Cardinal;
  HandleDLL: THandle;
  GetAtmosphere: function(Lat: Double; Lon: Double; Time_Offset: Byte;
                          Data: Array of TWxData; Data_Size: Byte): Boolean;
                          stdcall;
begin
  GetAtmosphere:= nil;
  WxDataSize:= 1;
  SetLength(WxData,WxDataSize);
  HandleDLL:= LoadLibrary(pWideChar('D:\Program Files (x86)\HiFi\AS16_P3D\as_srv\as_btstrp.dll'));
  if HandleDLL = 0 then Exit;
  GetAtmosphere:= GetProcAddress(HandleDLL, pAnsiChar('GetAtmosphere'));
  WxLat:= 40.520843;
  WxLon:= 22.971601;
  WxTime_Shift:= 0;
  WxData[0].AltFt:= 10000;
  if GetAtmosphere(WxLat, WxLon, WxTime_Shift ,WxData, WxDataSize) then
  begin
    ShowMessage(FloatToStr(WxData[0].Pressure));
  end;
end;

GetAtmosphere renvoie False.
Le chemin de la dll est correct.

Une idée?

Coredialement
Pierre

[ShaiLeTroll]

Avec toutes ces interventions, tu sembles complètement perdu !
Pourtant Paul TOTH avait déjà tout écrit !
Reste le bool qui n'est pas si simple en C++ qu'en Delphi, je mise sur 1 octet donc ByteBool
sur une API, il vaut mieux utiliser un type car unsigned dont la longueur est bien stable que le type bool.
En Delphi, ByteBool et Boolean, c'est pareil mais avec une API mieux vaut être explicite

Code c++ :

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

bool GetAtmosphere(double lat, double lon, unsigned time_offset, WxData* data, unsigned data_size );

en premier le type record et son pointer !

Code :

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

1
2
3
4
5
6
7
8
9
10
 
type
  PWxData = ^TWxData; // c'est l'équivalent du WxData* !
  TWxData = record // vu les types int / double, l'alignement ne devrait pas posé problème, a vérifier quand même
    AltFt: Integer;// Out
    Pressure: Double;//In
    Temperature: Double;//In
    WindDirection: Double;//In
    WindSpeed:Double;//In
  end;

et l'appel

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
var
  WxLat: Double;
  WxLon: Double;
  WxTime_Shift: Cardinal;
  WxData: array of TWxData;
  WxDataSize: Cardinal;
  HandleDLL: THandle;
  GetAtmosphere: function(Lat: Double; Lon: Double; Time_Offset: Cardinal; Data: PWxData; Data_Size: Cardinal): ByteBool; stdcall;
begin
  WxDataSize:= 1;
  SetLength(WxData,WxDataSize);
 
  HandleDLL:= LoadLibrary(pWideChar('D:\Program Files (x86)\HiFi\AS16_P3D\as_srv\as_btstrp.dll'));
  if HandleDLL = 0 then 
    Exit;
 
  @GetAtmosphere := GetProcAddress(HandleDLL, pAnsiChar('GetAtmosphere'));
  if not Assigned(GetAtmosphere) then 
    Exit;
 
  WxLat:= 40.520843;
  WxLon:= 22.971601;
  WxTime_Shift:= 0;
  WxData[0].AltFt:= 10000;
 
  if GetAtmosphere(WxLat, WxLon, WxTime_Shift, @WxData[0], WxDataSize) then
    ShowMessage(FloatToStr(WxData[0].Pressure));
end;

[Pierre95]

Merci, ça me semble plus clair à présent, mais la fonction GetAtmosphere renvoie toujours False.

Cordialement
Pierre

[ShaiLeTroll]

Tente de remplacer stdcall par cdecl
Après, je sèche totalement

[Pierre95]

Merci Shai, Pas de changement, GetAtmosphere est toujours à False.

Peut-être d'autres pistes?

Cordialement
Pierre

[ShaiLeTroll]

Regarde la doc, et cherche une fonction genre "Initialize", "Connect" ou "StartUp", certaines API fonctionne ainsi
Si pas de fonction d'init, reste plus que contacter l'auteur pour qu'il te donne plus de précision !