传真系统二次开发接口

传真系统二次开发接口Com组件接口(tif)interfaceIFaxServer:IAppServerHRESULT_stdcallInsertFaxRecord([in]BSTRFaxNumber,[in]BSTRFaxDate,[in]BSTRSendUser,[in]BSTRRecipient,[in]BSTREmployeeNo,[in]BSTRBoxNo,[in]BSTRTitle,[in]BSTRFileName,[in]VARIANTFaxFile,[in]longPages,[in]longSizes,[in]longFileType,[in]longHighPixel);end;此接口支持tif文档格式的传真文件，接口方法InsertFaxRecord的接口参数如下：FaxNumber:传真电话号码如有分机请在电话号码后加#再加分机号。FaxDate传真预发送时间格式：yyyy-mm-ddhh:mm:ssSendUser发送人名称Recipient接收人姓名EmployeeNo发送者的员工登陆编号BoxNo发送者的信箱号Title传真主题Filename传真文件名FaxFile传真文件内容以流的形式保存，安全数组方式导入Pages传真文件的页数Sizes传真文件的大小Filetype文件类型默认填写0,其他以备扩展用HighPixel传真文件分辨率默认填写0代表低分辨率，1代表高分辨率。举例说明：varsunFax:IFaxServer;stream:TMemoryStream;BinData:OleVariant;DataPtr:pointer;beginstream:=TMemoryStream.Create;stream.LoadFromFile('c:\tempfax.tif');BinData:=VarArrayCreate([0,stream.size-1],varByte);SunFax:=CreateRemoteComObject('server',CLASS_FaxServer)asIFaxServer;DataPtr:=VarArrayLock(BinData);tryStream.ReadBuffer(DataPtr^,stream.size);SunFax.InsertFaxRecord('1234','2005-10-25','a','b','admin','888','hello',tempfax..tif',BinData,1,stream.Size,0,0);finallyVarArrayUnlock(BinData);sunFax:=nil;stream.Free;end;end;动态连接库接口(tif,txt,bmp)1.BOOLWINAPIInitServer(constchar*ServerName);2.BOOLWINAPIInsertFaxFile(constchar*FaxNumber,constchar*FaxDate,constchar*SendUser,constchar*Recipient,constcharEmployeeNo,constchar*BoxNo,constchar*Title,constchar*FileName):3.voidWINAPICloseServer();函数说明：BOOLWINAPIInitServer(constchar*ServerName);连接传真Com接口服务器函数,参数ServerName是传真COM服务器的名称或者ip。BOOLWINAPIInsertFaxFile(constchar*FaxNumber,constchar*FaxDate,constchar*SendUser,constchar*Recipient,constcharEmployeeNo,constchar*BoxNo,constchar*Title,constchar*FileName):添加传真文件接口函数，参数Faxnumber是传真机号码，分机请在传真号码后加#再加分机号，faxDate预定传真发送时间格式是yyyy-mm-ddhh:mm:ss，SendUser是发送人姓名，Recipient是接收者的姓名，EmployeeNo是发送者的员工登陆编号,boxNo是发送者的信箱号，Title是发送传真的主题,FileName是要发送的传真文件名，格式可以是bmp,tif,txt.如果需要发送其它格式的文件请先用虚拟打印机打印成tif格式的文件。voidWINAPICloseServer();断开与Com传真服务的连接。举例如下：InitServer('server');InsertFaxFile('1234','2005-10-25','a','b','admin','888','hello','e:\通讯.txt');CloseServer();数据库开发接口(tif,doc,xls,bmp,txt,pdf)/*============================================================*//*Table:FaxInfo传真主表*//*============================================================*/goifexists(select*fromsysObjectswherextype='U'andname='FaxInfo')droptableFaxInfogoifEXISTS(SELECTnameFROMsysindexesWHEREname='idx_FaxDate')DROPINDEXFaxInfo.idx_FaxDategoCreatetableFaxInfo(IDnumeric(18,0)identity(1,1),FaxNovarchar(20)notnull,--传真序号fax+yyyymmddhhmmsszzzRecipientsvarchar(60)null,--收件人Sendervarchar(60)null,--发件人FaxNumbervarchar(25)notnull,--传真号码FileSizesdecimal(9,0)default0,--文件字节Pagesintegerdefault0,--总页数FaxDatevarchar(19)null,--传真日期yyyy-mm-ddhh:mm:ssPreFaxDatevarchar(19)null,--预定发送日期yyyy-mm-ddhh:mm:ssStatuschar(1)default'0',--状态VocBoxNovarchar(100)null,--语音信箱号PRIFlagchar(1)default'0',--优先级highpixelbit,--高低分辨率Deletedbitdefault0,--是否删除deptnovarchar(20),--部门编号EmployeeNovarchar(50),--员工编号constraintPK_FAXINFOprimarykey(FaxNo))gocreateindexidx_FaxDateonFaxInfo(FaxDate)/*备注：status传真状态0:'发件箱未发送';1:'发件箱已发送';2:'发件箱正在发送';5:'发件箱发送失败';6:'收件箱接收';7:'内部发送到内部收件箱';8:'内部发送箱';9:'外部转入到内部收件箱';a:内部发送过来的没有转的，转换以后发到收件箱，状态位改为7';b:内部发送没有转的，转换以后发到发件箱，状态位改为8';c:待需转换的传真，转换完毕系统自动发送传真（记住word，excel，pdf不能有密码）转换以后放到发件箱，状态位改为0FaxNo:传真编号，主健和faxfilelist的faxno相关联形成主从关系。FileSizes：子表内所有传真的文件大小的和Pages：子表内所有传真文件的页数FaxDate：预定发送时间PreFaxDate：下次预备发送时间插入时和faxdate一样VocBoxNo：用户的信箱号Highpixel：传真的分辨率0：低，1：高*//*============================================================*//*Table:FaxFileList传真从表*//*============================================================*/goifexists(select*fromsysObjectswherextype='U'andname='FaxFileList')droptableFaxFileListgoifEXISTS(SELECTnameFROMsysindexesWHEREname='FaxListNo_ind')DROPINDEXFaxFileList.FaxListNo_indgocreatetableFaxFileList(IDnumeric(18,0)identity(1,1),FaxNovarchar(20),--序号SourceFileNamevarchar(255),--源文件名称FaxFileimage,--传真文件FileSizesdecimal(9,0)default0,--大小Pagesintegerdefault0,--页数fileTypechar(1)default'0'--文件类型0：tif1：word2:excel)gocreateINDEXFaxListNo_indONFaxFileList(FaxNo)备注：faxno：和faxinfo的faxno主从关联，faxfile：二进制传真内容Filesizes：传真文件的大小Pages：传真文件页数Filetype：0：tif文件1：doc文件2：xls文件3：bmp文件4：txt文件5：pdf文件6：wps文件传真开发接口说明//连接到faxserver电脑functionLinkServer(szIP:pchar;nPort:integer):integer;stdcall;参数：szIP:服务器iPnPort:服务器端口5007返回值：socket句柄//登陆到faxserverfunctionLogon(s:integer;szUserID,szPassword:pchar):integer;stdcall;参数：s:socket句柄szUserID:Fax用户szPassword:fax密码返回值：0：成功-1：失败//上传