本文提供了两个使用FileWriteEx函数写入文件的例子。第一个例子展示了如何将BLOB数据写入.bmp格式的文件中；第二个例子则说明了如何将字符串写入.txt文件中。
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")
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
