获取SQLServer备份文件的信息

这段过程是获取sqlServer2000备份文件的逻辑信息，备份文件数据库文件的原始路径，备份文件的数据库文件的逻辑文件名，log文件的原始路径及逻辑文件名。 其他信息详见sqlServer2000帮助 procedure GetDBLogPath(dbname: string; var Logicdbname,  LogicLogName,DBPath,LogPath: string); var   vDataSet: TDataSet;   vsql: string;   vType: string; begin   vDataSet := sqlService.CreateDataSet;   try     vsql := 'RESTORE FILELISTONLY FROM disk=' + QuotedStr(RestoreFileName);     sqlService.GetData(vDataSet,vsql);     vDataSet.First;     while not vDataSet.Eof do     begin       vType := trim(vDataSet.FieldByName('Type').Asstring);       if vType = 'D' then       begin         Logicdbname := trim(vDataSet.FieldByName('LogicalName').Asstring);         DBPath := trim(vDataSet.FieldByName('PhysicalName').Asstring);       end else         if vType = 'L' then         begin           LogicLogName := trim(vDataSet.FieldByName('LogicalName').Asstring);           LogPath := trim(vDataSet.FieldByName('PhysicalName').Asstring);         end;       vDataSet.Next;     end;   finally     vDataSet.Free;   end; end;