ipersistfileimpl.pas

来自「About delphi opc server a good file...」· PAS 代码 · 共 31 行

function TDA2.GetClassID(out classID:TCLSID):HResult;stdcall;
begin
 result:=S_FALSE;
end;

function TDA2.IsDirty:HResult;stdcall;
begin
 result:=S_FALSE;
end;

function TDA2.Load(pszFileName:POleStr; dwMode:Longint):HResult;stdcall;
begin
 result:=S_FALSE;
end;

function TDA2.Save(pszFileName:POleStr; fRemember:BOOL):HResult;stdcall;
begin
 result:=S_FALSE;
end;

function TDA2.SaveCompleted(pszFileName:POleStr):HResult;stdcall;
begin
 result:=S_FALSE;
end;

function TDA2.GetCurFile(out pszFileName:POleStr):HResult;stdcall;
begin
 result:=S_FALSE;
end;