求助：关于iso_c_binding中C端多重指针参数接口的写法

andy8496 · 发表于 2021-8-17 09:00:31

布衣龙共发表于 2021-8-16 17:44
可以，没关系的。

Fortran 的指针不需要释放，C那边你找找，可能有别的函数来释放。 ...

Perfect！再次感谢！！！

andy8496 · 发表于 2021-8-18 09:56:01

本帖最后由 andy8496 于 2021-8-18 10:20 编辑

布衣龙共发表于 2021-8-16 16:14
原来是 sqlite。sqlite3_get_table 的参数，你给他一个指针，由它内部分配空间，最后把它分配的空间的地址 ...

非常不好意思，又遇到一个问题。

在7#楼附件工程DB_Test/FortranCallC/Source Files/FortranCallC.f90中，生成数据文件的部分：

[Fortran] 纯文本查看 复制代码

  istat = sqlite3_open(trim(filename)//""C, db)
  sql = "CREATE TABLE MY_TABLE (ID INTEGER PRIMARY KEY  AUTOINCREMENT, "// &
            "DATA1           TEXT    NOT NULL, " // &
            "DATA2           TEXT )"
  istat = sqlite3_exec(db, sql, c_null_funptr, c_null_ptr, ErrMsg)
  istat = sqlite3_exec(db,"begin;",c_null_funptr, c_null_ptr, ErrMsg)
  sql = "INSERT INTO MY_TABLE (DATA1,DATA2) VALUES (?,?);"C
  istat = sqlite3_prepare_v2(db,sql,len_trim(sql),stmt,c_null_ptr)
  do i=1,50
   istat = sqlite3_bind_text(stmt, 1, "ABCDEFGHIJKLMNOPQRSTUVWXYZ", 32, c_null_ptr);
   istat = sqlite3_bind_text(stmt, 2, "0123456789", 16, c_null_ptr);
    istat = sqlite3_step(stmt)
  enddo
istat = sqlite3_finalize(stmt)
istat = sqlite3_exec(db,"commit;",c_null_funptr, c_null_ptr, ErrMsg)
  istat = sqlite3_close(db)

如果在sqlite3_bind_text中像上文那样直接用字符串常量就没问题：

[Fortran] 纯文本查看 复制代码

istat = sqlite3_bind_text(stmt, 1, "ABCDEFGHIJKLMNOPQRSTUVWXYZ", 32, c_null_ptr);

但是改成变量写进去的就是乱码，读出来的也是乱码了

[Fortran] 纯文本查看 复制代码

 sss = “ABCDEFGHIJKLMNOPQRSTUVWXYZ”  ！ character(256) :: sss
istat = sqlite3_bind_text(stmt, 1, trim(sss)//""C 32, c_null_ptr);

能想到的原因有两个：
①字符串声明的有问题，或者类型不合适
②可能与编码有关
做了一些尝试，问题依旧。无奈再次求助！

fcode · 发表于 2021-8-18 11:06:26

sss = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"c
istat = sqlite3_bind_text(stmt, 1, sss, 32, c_null_ptr);

这样就可以了。此处sss只能是引用，不能是表达式。
因为给 C 语言的是一个指针，而表达式结果是临时存放的，一旦整个语句结束，表达式的结果就清空了。
你试试，这样都不行：
istat = sqlite3_bind_text(stmt, 1, (sss), 32, c_null_ptr);
因为 (sss) 也是一个表达式。

andy8496 · 发表于 2021-8-19 11:33:34

fcode 发表于 2021-8-18 11:06
sss = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"c
istat = sqlite3_bind_text(stmt, 1, sss, 32, c_null_ptr);

谢谢老群主！但是，奇怪的现象又来了……明明赋了不同的值，居然写进去两个同样的值……

fcode · 发表于 2021-8-19 13:07:30

sqlite3_bind_text 的时候，并没有写入，只是存入地址。
等到 sqlite3_step 的时候，才会真正写入。
因为你都是用的 s_data 这个变量，所以地址相同。
最后，所有的值，都是最后一次的值

andy8496 · 发表于 2021-8-20 10:09:37

fcode 发表于 2021-8-19 13:07
sqlite3_bind_text 的时候，并没有写入，只是存入地址。
等到 sqlite3_step 的时候，才会真正写入。
因为你 ...

谢谢！这个点明白了！但是运行之后还是有些问题，是不是sqlite3_bind_text的接口/参数还是存在问题呢？见图片：

fcode · 发表于 2021-8-20 19:29:11

   function sqlite3_reset(stmt) bind(c)
   import
   type(c_ptr), value :: stmt
   integer(c_int) sqlite3_reset
   end function sqlite3_reset

istat = sqlite3_step(stmt)
write(*,"(A,I0,A,I0)") "第",i,"次sqlite3_step返回",istat
istat = sqlite3_reset(stmt)

andy8496 · 发表于 2021-8-23 09:58:04

fcode 发表于 2021-8-20 19:29
function sqlite3_reset(stmt) bind(c)
import
type(c_ptr), value :: stmt

之前百度了一个答案说是新版中sqlite3_step已经包含了sqlite3_reset，所以我给去掉了……
现在加上就好了，非常感谢！

再次感谢二位这段时间不厌其烦的帮助！

[混编] 求助：关于iso_c_binding中C端多重指针参数接口的写法

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章