Store(DicomScp,String,String,Boolean,Boolean) Method

Sends a C-STORE-REQ message to a peer member of a connection defined by Scp.

Syntax

C#
Visual Basic
Objective-C
Java
C++

public void Store( 
   DicomScp Scp,
   string Dir,
   string SearchPattern,
   bool Recurse,
   bool singleConnection
)

'Declaration
 
Public Overloads Sub Store( _
   ByVal Scp As DicomScp, _
   ByVal Dir As String, _
   ByVal SearchPattern As String, _
   ByVal Recurse As Boolean, _
   ByVal singleConnection As Boolean _
)

'Usage
 
Dim instance As StoreScu
Dim Scp As DicomScp
Dim Dir As String
Dim SearchPattern As String
Dim Recurse As Boolean
Dim singleConnection As Boolean
 
instance.Store(Scp, Dir, SearchPattern, Recurse, singleConnection)

public:
void Store( 
   DicomScp^ Scp,
   String^ Dir,
   String^ SearchPattern,
   bool Recurse,
   bool singleConnection
)

Parameters

Scp: The peer connection to send the C-MOVE-REQ to.
Dir: The file directory to search for DICOM files.
SearchPattern: The search pattern.
Recurse: If set to true recurse the directory.
singleConnection: If set to true use a single DICOM connection for all C-STORE.

Example

Stores all DICOM files in the specified directory to a DICOM server.

C#
Visual Basic
WinRT C#
WinRT JavaScript
Silverlight C#
Silverlight VB

Copy Code

Imports Leadtools
Imports Leadtools.Dicom.Scu
Imports Leadtools.Dicom.Scu.Common
Imports Leadtools.Dicom
Imports Leadtools.Dicom.Common.DataTypes

<TestMethod()> _
Public Sub StoreDirectory()
    DicomEngine.Startup()
    DicomNet.Startup()

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

    '
    ' Change these parameters to reflect the calling AETitle.
    '
    cstoreFolder.AETitle = "LEAD_CLIENT"
    cstoreFolder.HostPort = 1000
 cstoreFolder.HostAddress = Dns.GetHostEntry(Dns.GetHostName()).AddressList.FirstOrDefault(Function(ip) ip.AddressFamily = AddressFamily.InterNetwork)

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

    AddHandler cstoreFolder.BeforeAssociateRequest, AddressOf cstoreFolder_BeforeAssociateRequest
    AddHandler cstoreFolder.AfterAssociateRequest, AddressOf cstoreFolder_AfterAssociateRequest
    AddHandler cstoreFolder.BeforeCStore, AddressOf cstoreFolder_BeforeCStore
    AddHandler cstoreFolder.AfterCStore, AddressOf cstoreFolder_AfterCStore
    cstoreFolder.Compression = Compression.Native
 cstoreFolder.Store(scp, LEAD_VARS.ImagesDir, "*.*", False)

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

Private Sub cstoreFolder_BeforeAssociateRequest(ByVal sender As Object, ByVal e As BeforeAssociateRequestEventArgs)
    Console.WriteLine("Before AssociateRequest")
End Sub

Private Sub cstoreFolder_AfterAssociateRequest(ByVal sender As Object, ByVal e As AfterAssociateRequestEventArgs)
    Dim scu As StoreScu = TryCast(sender, StoreScu)

    Console.WriteLine("After AssociateRequest")
    Dim i As Integer = 0
    Do While i < e.Associate.PresentationContextCount
        Dim pid As Byte = e.Associate.GetPresentationContextID(i)
        Dim absSyntax As String = e.Associate.GetAbstract(pid)
        Dim result As DicomAssociateAcceptResultType = e.Associate.GetResult(pid)
        Dim uid As DicomUid = DicomUidTable.Instance.Find(absSyntax)

        Console.WriteLine(Constants.vbTab & "PresentationContext ({0})", pid)
        Console.WriteLine(Constants.vbTab + Constants.vbTab & "AbstractSyntax: {0}", absSyntax)
        If Not uid Is Nothing Then
            Console.WriteLine(Constants.vbTab + Constants.vbTab & "Description: {0}", uid.Name)
        End If
        Console.WriteLine(Constants.vbTab + Constants.vbTab & "Result: {0}", result)
        i += 1
    Loop
End Sub

Private Sub cstoreFolder_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 cstoreFolder_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

using Leadtools;
using Leadtools.Dicom.Scu;
using Leadtools.Dicom.Scu.Common;
using Leadtools.Dicom;
using Leadtools.Dicom.Common.DataTypes;

[TestMethod]
public void StoreDirectory()
{
    DicomEngine.Startup();
    DicomNet.Startup();

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

    //
    // Change these parameters to reflect the calling AETitle.
    //


    storeDirectory.AETitle = "LEAD_CLIENT";
    storeDirectory.HostPort = 1000;
    storeDirectory.HostAddress = Dns.GetHostEntry(Dns.GetHostName()).AddressList.FirstOrDefault(ip => ip.AddressFamily == AddressFamily.InterNetwork);

    //
    // Change these parameters to reflect the called AETitle (server).
    //


    scp.AETitle = "MI_SERVER";
    scp.Port = 104;
    scp.Timeout = 60;
    scp.PeerAddress = IPAddress.Parse("10.1.1.96");

    storeDirectory.BeforeAssociateRequest += new BeforeAssociationRequestDelegate(storeDirectory_BeforeAssociateRequest);
    storeDirectory.AfterAssociateRequest += new AfterAssociateRequestDelegate(storeDirectory_AfterAssociateRequest);
    storeDirectory.BeforeCStore += new BeforeCStoreDelegate(storeDirectory_BeforeCStore);
    storeDirectory.AfterCStore += new AfterCStoreDelegate(storeDirectory_AfterCStore);
    storeDirectory.Compression = Compression.Native;            
    storeDirectory.Store(scp, LEAD_VARS.ImagesDir, "*.*", false);

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

void storeDirectory_BeforeAssociateRequest(object sender, BeforeAssociateRequestEventArgs e)
{
    Console.WriteLine("Before AssociateRequest");
}

void storeDirectory_AfterAssociateRequest(object sender, AfterAssociateRequestEventArgs e)
{
    StoreScu scu = sender as StoreScu;

    Console.WriteLine("After AssociateRequest");
    for (int i = 0; i < e.Associate.PresentationContextCount; i++)
    {
        byte pid = e.Associate.GetPresentationContextID(i);
        string absSyntax = e.Associate.GetAbstract(pid);
        DicomAssociateAcceptResultType result = e.Associate.GetResult(pid);
        DicomUid uid = DicomUidTable.Instance.Find(absSyntax);

        Console.WriteLine("\tPresentationContext ({0})", pid);
        Console.WriteLine("\t\tAbstractSyntax: {0}", absSyntax);
        if (uid != null)
            Console.WriteLine("\t\tDescription: {0}", uid.Name);
        Console.WriteLine("\t\tResult: {0}", result);
    }
}

void storeDirectory_BeforeCStore(object sender, BeforeCStoreEventArgs e)
{
    //
    // Stop storing if we received an error
    //


    if (e.Error != null)
        e.Skip = SkipMethod.AllFiles;
}

void storeDirectory_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";
}

Requirements

Target Platforms

Reference

StoreScu Class
StoreScu Members
Overload List