Chamando dlls criadas no delphi no vb6!

[cristofermartins]

Quando eu tento char uma dll no vb6 da um error chamado "Bad calling dll function"...ele nem da o error que não existe entrypoint(acho que é assim que se escreve) na dll,ele acusa esse error...

eu coloquei a dll no system32 e tals e aki ta o code que eu coloquei no module...

Public Declare Function MaiorValor Lib "Project2.dll" (ByVal num1 As Long, ByVal num2 As Long)

e aki o codigo que eu coloco pra chamar a funçao...

Private Sub Command1_Click()
Dim i As Long

i = MaiorValor(1, 2)

End Sub

oque há de errado?

aki embaixo o link criado no board do delphi com o code da dll:

obrigado...

http://scriptbrasil.com.br/forum/index.php?showtopic=139701

Editado Julho 21, 2009 por Jonathan Queiroz
Remover palavra "ajuda" do título do tópico

[kuroi]

vi no otro tópico q você declarou os parametros como double.

acho q devia estar como double tb no visual basic (e não como long).

[cristofermartins]

é,vou tentar isso rapidinho,no delphi o equivalente a long é int...

[Decio]

Outra coisa que esta errado é que voce esta declarando uma função e a mesma não indica o tipo que deve retornar.

O código deveria ser algo assim:

Public Declare Function MaiorValor Lib "Project2.dll" (ByVal num1 As Long, ByVal num2 As Long) as Integer

[kuroi]

é,vou tentar isso rapidinho,no delphi o equivalente a long é int...

o melhor não seria alterar no visual basic mesmo??

não precisa q seja double?? você não precisa das casas decimais??