傳真系統(tǒng)二次開發(fā)接口

傳真系統(tǒng)二次開發(fā)接口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的接口參數(shù)如下：FaxNumber:傳真電話號(hào)碼如有分機(jī)請(qǐng)?jiān)陔娫捥?hào)碼后加#再加分機(jī)號(hào)。FaxDate傳真預(yù)發(fā)送時(shí)間格式：yyyy-mm-ddhh:mm:ssSendUser發(fā)送人名稱Recipient接收人姓名EmployeeNo發(fā)送者的員工登陸編號(hào)BoxNo發(fā)送者的信箱號(hào)Title傳真主題Filename傳真文件名FaxFile傳真文件內(nèi)容以流的形式保存，安全數(shù)組方式導(dǎo)入Pages傳真文件的頁(yè)數(shù)Sizes傳真文件的大小Filetype文件類型默認(rèn)填寫0,其他以備擴(kuò)展用HighPixel傳真文件分辨率默認(rèn)填寫0代表低分辨率，1代表高分辨率。舉例說(shuō)明：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;動(dòng)態(tài)連接庫(kù)接口(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();函數(shù)說(shuō)明：BOOLWINAPIInitServer(constchar*ServerName);連接傳真Com接口服務(wù)器函數(shù),參數(shù)ServerName是傳真COM服務(wù)器的名稱或者ip。BOOLWINAPIInsertFaxFile(constchar*FaxNumber,constchar*FaxDate,constchar*SendUser,constchar*Recipient,constcharEmployeeNo,constchar*BoxNo,constchar*Title,constchar*FileName):添加傳真文件接口函數(shù)，參數(shù)Faxnumber是傳真機(jī)號(hào)碼，分機(jī)請(qǐng)?jiān)趥髡嫣?hào)碼后加#再加分機(jī)號(hào)，faxDate預(yù)定傳真發(fā)送時(shí)間格式是yyyy-mm-ddhh:mm:ss，SendUser是發(fā)送人姓名，Recipient是接收者的姓名，EmployeeNo是發(fā)送者的員工登陸編號(hào),boxNo是發(fā)送者的信箱號(hào)，Title是發(fā)送傳真的主題,FileName是要發(fā)送的傳真文件名，格式可以是bmp,tif,txt.如果需要發(fā)送其它格式的文件請(qǐng)先用虛擬打印機(jī)打印成tif格式的文件。voidWINAPICloseServer();斷開與Com傳真服務(wù)的連接。舉例如下：InitServer('server');InsertFaxFile('1234','2005-10-25','a','b','admin','888','hello','e:\通訊.txt');CloseServer();數(shù)據(jù)庫(kù)開發(fā)接口(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,--傳真序號(hào)fax+yyyymmddhhmmsszzzRecipientsvarchar(60)null,--收件人Sendervarchar(60)null,--發(fā)件人FaxNumbervarchar(25)notnull,--傳真號(hào)碼FileSizesdecimal(9,0)default0,--文件字節(jié)Pagesintegerdefault0,--總頁(yè)數(shù)FaxDatevarchar(19)null,--傳真日期yyyy-mm-ddhh:mm:ssPreFaxDatevarchar(19)null,--預(yù)定發(fā)送日期yyyy-mm-ddhh:mm:ssStatuschar(1)default'0',--狀態(tài)VocBoxNovarchar(100)null,--語(yǔ)音信箱號(hào)PRIFlagchar(1)default'0',--優(yōu)先級(jí)highpixelbit,--高低分辨率Deletedbitdefault0,--是否刪除deptnovarchar(20),--部門編號(hào)EmployeeNovarchar(50),--員工編號(hào)constraintPK_FAXINFOprimarykey(FaxNo))gocreateindexidx_FaxDateonFaxInfo(FaxDate)/*備注：status傳真狀態(tài)0:'發(fā)件箱未發(fā)送';1:'發(fā)件箱已發(fā)送';2:'發(fā)件箱正在發(fā)送';5:'發(fā)件箱發(fā)送失敗';6:'收件箱接收';7:'內(nèi)部發(fā)送到內(nèi)部收件箱';8:'內(nèi)部發(fā)送箱';9:'外部轉(zhuǎn)入到內(nèi)部收件箱';a:內(nèi)部發(fā)送過(guò)來(lái)的沒有轉(zhuǎn)的，轉(zhuǎn)換以后發(fā)到收件箱，狀態(tài)位改為7';b:內(nèi)部發(fā)送沒有轉(zhuǎn)的，轉(zhuǎn)換以后發(fā)到發(fā)件箱，狀態(tài)位改為8';c:待需轉(zhuǎn)換的傳真，轉(zhuǎn)換完畢系統(tǒng)自動(dòng)發(fā)送傳真（記住word，excel，pdf不能有密碼）轉(zhuǎn)換以后放到發(fā)件箱，狀態(tài)位改為0FaxNo:傳真編號(hào)，主健和faxfilelist的faxno相關(guān)聯(lián)形成主從關(guān)系。FileSizes：子表內(nèi)所有傳真的文件大小的和Pages：子表內(nèi)所有傳真文件的頁(yè)數(shù)FaxDate：預(yù)定發(fā)送時(shí)間PreFaxDate：下次預(yù)備發(fā)送時(shí)間插入時(shí)和faxdate一樣VocBoxNo：用戶的信箱號(hào)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),--序號(hào)SourceFileNamevarchar(255),--源文件名稱FaxFileimage,--傳真文件FileSizesdecimal(9,0)default0,--大小Pagesintegerdefault0,--頁(yè)數(shù)fileTypechar(1)default'0'--文件類型0：tif1：word2:excel)gocreateINDEXFaxListNo_indONFaxFileList(FaxNo)備注：faxno：和faxinfo的faxno主從關(guān)聯(lián)，faxfile：二進(jìn)制傳真內(nèi)容Filesizes：傳真文件的大小Pages：傳真文件頁(yè)數(shù)Filetype：0：tif文件1：doc文件2：xls文件3：bmp文件4：txt文件5：pdf文件6：wps文件傳真開發(fā)接口說(shuō)明//連接到faxserver電腦functionLinkServer(szIP:pchar;nPort:integer):integer;stdcall;參數(shù)：szIP:服務(wù)器iPnPort:服務(wù)器端口5007返回值：socket句柄//登陸到faxserverfunctionLogon(s:integer;szUserID,szPassword:pchar):integer;stdcall;參數(shù)：s:socket句柄szUserID:Fax用戶szPassword:fax密碼返回值：0：成功-1：失敗//上傳