Delphi XE2 から azure に画像をアップロードしています。
これが私がすることです:
var
RespInfo: TCloudResponseInfo;
Headers: TStringList;
FileName: String;
Content : TBytes;
begin
FHost.PutBlockBlob(FContainer,FileName, Content, EmptyStr, Headers,
nil, RespInfo);
PutBlockBlob では、一部のファイルを少し大きい (つまり、1 MB を超える) アップロードすると、永久に動かなくなります。
私は何ができますか?
PD: 動かなくなったサンプル画像 (ランダムです。アップロードされる場合もあれば、アップロードされない場合もあります。ほとんどの場合はそうではありません。)
http://bestseller.blob.core.windows.net/superventas/122021.jpg