SaveDS Example for Delphi
var
nRet: Integer;
begin
{ save a Data Set }
LEADDicom1.EnableMethodErrors := false;
SaveDialog1.Filter := 'DICOM Data Set|*.dic';
If SaveDialog1.Execute and (SaveDialog1.FileName <> '') Then
begin
nRet := LEADDicom1.SaveDS(SaveDialog1.FileName, 0);
If nRet <> SUCCESS Then
ShowMessage('Error ' + IntToStr(nRet) + ' Saving file ' + SaveDialog1.FileName);
End;
LEADDicom1.EnableMethodErrors := true
end;