Re: Simple DICOM Ping and send images to third party AE Title?

Hi
I am using Leadtools licensed version 15.0.
I have come across Another third party tools for sending images to 1 client to another client.
for example:(another third party tool code)
DICOM PIng:
Dim g As New DicomGlobal
Dim result As Integer
result = g.Echo("192.168.1.19", "1000", "DICOM", "AETITLE")
If hex4(result) = "0000" Then
MsgBox ("Connected")
End If

Send Images:
Dim image As dicomobjects.DicomImage
image.Send("192.168.1.19", "1000", "DICOM", "AETITLE")

Does it avalable in leadtools like this simple code to check AE title entity (Ping status) and send images to another PACS?

Kindlyhelp me.

Regards
Guna

Here is the LEADTOOLS version that will store all the DICOM files in a folder:
Public Sub StoreDirectory()
         DicomEngine.Startup()
         DicomNet.Startup()

         Dim cstoreFolder 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")

         cstoreFolder.Compression = Compression.Native
         cstoreFolder.Store(scp, LEAD_VARS.ImagesDir, "*.*", False)

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


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

Hi Travis

Thanks for the response.