Framework EDI Reference. Methods and Properties
ediHttpCfg. Reset

Resets HTTP configuration values to their default values.

Syntax:

• <lRetVal> = object.Reset

Returns:

Returns 1 if successful; 0 if the operation failed.

Example:

' DoSample - This sample demonstrates resetting back the default values of
' the HTTP configuration using the Reset method.
Public Sub DoSample()

Dim oEdiDoc As Fredi.ediDocument
Dim oTransports As Fredi.ediTransports
Dim oTransport As Fredi.ediTransport
Dim oHttpCfg As Fredi.ediHttpCfg

' Create instance of Framework EDI.
Set oEdiDoc = New Fredi.ediDocument

' Get transports object
Set oTransports = oEdiDoc.GetTransports

' Create single transport object for sending document.
Set oTransport = oTransports.CreateTransport

' Get the HTTP config object.
Set oHttpCfg = oTransport.GetHttpCfg

' Change some properties
oHttpCfg.HttpVersion = "HTTP/1.0"
oHttpCfg.SendVerb = "POST"
' Verify the properties have changed.
Debug.Print "HTTP Version: " & oHttpCfg.HttpVersion
Debug.Print "HTTP Verb: " & oHttpCfg.SendVerb

' Reset values to default values.
oHttpCfg.Reset

Debug.Print "HTTP Version: " & oHttpCfg.HttpVersion
Debug.Print "HTTP Verb: " & oHttpCfg.SendVerb

' Set required parameters for the upload.
oTransport.SetHTTP
oTransport.User = "Username"
oTransport.Password = "Password"
oTransport.Address = "255.255.255.255"
oTransport.TargetPath = "/test_folder/"

' Send file.
oTransport.Send "SampleEdiX12_850.X12"

MsgBox "Done"