Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 23.03.2010, 17:51   #1
Slimshaddy
Новичок
 
Аватар для Slimshaddy
 
Регистрация: 23.03.2010
Адрес: Пермь
Сообщений: 2
Репутация: 10

icq: 333511031
По умолчанию отправка файла synapse

Доброго времени суток всем)

Есть вопрос: подскажите, пожалуйста, как можно средствами Synapse, организовать отправку файла на сервер. Раньше использовал инди (TIdMultipartFormDataStream+Post), решил отказаться, перейти на синапс. Все просто освоилось, только это. Как это реализовать в синапсе?
Slimshaddy вне форума   Ответить с цитированием
Старый 02.04.2010, 15:24   #2
Slimshaddy
Новичок
 
Аватар для Slimshaddy
 
Регистрация: 23.03.2010
Адрес: Пермь
Сообщений: 2
Репутация: 10

icq: 333511031
По умолчанию

ну или подскажите альтернативные компоненты или способы отправки файла
Slimshaddy вне форума   Ответить с цитированием
Старый 30.07.2013, 00:46   #3
ingushmen
Пользователь
 
Аватар для ingushmen
 
Регистрация: 13.11.2010
Адрес: C:\Windows\System32
Сообщений: 13
Репутация: 10

icq: 396115721
skype: trialanet
По умолчанию

Код:

var
FormData : TIdMultiPartFormDataStream;
Response,url,server,r,hash,rhash:string;
data:tstringlist;
begin
FormData := TIdMultiPartFormDataStream.Create;
FormData.AddFile('file1', '3.jpg', 'multipart/form-data');
Response := IdHTTP1.Post(url, FormData);
FormData.Free;
end;

конечно поздно, но я сюда попал через гугл и надеюсь кому-то пригодится...
ingushmen вне форума   Ответить с цитированием
Старый 30.07.2013, 01:27   #4
Человек_Борща
Модератор
Заслуженный модератор
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Адрес: Республика Беларусь, г. Минск
Сообщений: 11,447
Репутация: 2769
По умолчанию

1. Это не повод подымть древние темы.
2. Автор отказался от Indy, и просит реализацию на Synapse.
3. Коли я тут отписался, то подкину солюшен:
Используя THTTPSendEx файл можно отправить так же просто как и в Indy:
Код:

var
 HTTP:THTTPSendEx;
 Data:TMultipartFormDataStream;
 sHTML:string; //Recived HTML code from web
begin
 HTTP:=THTTPSEndEx.Create;
 Data:=TMultipartFormDataStream.Create;
 try
  Data.AddFile('myFile','Path to the local file(No UNC paths)');
  Data.DataEnd;
  if HTTP.Post('',Data,sHTML) then
  begin
  //Connection established
  //Check HTTP response
  if HTTP.IsSuccessfull then  //HTTP returns "200 OK" code.
  begin
    ShowMessage('File successfully posted to the server.');
  end;
  end else
  begin
   ShowMessage('Can not establish a connection to the server...'+#13+'Network is not avaliable or server socket does not exist.');
  end;
 finally
   FreeAndNil(HTTP);
   FreeAndNil(Data);
 end;
end;


Последний раз редактировалось Человек_Борща; 30.07.2013 в 01:29.
Человек_Борща вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отправка файла на файлообменник W0LF Работа с сетью в Delphi 18 17.01.2010 17:12
отправка файла по почте DeDoK Работа с сетью в Delphi 1 10.11.2008 11:13
Отправка файла на сервер kirill555 PHP 8 21.12.2007 13:51


07:16.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru