代码
procedure TFrd_GroupDocmFile.Button1Click(Sender: TObject);
var
lGUID, lFileName, lFileURL: string;
lNext: boolean;
begin
Inherited;
lFileURL := Business.System.JSCommon.ModulePath + 'TempFile';
if not sysUtils.FileExists(lFileURL) then
sysUtils.CreateDir(lFileURL);
lFileURL := lFileURL + '\';
with DOCRELEVANCYINFO2.TRELEVANCYVIEW(DocView2.doc) do
begin
lGUID := DataSetBroker.DataSet.FieldByName('FDOCURL').AsString;
lFileName := DataSetBroker.DataSet.FieldByName('FDOCNAME').AsString;