Module cHttpTransfer.pkg

     1//*************************************************************************
     2//*
     3//*  Copyright (c) 2001 Data Access Corporation, Miami Florida,
     4//*  All rights reserved.
     5//*  DataFlex is a registered trademark of Data Access Corporation.
     6//*
     7//*************************************************************************
     8//*
     9//*  Module Name:
    10//*      cHttpTransfer.plg
    11//*
    12//*  Creator:
    13//*      SF
    14//*  Purpose:
    15//*      Http Xfer class for VDF
    16//*
    17//* In VDF7 this was a base class defined in InetTransfer.pkg. That class
    18//* has been renamed cBaseHttpTransfer and a sub-class is now use for this
    19//* purpose. This occurred because the Post and Put runtime messages were
    20//* changed to use addresses. We now create the string based put and post
    21//* messages here.
    22//*************************************************************************
    23
    24use VDFBase.pkg
    25
    26{ ClassLibrary=Common }
    27{ HelpTopic=cHttpTransfer }
    28Class cHttpTransfer is a cBaseHttpTransfer
    29
    30    Function HttpPostRequest String sFilePath String sData Integer bDataIsFile Returns Integer
    31         integer bStat
    32         Get HttpPostAddrRequest sFilePath (AddressOf(sData)) (Length(sData)) bDataIsfile to bStat
    33         Function_return bStat
    34    end_function
    35
    36    Function HttpPutRequest String sFilePath String sData Integer bDataIsFile Returns Integer
    37         integer bStat
    38         Get HttpPutAddrRequest sFilePath (AddressOf(sData)) (Length(sData)) bDataIsfile to bStat
    39         Function_return bStat
    40    end_function
    41
    42end_class
    43
    44