Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 01.03.2012, 14:56
scroyler scroyler вне форума
Активный
 
Регистрация: 01.08.2011
Адрес: ЧЕбоксары
Сообщения: 248
Версия Delphi: XE
Репутация: -615
По умолчанию Отправка на хостинг

Всем привет)
можете подсказать как отправить какие либо данные на какой нибудь хостинг (сервер там или подобное).
__________________
Ставь спасибо за спасибо!
Помог?Ставь спасибо!Увидел пост? Поставь спасибо!
Ответить с цитированием
  #2  
Старый 01.03.2012, 15:01
Аватар для Amgsys HQ
Amgsys HQ Amgsys HQ вне форума
Начинающий
 
Регистрация: 11.11.2011
Адрес: Загрузочный сектор
Сообщения: 115
Версия Delphi: 7, XE
Репутация: 538
По умолчанию

Если хостинг-провайдер сайтов: можно использовать FTP протокол (TIdFTP) для закачки файлов на хостинг.
__________________
Работа пpогpаммиста и шамана имеет очень много общего:
оба боpмочyт непонятные слова, совеpшают непонятные действия и не могyт объяснить, как оно pаботает.
Ответить с цитированием
  #3  
Старый 01.03.2012, 15:07
scroyler scroyler вне форума
Активный
 
Регистрация: 01.08.2011
Адрес: ЧЕбоксары
Сообщения: 248
Версия Delphi: XE
Репутация: -615
По умолчанию

а где найти примеры? очень интересно)
__________________
Ставь спасибо за спасибо!
Помог?Ставь спасибо!Увидел пост? Поставь спасибо!
Ответить с цитированием
  #4  
Старый 01.03.2012, 15:23
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
var
  IdMultiPartFormDataStream: TIdMultiPartFormDataStream;
begin
  IdHTTP1.HandleRedirects:=True;
  IdHTTP1.Request.UserAgent:='Mozilla/3.0';
  IdMultiPartFormDataStream:=TIdMultiPartFormDataStream.Create;
  IdMultiPartFormDataStream.AddFile('file', 'd:\Downloads\clouds.bmp', 'image/bmp');
  Memo1.Text:=IdHTTP1.Post('http://zalil.ru/upload/', IdMultiPartFormDataStream);
  IdMultiPartFormDataStream.Free;
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #5  
Старый 01.03.2012, 15:29
scroyler scroyler вне форума
Активный
 
Регистрация: 01.08.2011
Адрес: ЧЕбоксары
Сообщения: 248
Версия Delphi: XE
Репутация: -615
По умолчанию

это на фо а мне на хост нужно
__________________
Ставь спасибо за спасибо!
Помог?Ставь спасибо!Увидел пост? Поставь спасибо!
Ответить с цитированием
  #6  
Старый 01.03.2012, 15:44
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

ну так разницы абсолютно никакой, разве что Content-Type: application/octet-stream.
про FTP тебе уже ответили.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #7  
Старый 01.03.2012, 15:50
scroyler scroyler вне форума
Активный
 
Регистрация: 01.08.2011
Адрес: ЧЕбоксары
Сообщения: 248
Версия Delphi: XE
Репутация: -615
По умолчанию

вот так делаю

Код:
var
  ftp: TIdFTP;
  ms:  TMemoryStream;
begin
  ftp:=TIdFTP.Create(Application);
  ms:=TMemoryStream.Create;
  try
    try
      ftp.Host:='vashobmennik.xclan.ru';// ftp àäðåñ ñåðâåðà
      ftp.Port:=21;
      ftp.Username:='h77741';//ëîãèí
      ftp.Password:='ERySHjO9h';//Ïàðîëü
      ftp.Connect(true, 2000);
      AssErt(ftp.Connected);
      ftp.ChangeDir('/');//Óñòàíîâèòü ïàïêó íà ñåðâåðå
      ftp.Put('c:\file.txt','file.txt',false); //Ôàéë Îòêóäà-Êóäà
      ShowMessage('Îòïðàâëåíî');
    finally
      ms.Free; ftp.Free;
    end;
  except
    ShowMessage('Íåóäà÷íàÿ ïîïûòêà îòïðàâêè ôàéëà íà ñåðâåð');
  end;
end;

пишет отправлено) но файл не появляется) данные валидны можетее проверить)
__________________
Ставь спасибо за спасибо!
Помог?Ставь спасибо!Увидел пост? Поставь спасибо!
Ответить с цитированием
  #8  
Старый 01.03.2012, 17:48
ApxaHGe1 ApxaHGe1 вне форума
Активный
 
Регистрация: 08.04.2008
Адрес: Нижний новгород
Сообщения: 311
Репутация: 38
По умолчанию

ftp://vashobmennik.xclan.ru/ зайди.. и там есть файл file.txt
чудо не правда ли ?
Ответить с цитированием
  #9  
Старый 02.03.2012, 11:28
scroyler scroyler вне форума
Активный
 
Регистрация: 01.08.2011
Адрес: ЧЕбоксары
Сообщения: 248
Версия Delphi: XE
Репутация: -615
По умолчанию

блин)
я все сам уже разобрался во всем)
другой хост нашел)
__________________
Ставь спасибо за спасибо!
Помог?Ставь спасибо!Увидел пост? Поставь спасибо!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

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

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:30.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter