Скачать: CL | DM;

Вопрос по TidHHP   Найти похожие ветки 

← →
olevacho_ ©   (2006-02-08 20:56) [0]

Нужно с помощью програмки на дельфе передать на веб сервер текст и

записать его в файл. Использую для этого 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-09 11:16) [1]

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

---

← →
MetalFan ©   (2006-02-09 12:32) [2]

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

---

← →
olevacho_ ©   (2006-02-09 15:08) [3]

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

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

---

← →
olevacho_ ©   (2006-02-09 21:50) [4]

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

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

---

← →
umbra ©   (2006-02-10 11:11) [5]

а в скрипте на сервере read возвращает число, равное CONTENT_LENGTH?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c