Invalid memory acces beim procedurereturn

[manibaerchen]

Halllo Zusammen,

warum erhalte ich jedesmal beim procedurereturn immer
einen invalid memory access. Schreibe ich die Callfunction
nicht in ein Procedure funktioniert alles. Oder habe ich
hier einen Denkfehler

Vielen Dank für jeden Tipp

Mani

Code: Alles auswählen

#libpg=1

;- DLL einbeziehen
If OpenLibrary(#libpg,"libpq.dll")
  dll_ok=1
Else
  dll_ok=0
EndIf


Procedure.l db_num_rows(*result)
  
 Protected res22.l
 res22=CallFunction(#libpg,"PQntuples",*result)
 
 ProcedureReturn res22
 

EndProcedure


  connect.s
  connect="host=localhost dbname=geo user=system connect_timeout=60"

     *db_handle=CallFunction(#libpg,"PQconnectdb",connect)     
     *res=CallFunction(#libpg,"PQexec",*db_handle,"select * from geo_ini")

     r.l=db_num_rows(*res)
     
     Debug (r)
     CloseLibrary(#libpg)

End

[remi_meier]

Verwend mal CallCFunction(#libpg,"PQntuples",*result) anstelle von
CallFunction(#libpg,"PQntuples",*result).
Nur so zum Test

[manibaerchen]

Vielen Dank, es funktioniert.

Viele Grüße
Mani


[quote="remi_meier"]Verwend mal CallCFunction(#libpg,"PQntuples",*result) anstelle von
CallFunction(#libpg,"PQntuples",*result).
Nur so zum Test

[flype]

(sorry in english)

i made a wrapper for PostgreSQL 8.1 for Purebasic 4.0.
you can grab it here :
http://purebasic.forum-gratuit.com/view ... highlight=
http://www.purebasic.fr/english/viewtop ... highlight=

Best regards.

[manibaerchen]

I will test it.

Thank you

Mani