Overloads Public Sub Store( _
   ByVal Scp As DicomScp, _
   ByVal DicomFile As String _
) 

Dim instance As StoreScu
Dim Scp As DicomScp
Dim DicomFile As String
 
instance.Store(Scp, DicomFile)

public void Store( 
   DicomScp Scp,
   string DicomFile
)

public: void Store( 
   DicomScp* Scp,
   string* DicomFile
) 

public:
void Store( 
   DicomScp^ Scp,
   String^ DicomFile
) 

Public Sub StoreFile()
         DicomEngine.Startup()
         DicomNet.Startup()

         Dim cstore As StoreScu = New StoreScu()
         Dim scp As DicomScp = New DicomScp()

         '
         ' Change these parameters to reflect your Dicom server.
         '
         scp.AETitle = "MI_SERVER"
         scp.Port = 104
         scp.Timeout = 60
         scp.PeerAddress = IPAddress.Parse("10.1.1.96")

         AddHandler cstore.ReceiveBuffer, AddressOf cstore_ReceiveBuffer
         AddHandler cstore.BeforeCStore, AddressOf cstore_BeforeCStore
         AddHandler cstore.AfterCStore, AddressOf cstore_AfterCStore
         cstore.Compression = Compression.Lossless
      cstore.Store(scp, Path.Combine(LEAD_VARS.ImagesDir, "Image1.dic"))

         DicomNet.Shutdown()
         DicomEngine.Shutdown()
     End Sub

     Private Sub cstore_ReceiveBuffer(ByVal sender As Object, ByVal e As ReceiveBufferEventArgs)
         Console.WriteLine("{0} bytes of data received", e.BufferSize)
     End Sub

     Private Sub cstore_BeforeCStore(ByVal sender As Object, ByVal e As BeforeCStoreEventArgs)
         '
         ' Stop storing if we received an error
         '
         If Not e.Error Is Nothing Then
             e.Skip = SkipMethod.AllFiles
         End If
     End Sub

     Private Sub cstore_AfterCStore(ByVal sender As Object, ByVal e As AfterCStoreEventArgs)
         Dim msg As String

         msg = String.Format("{0} store complete. Status: {1}", e.FileInfo.FullName, e.Status)
         Console.WriteLine(msg)
     End Sub


Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class

public void StoreFile()
     {
         DicomEngine.Startup();
         DicomNet.Startup();

         StoreScu storeFile = new StoreScu();
         DicomScp scp = new DicomScp();

         //
         // Change these parameters to reflect your Dicom server.
         //
         scp.AETitle = "MI_SERVER";
         scp.Port = 104;
         scp.Timeout = 60;
         scp.PeerAddress = IPAddress.Parse("10.1.1.96");

         storeFile.ReceiveBuffer += new ReceiveBufferDelegate(storeFile_ReceiveBuffer);
         storeFile.BeforeCStore += new BeforeCStoreDelegate(storeFile_BeforeCStore);
         storeFile.AfterCStore += new AfterCStoreDelegate(storeFile_AfterCStore);
         storeFile.Compression = Compression.Lossless;
         string fileName = Path.Combine(LEAD_VARS.ImagesDir, "Image1.dcm");
         storeFile.Store(scp, fileName);

         DicomNet.Shutdown();
         DicomEngine.Shutdown();
     }

     void storeFile_ReceiveBuffer(object sender, ReceiveBufferEventArgs e)
     {
         Console.WriteLine("{0} bytes of data received", e.BufferSize);
     }

     void storeFile_BeforeCStore(object sender, BeforeCStoreEventArgs e)
     {
         //
         // Stop storing if we received an error
         //
         if (e.Error != null)
             e.Skip = SkipMethod.AllFiles;
     }

     void storeFile_AfterCStore(object sender, AfterCStoreEventArgs e)
     {
         string msg;

         msg = string.Format("{0} store complete. Status: {1}", e.FileInfo.FullName, e.Status);
         Console.WriteLine(msg);
     }


static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}