delphi - 在Delphi XE2中，上传到天蓝色永远卡住，如何解决？

Question

我正在将图像从 Delphi XE2 上传到 azure。

这就是我所做的：

var
  RespInfo: TCloudResponseInfo;
  Headers: TStringList;
  FileName: String;
  Content : TBytes;
begin
      FHost.PutBlockBlob(FContainer,FileName, Content, EmptyStr, Headers,
        nil, RespInfo);

在 PutBlockBlob 中，当上传一些文件有点大（即 > 1mb）时会永远卡住。

我可以做什么？

PD：一张卡住的示例图片（是随机的，有时它会上传其他不是。大多数时候不是。）

http://bestseller.blob.core.windows.net/superventas/122021.jpg

Answer 1

我对德尔福不熟悉。为解决此问题，您可以尝试使用 Visual Studio 和 C# 上传 blob，如果正常，则问题可能与 Delphi 端有关。如果它也无法在 Visual Studio 中工作，我建议您使用 Fiddler 来监控请求以查看可能不正确的地方。有关使用 C# 上传 blob 的说明，请参阅http://msdn.microsoft.com/en-us/library/windowsazure/gg651129.aspx。

此致，

明旭。