load dll failed

[korami]

I am a newcomer in PureBasic. Today i downloaded the libcurl.dll from the offical website.
but libcurl.dll was loaded failed when i used openlibrary() function in PUB.
Can someone help me?

Code: Select all

a = OpenLibrary(0, "D:\yuan\purebasic\loginGnnu\libcurl.dll")
If a 
   MessageRequester("successful", "2333") 
 Else 
   MessageRequester("failed", "5555") 
   Debug a
 EndIf 

[Dude]

You don't check for "a", you check for the value of "result", like this:

Code: Select all

result = OpenLibrary(0, "D:\yuan\purebasic\loginGnnu\libcurl.dll")
If result
   MessageRequester("successful", "2333") 
 Else 
   MessageRequester("failed", "5555") 
   Debug result
 EndIf 

[korami]

You don't check for "a", you check for the value of "result", like this:

Code: Select all

result = OpenLibrary(0, "D:\yuan\purebasic\loginGnnu\libcurl.dll")
If result
   MessageRequester("successful", "2333") 
 Else 
   MessageRequester("failed", "5555") 
   Debug result
 EndIf 

it's my mistake, i ever modified "a" to "result".
int fact the openlibrayr() return value 0 i tested.

[normeus]

Maybe the file is not where you think:

Code: Select all

fnm$="D:\yuan\purebasic\loginGnnu\libcurl.dll"
If FileSize(fnm$) > 0  ; is the file there?
  anyVariableName = OpenLibrary(0, fnm$)
  If anyVariableName
    MessageRequester("successful", "2333")
  Else
    MessageRequester("failed", "5555")
    Debug anyVariableName
  EndIf 
  
Else
  MessageRequester("failed", "File Not Found")
EndIf

look at this example for libcurl.dll:

http://www.purebasic.fr/english/viewtop ... 51#p493851

use google to find PureBasic examples in forum:
https://www.google.com/advanced_search? ... rebasic.fr



Norm.