Bonjour à tous.
Dans cette tentative de chargement de la librairie cards.dll avec le bout de code suivant (win98 et Delphi7) je récupére le code d'erreur 1157 dans getlasterror.
Il ne s'agit pas d'une erreur de chemin qui est 31.
Quelqu'un sait-il ce que signifie cette erreur ?
Merci d'avance
//
var
   hcards:THandle;
begin
   hcards:=loadlibrary('c:\windows\system\cards.dll\');
   label1.caption:=inttostr(hcards)+' '+inttostr(getlasterror);
   if hcards<>0 then freelibrary(hcards);
end;
//
Gabriel

salut, http://msdn.microsoft.com/library/default.asp?url=/library/en-us/debug/base/system_error_codes__1000-1299_.asp ERROR_DLL_NOT_FOUND 1157 One of the library files needed to run this application cannot be found. mais je peux pas t'aider plus. dsl. essai peut être d'appeler SetLastError(0) avant le load. juste pour être sur.

un ptit zoom :


var
   hcards:THandle;
begin
   hcards:=loadlibrary('c:\windows\system\cards.dll\');
   label1.caption:=inttostr(hcards)+' '+inttostr(getlasterror);
   if hcards<>0 then freelibrary(hcards);
end;

---

Croc (click me)

mdr, j'avais même pas vu....

Re :
Merci pour la signification du code 1157 malheureusement ça ne m'aide pas beaucoup....
Le '\' en fait de chemin était bien présent dans mon code.
L'erreur est la même quelquesoit la librairie que j'essaie de charger dynamiquement..

Je ne dois pas bien avoir compris l'utilisation de cette procedure loadlibrary
Gabriel

gfdg

hcards:=loadlibrary('c:\windows\system\cards.dll');

il faut pas mettre de \ a la fin...

---

Croc (click me)

Erreur 1157 : Un des fichiers bibliothèque nécessaire pour exécuter cette application ne peut pas être trouvé.

---

Croc (click me)

Re:Re:
Si on enlève le dernier '\' en fin de chemin, on récupère un autre code d'erreur (31) qui lui signifie bien que le chemin est erroné.
En fait, d'après ce que j'ai pu lire sur Internet,  on peut écrire de deux façons :
c:\\windows\\system\\cards.dll
ou
c:\windows\system\cards.dll\
mais celà ne m'explique pas cette erreur 1157 :dll manquante pour exécuter loadlibrary. Ce n'est pas cards.dll puisqu'elle est bien dans le répertoire.
Est-ce que loadlibrary a besoin d'une autre librairie qui n'est pas déclarée dans USES ? J'ai essayé shellApi mais ce n'est pas ça !
Il faut que je trouve quelqu'un qui a déjà utilisé ce loadlibrary avec succès pour comprendre !
@+
Gabriel

j'utilise LoadLibrary et FreeLibrary sans problemes.

maintenant, le probleme peut venir de windows 98.

aprés, sous XP le chemin est :

c:\windows\system32\cards.dll

attention, parfois sous Windows 98 le chemin peut etre :

C:\WIN98\

le mieux ettant de faire :

function TestLib(const LibName : string) : boolean;
var HLib : cardinal;
begin
  result := false;
  if FileExists(LibName) then begin
     HLib := LoadLibrary(PChar(LibName));
     result := HLib > 32;
     if Result then
        FreeLibrary(HLib);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var HLib : cardinal;
    WinDir,SysPath32,SysPath : String;
begin
  WinDir    := GetEnvironmentVariable('windir');
  SysPath   := WinDir+'\system\';
  SysPath32 := WinDir+'\system32\';

  if TestLib(SysPath+'cards.dll') then
     MessageDlg('Load ok ('+SysPath+'cards.dll)',mtInformation,[mbOk],0)
  else
     MessageDlg('Load error ('+SysPath+'cards.dll)',mtWarning,[mbOk],0);

  if TestLib(SysPath32+'cards.dll') then
     MessageDlg('Load ok ('+SysPath32+'cards.dll)',mtInformation,[mbOk],0)
  else
     MessageDlg('Load error ('+SysPath32+'cards.dll)',mtWarning,[mbOk],0);
end;

---

Croc (click me)

sinon, loadlibrary et freelibrary sont inclues dans la windows API (unité windows donc).
et ne necessite pas d'autre APIs.

aprés, les differences en XP et 98 peuvent faire en sorte que ...
le mieux serait d'abandonner 98 ... et de passer au moins a w2k ou wXp, faut quand meme pas oublier que Windows 98 a deja presque 10 ans et ne possede pas toutes les avancées technologiques presente dans XP.
il te serat quand meme plus aisé de travailler avec un systeme recent (XP pro SP1 par exemple) plutot qu'un vieux systeme obsolete et plus mis a jours, qui traine la pate.
niveau config, un XP pro SP1 bien configuré tourne sur un Pentium 200Mhz avec 64Mo de ram donc si tu as genre un P3 avec 128Mo de ram ça pose aucuns soucis.
 
moi je comprendrais jamais les mecs qui s'obstine a travailler sur des vieux gringrin, c'est une perte de temps considerable.
ça le fait bien de dire ça alors que j'ai garder mon 486dx2 66 sous windows 3.1 avec turbo pascal 7.0 jusqu'en 2002, mais
il faut dire qu'un bon pc, avec un bon systeme c'est tout de meme plus agreable pour travailler, franchement je ne regrette pas d'avoir jetter tout ça.

---

Croc (click me)