gambas吧 关注:9贴子:19
  • 3回复贴,共1

Gambas 调用动态链接库

只看楼主收藏回复

一楼献给国家
Public Sub Form_Open()
Dim ddd As Integer = 9
TextArea1.Text &= "我的PID --> " & getgid() & Chr(13)
p = VarPtr(ddd)
tmp = Addp(p)
TextArea1.Text &= tmp & Chr(13)
TextArea1.Text &= Add(4, 5) & Chr(13)
p = pAdd(22, 33)
TextArea1.Text &= p & Chr(13
TextArea1.Text &= Integer@(p) & Chr(13
End


IP属地:中国台湾1楼2016-08-06 21:29回复
    '感觉这样调用起来很方便,
    Library "/home/lei/Gambas3Wk/GambasCDLL/libGamDll"
    Extern Add(a As Integer, b As Integer) As Integer
    Extern Addp(a As Pointer) As Integer
    Extern pAdd(a As Integer, b As Integer) As Pointer
    Public p As Pointer
    Private tmp As Integer = 99
    下面是C代码
    #include "GamDll.h"
    int Add(int a, int b)
    {
    return a+b;
    }
    int Addp(int *a)
    {
    int b;
    b=*a;
    return 2*b;
    }
    int* pAdd(int a, int b)
    {
    static int rt;
    rt=a+b;
    int* p;
    p=&rt;
    return p;
    }


    IP属地:中国台湾2楼2016-08-06 21:33
    回复
      下面是结果
      我的PID --> 1000
      18
      9
      7F62309CA024
      55


      IP属地:中国台湾3楼2016-08-06 21:36
      回复
        还没试过调动态链接库


        IP属地:河南4楼2017-01-24 02:48
        回复