如何在Business Central函数中声明Blob类型参数？

你遇到的问题核心是Business Central不支持直接将Blob作为过程的参数类型，所以声明Blob类型参数会触发'Blob' is not a valid variable type错误。以下是两种可行的通用函数实现方案：

方案1：使用Variant类型传递Blob #

通过Variant类型接收Blob字段，内部校验类型后再处理：

procedure CheckImageFieldValue(imageFileVariant: Variant; var removeImageFile: Boolean)
var
    imageFile: Blob;
begin
    removeImageFile := false;
    // 先校验传入的Variant是否为Blob类型
    if imageFileVariant.IsBlob() then begin
        imageFile := imageFileVariant;
        // 简化原逻辑：直接用HasValue()的返回值赋值
        removeImageFile := imageFile.HasValue();
    end;
end;

调用时直接传入页面上的Blob字段即可，例如：

var
    needRemove: Boolean;
begin
    CheckImageFieldValue(Rec.Picture, needRemove);
    // 根据needRemove的值执行移除图片逻辑
end;

方案2：传入Record+字段名，动态访问Blob字段 #

这种方式更灵活，适配不同表的Blob字段：

procedure CheckRecordBlobField(var rec: Record; fieldName: Text; var removeImageFile: Boolean)
var
    fieldRef: FieldRef;
    blobField: Blob;
begin
    removeImageFile := false;
    fieldRef := rec.Field(fieldName);
    // 校验目标字段是否为Blob类型
    if fieldRef.Type() = FieldType::Blob then begin
        blobField := fieldRef.Value();
        removeImageFile := blobField.HasValue();
    end;
end;

调用示例（以Item表的Picture字段为例）：

var
    itemRec: Record Item;
    needRemove: Boolean;
begin
    itemRec.Get('1000'); // 假设存在编号1000的物料
    CheckRecordBlobField(itemRec, 'Picture', needRemove);
    // 后续执行移除逻辑
end;

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