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

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 23.09.2007, 04:52   #1
lukash
Новичок
Джуниор
 
Регистрация: 23.09.2007
Сообщений: 2
По умолчанию IdHTTPServer

HI!
парюсь каторый день. не удаётся сделать upload. пользую idhttpserver для приёма файла. может у когонить есть пример или типа того.

Код:
procedure TForm1.ServerCommandGet(AThread: TIdPeerThread; 
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); 
Var PostedFile:TMemoryStream; 
begin 

  If ARequestInfo.Document='/' Then begin 
    With AResponseInfo do begin 
      ContentText:=HtmlForm; 
      WriteContent; 
    end; 
  end else if ARequestInfo.Document='/upload/' then begin 
    PostedFile:=TMemoryStream.Create; 
    Try 
      Try 
        PostedFile.LoadFromStream(ARequestInfo.PostStream); 
        PostedFile.SaveToFile('.\'+(DateToStr(now)+' '+TimeToStr(now)+' '+AThread.Connection.Socket.Binding.PeerIP)); 
        With AResponseInfo do begin 
          ContentText:=HtmlForm('Upload Successful!'); 
          WriteContent; 
        end; 
      except 
        With AResponseInfo do begin 
          ContentText:=HTMLForm('Upload Error!'); 
          WriteContent; 
        end; 
      end; 
    finally 
      PostedFile.Free; 
    end; 
  end; 
end;
lukash вне форума Ответить с цитированием
Старый 24.09.2007, 09:59   #2
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

Что именно не получается из вопроса не понял
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 26.09.2007, 02:26   #3
lukash
Новичок
Джуниор
 
Регистрация: 23.09.2007
Сообщений: 2
По умолчанию

путем проб и ошибок удалось таки скампилить , однако своей функции код не выполняет(
lukash вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы



Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS