FileWriteEx ( file#, blob {, length })
FileWriteEx ( file#, string )
//例1：写blob
integer li_FileNum
blob emp_id_pic
SELECTBLOB salary_hist INTO :emp_id_pic FROM Employee WHERE Employee.Emp_Num=100 USING Emp_tran;
li_FileNum = FileOpen("C:\EMPLOYEE\EMP_PICS.BMP", StreamMode!, Write!, Shared!, Replace!)
FileWriteEx(li_FileNum, emp_id_pic)
//例2：写string
integer li_FileNum
li_FileNum = FileOpen("C:\HR\EMP_DATA.TXT", TextMode!, Write!,LockWrite!, Append!)
FileWriteEx(li_FileNum, "New Employees")
FileWriteEx ( file#, string )
//例1：写blob
integer li_FileNum
blob emp_id_pic
SELECTBLOB salary_hist INTO :emp_id_pic FROM Employee WHERE Employee.Emp_Num=100 USING Emp_tran;
li_FileNum = FileOpen("C:\EMPLOYEE\EMP_PICS.BMP", StreamMode!, Write!, Shared!, Replace!)
FileWriteEx(li_FileNum, emp_id_pic)
//例2：写string
integer li_FileNum
li_FileNum = FileOpen("C:\HR\EMP_DATA.TXT", TextMode!, Write!,LockWrite!, Append!)
FileWriteEx(li_FileNum, "New Employees")
扫一扫
940
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
