Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Вопрос по TidHHP [D4, WinXP]

olevacho_ © (2006-02-08 20:56:00)
Нужно с помощью програмки на дельфе передать на веб сервер текст и

записать его в файл. Использую для этого tidHTTP из indy 8 version. На

клиентской стороне текст для файла вводится в Tmemo и при нажатии

кнопки send исполняется обработчик

var response:TStringStream;
begin
Response := TStringStream.Create('');
HTTP.Post(' http://localhost/cgi-bin/savefile1.cgi', mePostData.Lines,

Response);// mePostdata-это memo в котором печатаются строки

предназначенные для записи в файл
memo1.Lines.Text := Response.DataString;
Response.Free;
end;

на серверной стороне принимает запрос perl скрипт

#!/perl/bin/perl
read(STDIN,$request,$ENV{'CONTENT_LENGTH'});
@strings=split(/&/,$request);
$filedescr="file1.htm";
open(OUTF,">../htdocs/descr/$filedescr");
print OUTF ( $request);
close (OUTF);

Проблемма в том что при отправке запроса в файл записываются все строки

а только первая. Возможно этот вопрос и не имеет отношения к Дельфе но

если клиетскую часть написать на html через броузер то все работает ОК.

umbra (2006-02-10 11:11:00) [1]
а в скрипте на сервере readвозвращает число, равное CONTENT_LENGTH?

olevacho_ (2006-02-09 21:50:00) [2]

> а этот самый CONTENT_LENGTH совпадает длиной переданных
> строк?

Да он совпадает с количеством переданных символов во всех строках

olevacho_ (2006-02-09 15:08:00) [3]

> поставь Indy 9 последнюю версию...

Не могу. Под D4 идет только 8.

MetalFan (2006-02-09 12:32:00) [4]
поставь Indy 9 последнюю версию...

umbra (2006-02-09 11:16:00) [5]
а этот самый CONTENT_LENGTHсовпадает длиной переданных строк?

Наверх

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