HIS调用接口业务流程.docVIP

HIS调用业务流程 一、声明并初始化结构体 所有函数间接出口参数为31个字符串组成的结构体，通过引用结构体获得函数具体数据项。结构体的名称以及各字符串的名字可以自己定义，但是必须确保有31个字符串，且在调用前确保已对其初始化。其中第一个字符串为描述每次调用的出错原因描述。 1、以下为DELPHI调用举例： （1）定义记录类型： type Toutinfo=record errtext: string; out1: string; out2: string; out3: string; out4: string; out5: string; out6: string; out7: string; out8: string; out9: string; out10: string; out11: string; out12: string; out13: string; out14: string; out15: string; out16: string; out17: string; out18: string; out19: string; out20: string; out21: string; out22: string; out23: string; out24: string; out25: string; out26: string; out27: string; out28: string; out29: string; out30: string; end; （2）结构体变量声明： astrout : Toutinfo ; （3）函数声明： function readzfbl (parm1:string;var outinf:Toutinfo): wordbool; stdcall; external cxjk.dll; （4）结构体变量初始化(注意空格不能少，拷贝到编辑器中)： with astrout do begin errtext:= ; out1:= ; out2:= ; out3:= ; out4:= ; out5:= ; out6:= ; out7:= ; out8:= ; out9:= ; out10:= ; out11:= ; out12:= ; out13:= ; out14:= ; out15:= ; out16:= ; out17:= ; out18:= ; out19:= ; out20:= ; out21:= ; out22:= ; out23:= ; out24:= ; out25:= ; out26:= ; out27:= ; out28:= ; out29:= ; out30:= ; end; 2、以下为VB调用举例： （1）定义记录类型： type Toutinfo=record errtext: string; out1: string; out2: string; out3: string; out4: string; out5: string; out6: string; out7: string; out8: string; out9: string; out10: string; out11: string;