NetReceiveData Example for Delphi

procedure TForm1.LEADDicomNet1NetReceiveData(ASender: TObject;
  hNet: Integer; nID: Smallint; hDicomCS, hDicomDS: Integer);
begin
   //data was received
   Memo1.LInes.Add('Data was received - ' + ' ID: ' + IntToStr(nID));

   if(hDicomDS = 0)then
     Memo1.Lines.Add('Data is a command set only!')
   else
   begin
     //save the data set to disk
     Memo1.Lines.Add('Data includes a data set - saved to disk!');
     LEADDicomDS1.SaveExtDS(hDicomDS, 'c:\temp\test.dic', 0);
   end;
end;