Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Пересылка файлов посредством NMHTTP [D6, Win2k]


Vint45 ©   (2003-09-13 14:48:00) 

Здраствуйте! Для пересылки файлов я использую компонент TNMHTTP и его метод POST:

nmhttp.Post(" http://localhost/cgi-bin/aaa.cgi","c:\test.txt");

При передаче маленьких файлов все проходит нормально, но если размер файла превышает 8192 байт, то файл обрубается. Это ограничение протокола? или я что не так делаю?
Принимающая программа (CGI) на веб-сервере использульзует стандартное устройство ввода-вывода:

StdIn:=GetStdHandle(STD_INPUT_HANDLE);
Size:=SetFilePointer(StdIn,0,nil,FILE_END);
SetFilePointer(StdIn,0,nil,FILE_BEGIN);
SetLength(STR,Size+1);
if (Size <= 0) then Exit;
ReadFile(StdIn, STR[1], Size, Actual, nil); // Читаем данные из стандартного устройства ввода


Vint45   (2003-09-13 18:55:00) [1]

Можно ли изменять этот буфер?
И еще, у меня не получается отослать файл обратно с сервера. Если для получения файла я использую конструкцию описанную выше, то для записи в стандартный поток ввода-вывода я использую:

StdOut:=GetStdHandle(STD_OUTPUT_HANDLE);
SetFilePointer(StdOut,0,nil,FILE_BEGIN);
WriteFile(StdLOut, STR[1], Size, Actual, nil);

и не получаю ответа на клиенте... видимо надо еще формировать заголовок. Только как с ним я не эксперементировал, желаемых результатов нет.


Fay   (2003-09-13 18:29:00) [2]

8192 - это размер сендбуфера. Шли кусками 8)


Наверх

Титульная страница Поиск, карта сайта Написать письмо