Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.04.2015, 21:54   #11
Алексей_2012
t45t
Участник клуба
 
Аватар для Алексей_2012
 
Регистрация: 20.03.2012
Сообщений: 1,849
По умолчанию

А как отправить текстовый файл на яндекс диск?
from dark to light)
Алексей_2012 вне форума Ответить с цитированием
Старый 25.04.2015, 21:56   #12
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Так же как и не текстовый.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 25.04.2015, 22:04   #13
Алексей_2012
t45t
Участник клуба
 
Аватар для Алексей_2012
 
Регистрация: 20.03.2012
Сообщений: 1,849
По умолчанию

я забросил тогда этот проект всвязи с нехваткой времени.

Вот какой-то код нашел, помогите разобраться.

Код:

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;
from dark to light)
Алексей_2012 вне форума Ответить с цитированием
Старый 25.04.2015, 22:06   #14
Алексей_2012
t45t
Участник клуба
 
Аватар для Алексей_2012
 
Регистрация: 20.03.2012
Сообщений: 1,849
По умолчанию

Возможно ли использовать tstringlist вместо tfilestream.
from dark to light)
Алексей_2012 вне форума Ответить с цитированием
Старый 25.04.2015, 22:35   #15
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

На предыдущей странице написано что изучать.
Сначала основы HTTP (и HTTP клиенты в Дельфи, Indy или Synapse), потом API яндекс.диска.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 25.04.2015, 22:54   #16
Vapaamies
Ваш К. О.
Участник клуба
 
Аватар для Vapaamies
 
Регистрация: 26.12.2012
Сообщений: 1,777
По умолчанию

API Яндекс.Диска изучать не нужно, он работает через обычный WebDAV. WebDAV надо изучать.
Vapaamies на форуме Ответить с цитированием
Старый 25.04.2015, 23:02   #17
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Ну там на выбор обычное HTTP REST API или WebDAV.

В общем главное хоть что-то изучать.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 26.04.2015, 00:29   #18
Vapaamies
Ваш К. О.
Участник клуба
 
Аватар для Vapaamies
 
Регистрация: 26.12.2012
Сообщений: 1,777
По умолчанию

Чисто теоретически можно попробовать найти готовые компоненты для WebDAV... Вангую тему "Как установить компоненты WebDAV?"
Vapaamies на форуме Ответить с цитированием
Старый 26.04.2015, 00:49   #19
Алексей_2012
t45t
Участник клуба
 
Аватар для Алексей_2012
 
Регистрация: 20.03.2012
Сообщений: 1,849
По умолчанию

не обольщайтесь, на счет WebDav, уже нашел до этого пару тем, но там с синапси работало, и то подробного описания о заливки файла на Я.Д. не было, вот ссыль на ресурс.
from dark to light)
Алексей_2012 вне форума Ответить с цитированием
Старый 26.04.2015, 14:00   #20
Алексей_2012
t45t
Участник клуба
 
Аватар для Алексей_2012
 
Регистрация: 20.03.2012
Сообщений: 1,849
По умолчанию

Есть ли у кого-нибудь код, где файл копируется на яндекс-диск?
from dark to light)
Алексей_2012 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан символ "С" - прописная (заглавная) русская буква и текстовый файл mm00 Помощь студентам 0 03.03.2014 22:23
Организовать текстовый файл f, состоящий из N строк. Организовать замену символов в файле. "Старый" символ и "новый" символ запраш Richik123 Паскаль, Turbo Pascal, PascalABC.NET 1 14.06.2012 16:28
Дан текстовый файл.Напечатать все его строки начинающиеся с символа "Т". Richik123 Паскаль, Turbo Pascal, PascalABC.NET 2 31.05.2012 19:37
Организовать текстовый файл f, состоящий из N строк. Организовать замену символов в файле. "Старый" символ и "новый" символ запра Richik123 Паскаль, Turbo Pascal, PascalABC.NET 0 31.05.2012 17:32