请教Delphi中如何实现文件的自动保存,谢谢各位。
function SaveSpectrum(CID:LongWord;Buffer:LongInt;pFileName:PChar):LongInt;stdcall;external 'RTIFCCLIENT.DLL';// pFilename : Complete filename for spectrum ( normally with *.spx extension )
// Result : Function call sucessful or not ( 0 = success, otherwise error )
function SaveSpectrum //save spectrum from buffer to file
(CID: longword;
Buffer: longint;
pFileName: PChar):longint;
CID: Identification code (handle) for server/client to be addressed
Buffer: Index of buffer in server (equals device index, buffer 0 reserved for load
function )
pFileName:: Pointer to complete path, filename and extension, referring to local or mapped disks
以上是我现在在编的一个程序中引用的DLL中的一个函数的说明,我需要用这个函数来实现文件的自动保存,因为在程序中使用了循环,所以必须要实现自动保存,不能通过保存对话框(SaveDialog.FileName)来实现。
望各位高手不吝赐教,小弟感激不尽!!!