Question

我正在尝试上传由BING进行GeoCoded的多行文本文件。

1,en-US,,16630 Redmond Way,WA,USA,,,Redmond,98052,,,,,,,,,,,,,,,,,,,,,,
2,en-US,,16552 NE 74th St,WA,,,,Redmond,,,High,,,,,,,,,,,,,,,,,,,,,,
3,en-US,Seattle Space Needle,,,,,,,,,,,,,,,,,,,,,,,,,,,,
4,en-US,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
5,en-US,,W Jefferson Blvd,CA,,,,Los Angeles,90007,,,,,,,,,,,,,,,,,,,,,,,,
6,en-US,,,CA,,,,Los angeles,,,,,,,,,,,,,,,,,,,,,,,,,
7,en-ca,Montreal Canada,,,,,,,,,,,,,,,,,,,,,,,,,,,,
8,en-CA,,444 Kirkpatrick Cres NW,AB,Canada,,,Edmonton,,,,,,,,,,,,,,,,,,,,,,,,
9,en-gb,BD4 9JB,,,,,,,,,,,,,,,,,,,,,,,,,,,,
10,en-us,,,,,,,,,,,,,,,,,,,,,,,,,,,,47.673099,-122.11871
11,en-ca,,,,,,,,,,,,,,,,,,,,,,,,,,,,53.48021728,-113.4030925
12,en-gb,,,,,,,,,,,,,,,,,,,,,,,,,,,,53.77848387,-1.719561517

我目前正在使用TIdHTTP，但似乎文件文件中的换行符在传输文件时被删除，因为他们（Bing）只对文件的第一行进行了地理编码，其余的被忽略了。

lHTTP := TIdHTTP.Create(nil);
...

//Build the http request string
HTTPRequest := 'http://spatial.virtualearth.net/REST/v1/Dataflows/Geocode?input=csv&output=xml&key=' + BingKey;

//Setup the HTTP request parameters
lHTTP.Request.ContentType := 'text/plain';
lHTTP.Request.Method := 'POST';

//Send the request to Bing. Result in XMLResult StringStream
lHTTP.Post(HTTPRequest, lParamList, XMLResult);

以下示例来自Microsoft，但我不足以让使用该流将HTTPWebRequest部分调整为Delphi。任何人都可以帮忙吗？

//Parameters:
//   dataFilePath: The path to the file that contains the spatial data to geocode.
//   dataFormat: The format of the input data. Possible values are xml, csv, tab and pipe.
//   key: The Bing Maps Key to use for this job. The same key is used to get job status and download results.
//   description: Text that is used to describe the geocode dataflow job.
//Return value : A URL that defines the location of the geocode dataflow job that was created.
static string CreateJob(string dataFilePath, string dataFormat, string key, string description)
{
    //Define parameters for the HTTP request
    //
    // The 'Content-Type' header of the HTTP Request must be "text/plain" or "application/xml"
    // depending on the input data format.
    //
    string contentType = "text/plain";
    if (dataFormat.Equals("xml", StringComparison.OrdinalIgnoreCase))
        contentType = "application/xml";

    StringBuilder queryStringBuilder = new StringBuilder();

    //
    // The 'input'(input format) and 'key' (Bing Maps Key) parameters are required.
    //
    queryStringBuilder.Append("input=").Append(Uri.EscapeUriString(dataFormat));
    queryStringBuilder.Append("&");
    queryStringBuilder.Append("key=").Append(Uri.EscapeUriString(key));

    if (!String.IsNullOrEmpty(description))
    {
        //
        // The 'description' parameter is optional.
        //
        queryStringBuilder.Append("&");
        queryStringBuilder.Append("description=").Append(Uri.EscapeUriString(description));
    }

    //Build the HTTP URI that will upload and create the geocode dataflow job
    UriBuilder uriBuilder = new UriBuilder("http://spatial.virtualearth.net");
    uriBuilder.Path = "/REST/v1/dataflows/geocode";
    uriBuilder.Query = queryStringBuilder.ToString();

    //Include the data to geocode in the HTTP request
    using (FileStream dataStream = File.OpenRead(dataFilePath))
    {
        HttpWebRequest request = (HttpWebRequest)WebRequest.Create(uriBuilder.Uri);

        //
        // The HTTP method must be 'POST'.
        //
        request.Method = "POST";
        request.ContentType = contentType;

        using (Stream requestStream = request.GetRequestStream())
        {
            byte[] buffer = new byte[16384];
            int bytesRead = dataStream.Read(buffer, 0, buffer.Length);
            while (bytesRead > 0)
            {
                requestStream.Write(buffer, 0, bytesRead);

                bytesRead = dataStream.Read(buffer, 0, buffer.Length);
            }
        }

        //Submit the HTTP request and check if the job was created successfully.
        using (HttpWebResponse response = (HttpWebResponse)request.GetResponse())
        {
            //
            // If the job was created successfully, the status code should be
            // 201 (Created) and the 'Location' header should contain a URL
            // that defines the location of the new dataflow job. You use this
            // URL with the Bing Maps Key to query the status of your job.
            //
            if (response.StatusCode != HttpStatusCode.Created)
                throw new Exception ("An HTTP error status code was encountered when creating the geocode job.");

            string dataflowJobLocation = response.GetResponseHeader("Location");
            if (String.IsNullOrEmpty(dataflowJobLocation))
                throw new Exception ("The 'Location' header is missing from the HTTP response when creating a goecode job.");

            return dataflowJobLocation;
        }
    }
}

Answer 1

比较代码的两个要点。首先，您将代码发送为text / plain而不是application / xml，然后它们将数据转义，您只需发送XML。您是否尝试过转发数据？

Answer 2

可能TStringList正在改变输入文件的内容。至少有一些字节。最好将数据作为纯流发布，作为内存或文件流。

Indy有以下重载方法发布：

function Post(AURL: string; ASource: TStrings): string; overload;
function Post(AURL: string; ASource: TStream): string; overload;
function Post(AURL: string; ASource: TIdMultiPartFormDataStream): string; overload;
procedure Post(AURL: string; ASource: TIdMultiPartFormDataStream; AResponseContent: TStream); overload;
procedure Post(AURL: string; ASource: TStrings; AResponseContent: TStream); overload;

{Post data provided by a stream, this is for submitting data to a server}
procedure Post(AURL: string; ASource, AResponseContent: TStream); overload;

其中一些适合发布原始流。

Delphi使用HTTP上传文本文件

2 个答案: