[Snake22]

фу блин,разобрался.чтоб там небыло nil надо еще в событии
IdHTTPServer1OnCreatePostStream вписать
VPostStream:=TMemoryStream.Create
глупость какая,зачем создавать уже созданную в процедуре переменню???

[nixel]

по умолчанию Delphi (и Object Pascal) создает только объекты базовых типов - integer, string и так далее. Все остальное надо создавать (вызывать метод Create) вручную.

Сообщение от Snake22

глупость какая,зачем создавать уже созданную в процедуре переменню???

В стандартном си так вообще переменные два раза описываются...)

[angvelem]

Сообщение от nixel

по умолчанию Delphi (и Object Pascal) создает только объекты базовых типов - integer, string и так далее. Все остальное надо создавать (вызывать метод Create) вручную.
В стандартном си так вообще переменные два раза описываются...)

Integer, не является объектом как и String.
В си, переменные описываются один раз, как и в Дельфи. Другой вопрос, что там их можно объявить и применить одновременно по ходу действия, а можно и точно также как в Дельфи.

[nixel]

Сообщение от angvelem

Integer, не является объектом как и String.

Извиняюсь, оговорился. Конечно же это не объекты =) Но суть, думаю, я передал =)

Сообщение от angvelem

В си, переменные описываются один раз, как и в Дельфи. Другой вопрос, что там их можно объявить и применить одновременно по ходу действия, а можно и точно также как в Дельфи.

Как еще назвать указание переменной в аргументах функции, а потом ее же объявление перед телом функции, как не двойным описанием?
Никогда не мог понять этой логики =)

[Snake22]

опять прошу помощи.
вобщем если в событии IdHTTPServer1OnCreatePostStream создать
VPostStream то файл заливается нормально. но в событии
IdHTTPServer1CommandGet перестают считываться параметры.
то есть они считываются,но все пустые.
и тем самым я не могу узнать имя файла который принимается

[Snake22]

Решил делать немного по другому.не буду заморачиваться,вобщем сохранение происходит теперь так:
получаю от браузера в строковом виде все данные(имя файла,post запрос и тд),в том числе в строке приходит и сам файл в бинарном виде.
с помощью boundary метки ищу позицию начала и конца бинарного кода файла в тексте,и сохраняю,но при таком сохранении очень много оперативной памяти тратится особенно если файл большой.
весь файл вначале загружается в память,а с моим условием сохранения используемаяпамять увеличивается вдвое.

Код:

//передаём в StringStream чтоб передать в MemoryStream для сохранения
ass:=TStringStream.Create(Copy(ARequestInfo.FormParams,x,y-x)); //х,y - начало и конец бинарного файла в строке
ARequestInfo.free;//освобожд. чтоб уменьшить расход памяти
PostedFile := TMemoryStream.Create;
PostedFile.LoadFromStream(ass);//передаём в MemoryStream для сохранения
ass.Free;
PostedFile.SaveToFile(flname);//сохраняем
PostedFile.Free;

И как можно упростить данный алгоритм чтоб не использовать дублирование? может както указатель передать в MemoryStream и сразу сохранять? без "пузырьков"

и вообще,неужто idhttp такой ущербный,что нельзя файл во время приема в реальном времени сейвить на диск??
ну и Как проверить размер перед отправкой?

[angvelem]

А что тебя не устраивает? Добавь только try-finally-end.:

Код:

  PostedFile := TMemoryStream.Create;
  try
    ass := TStringStream.Create(Copy(ARequestInfo.FormParams,x,y-x)); //х,y - начало и конец бинарного файла в строке
    try
      ARequestInfo.free;//освобожд. чтоб уменьшить расход памяти
      PostedFile.LoadFromStream(ass);//передаём в MemoryStream для сохранения
    finally
      ass.Free;
    end;
    PostedFile.SaveToFile(flname);//сохраняем
  finally
    PostedFile.Free;
  end;

[Snake22]

Сообщение от angvelem

А что тебя не устраивает?
[/code]

И как можно упростить данный алгоритм чтоб не использовать дублирование? может както указатель передать в MemoryStream и сразу сохранять? без "пузырьков"

таким способ при приеме например 300мб файла, оперативки 600метров сожрёт...
Хочется вообще чтоб файл принимался и тутже сохранялся на жесткий диск,тем самым занимая каких-нить пару метров буфера между считыванием и сохранением

[Snake22]

Кто знает как проверить есть ли активные соединения на моем сервере?
ну,например ктото файл выкачивает. нужно проверить и тогда выдать запрос с подтверждением о разрыве свзяи

[Snake22]

Столкнулся еще с одной траблой.если сервер отдаёт комуто файл, то в это время второй клиент уже не может получить этот файл,типа файл уже используется.
файл отдаю так
AResponseInfo.ContentStream:=TFileStream.Create( filename,fmOpenRead);
вроде ж указано что fmOpenRead ,почему он блокируется?
и также кстати если например mp3 файл открыт в плеере, то другими плеерами его в это же время можно слушать, а вот
сервер пишет что файл уже используется и не хочет отправлять его.

[NumLock]

fmShareDenyWrite Other applications can open the file for reading but not for writing.

[Snake22]

NumLock,спасиобо помогло,тока fmShareDenyWrite не подошел а вот fmShareDenyNone то что надо