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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.09.2009, 10:20   #1
_SERGEYX_
Участник клуба
 
Аватар для _SERGEYX_
 
Регистрация: 07.07.2007
Сообщений: 1,518
По умолчанию Upload файлов на сервер

Всем привет.
Возникла маленькая проблема. Объясняю ситуацию...
У меня на компе (WinXP SP2) установлен Аппач и MySQL сервер (пока для тестирования использую Денвер). Компьютер имеет постоянный IP. Часть клиентов работает с БД MySQL по локальной сети, часть через интернет. Для доступа к БД использую компоненты MyDac. Также есть папка \home\мой_IP\www\ с пустым индекс-файлом и папкой files (что-то наподобие пустого сайта для обмена файлами). С загрузкой файлов с сервера проблем не возникает, делаю что-то типа

Код:
var m: TMemoryStream;
begin
  try
    m := TMemoryStream.Create;
    IdHttp1.Get('http://мой_IP/files/1.zip', m);
    m.SaveToFile('c:\1.zip');
  except
    ShowMessage('Не получилось загрузить файл');
    Exit;
  end;
  ShowMessage('Файл загружен');
end;
1. А как организовать заливку файлов на сервер из Дельфи?... (Можно, конечно, это сделать через php-скрипт, но не очень хочется этим заниматься).
И еще ...
2. Как прочитать содержимое каталога на сервере?
3. И Ваши соображения по поводу безопасности такой системы? (логины и пароли для доступа к БД у всех юзеров установлены)
Прошу прощения если непонятно написал...
_SERGEYX_ вне форума Ответить с цитированием
Старый 25.09.2009, 13:53   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

1)обычно идет форма для отправки файлов(точнее главное это е обработчик)
и из инди Post+MultiPartData

2)должен быть скрипт который позволяет это читать.

3)ну с виду более менее
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 25.09.2009, 14:36   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Насколько помню:
IdHTTP1.Put(URL,Stream)
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Закачка файлов на сервер...левый D-Snaker PHP 3 25.08.2009 17:10
Upload файла на ftp-сервер методом drag and drop olchick Работа с сетью в Delphi 1 13.07.2009 20:34
Need Help! Передача файлов (Сервер-Клиент) Elandar Работа с сетью в Delphi 1 25.07.2008 00:22
Upload файлов на сервер Snake-YAVA Работа с сетью в Delphi 4 08.06.2007 08:54
Передача файлов на WEB-сервер SeregaP Работа с сетью в Delphi 18 09.04.2007 08:41