Текстовый файл на "облачном" хранилище

[ДралсяСошибками]

А в чём проблема то? Сам же кинул ссылку на работу с ЯД.

[Алексей_2012]

дак вот именно, без бельмеса не разберешься, в одном из постов приводил код где вроде бы как на Я.Д. сохранялась картинка, кто-нибудь сможет коменты запостить?

Заранее спасибо!

procedure TForm1.Button1Click(Sender: TObject);
Const
  CRLF = #$0a + #$0d;
var
  HTTP: THTTPSend;
  s: AnsiString;
  FS: TFileStream;
begin
  if OpenDialog1.Execute then //выбираем файл
  begin
    try 
     HTTP := THTTPSend.Create;
     FS:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead); //открываем в потоке файл
      HTTP.MimeType := 'multipart/form-data; boundary=END_OF_PART';//непонятно что такое
    { Записываем Mime-тип и данные по файлу }
      s := '--END_OF_PART' + CRLF +
        'Content-Disposition: form-data; name="userfile[]"; filename="FileName.jpg"' //и это, причем тут картинка? Ведь в диалоге открывается любой файл
        + CRLF + 'Content-Type: image/jpeg' + CRLF + CRLF;
      HTTP.Document.Write(PAnsiChar(s)^, Length(s));
      FS.Position := 0;
      // записываем файл в тело документа
      HTTP.Document.CopyFrom(FS, FS.Size);
    { завершаем тело запроса }
    s := CRLF + '--END_OF_PART--' + CRLF;
    HTTP.Document.Write(PAnsiChar(s)^, Length(s)); // завершили тело документа
    // Отправляем запрос
    if HTTP.HTTPMethod('POST', 'http://imagevenue.com/upload.php') then
    begin
      ShowMessage(HTTP.ResultString);
      mmo1.Lines.LoadFromStream(HTTP.Document);
    end;
    finally 
      FS.Free;
      HTTP.Free;
    end;      
  end;
end;

[Человек_Борща]

это скорее загрузка на какой-то хостинг файла, не более.
У облаков же есть свой API.

[Alex11223]

Да уже 2 страницы ему про API говорят.
И про то, что изучение стоит начать с основ НТТР, а не тыканья в левые нагугленные примеры.

вроде бы как на Я.Д.

http://imagevenue.com