如何将gchar转换为Fortran字符？解决空指针崩溃问题

问题场景 #

在VS Community 2019中使用GTK Fortran开发时，通过gtk_combo_box_text_get_active_text获取文本组合框的选中字符串，再用c_f_pointer将C风格字符串（gchar）转换为Fortran字符指针。当组合框有选中内容时程序正常运行，但未选中任何内容时，函数返回空指针，此时执行c_f_pointer会导致程序崩溃，原因是空指针无法被合法访问。

原实现代码 #

组合框初始化代码 #

botMain_systemChoosing = gtk_combo_box_text_new()
call gtk_container_add(bottomPanel_Main,botMain_systemChoosing)
call gtk_combo_box_text_append(botMain_systemChoosing,"1","system 1")
call gtk_combo_box_text_append(botMain_systemChoosing,"2","system 2")
call gtk_widget_show(botMain_systemChoosing)

选中文本获取代码 #

type(c_ptr) :: currentSys
character(len=8),pointer :: string
currentSys = gtk_combo_box_text_get_active_text(botMain_systemChoosing)
call c_f_pointer(currentSys,string)
if (string == "system 1") then
    print*, "1"
else 
    print*, "default"
end if 

错误的尝试方案 #

以下代码的问题在于先执行了c_f_pointer转换，再判断空指针，此时空指针已经被非法访问，崩溃无法避免：

use, intrinsic :: iso_c_binding, only: c_ptr,c_associated

type(c_ptr) :: currentSys
character(len=8),pointer :: string
! returns a gchar
currentSys = gtk_combo_box_text_get_active_text(botMain_systemChoosing) 
call c_f_pointer(currentSys,string)
if (.not. c_associated(currentSys)) then 
    print*, "null"
elseif (string == "system 1") then
    print*, "1"
else 
    print*, "default"
end if

正确解决方案 #

核心思路是先判断指针是否有效，再进行转换操作，同时可采用更安全的字符串处理方式规避指针风险：

方案1：先验空再转换指针 #

use, intrinsic :: iso_c_binding, only: c_ptr, c_associated, c_f_pointer

type(c_ptr) :: currentSys
character(len=:), pointer :: string  ! 用可分配长度指针适配不同字符串长度

currentSys = gtk_combo_box_text_get_active_text(botMain_systemChoosing)

! 先检查指针是否有效，避免非法访问
if (.not. c_associated(currentSys)) then
    print*, "未选中任何内容"
else
    call c_f_pointer(currentSys, string)
    if (string == "system 1") then
        print*, "1"
    else if (string == "system 2") then
        print*, "2"
    else
        print*, "default"
    end if
end if

方案2：复制C字符串到本地（更安全） #

如果担心C端内存释放导致的悬空指针问题，可将C字符串复制到Fortran本地字符串中：

use, intrinsic :: iso_c_binding, only: c_ptr, c_associated, c_char, c_null_char
use gtk, only: gtk_combo_box_text_get_active_text

type(c_ptr) :: currentSys
character(len=256) :: fortran_str  ! 定义足够大的本地字符串缓冲区
integer :: i

currentSys = gtk_combo_box_text_get_active_text(botMain_systemChoosing)

if (.not. c_associated(currentSys)) then
    print*, "未选中任何内容"
else
    ! 手动复制C字符串（以c_null_char结尾）到Fortran字符串
    i = 1
    do while (c_f_pointer(currentSys, [character(c_char)])[i] /= c_null_char .and. i <= len(fortran_str))
        fortran_str(i:i) = c_f_pointer(currentSys, [character(c_char)])[i]
        i = i + 1
    end do
    ! 截断到实际有效长度
    fortran_str = adjustl(fortran_str(1:i-1))
    
    if (fortran_str == "system 1") then
        print*, "1"
    else if (fortran_str == "system 2") then
        print*, "2"
    else
        print*, "default"
    end if
end if

关键注意点 #

• 必须在调用c_f_pointer前用c_associated检查指针有效性，杜绝空指针访问。
• 使用可分配长度的Fortran字符指针，能适配不同长度的返回字符串，避免固定长度限制。
• 若需长期使用字符串内容，优先复制到本地Fortran字符串，规避C端内存释放后的悬空指针问题。

内容的提问来源于stack exchange，提问作者DongAlpha