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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 23.09.2007, 04:52   #1
lukash
Новичок
 
Регистрация: 23.09.2007
Сообщений: 2
Репутация: 10
По умолчанию 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
Репутация: 1192

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

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

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

Опции темы

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

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

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


15:12.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.