Форум: "Сети";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
ВнизIndy, а точнее IdHTTP !!!! HELP ME!!!! Найти похожие ветки
← →
Che (2002-12-07 15:08) [0]Ребята, ни как не могу правильно оформить Get запрос в IdHTTP...
помогите, очень надо..!!!
← →
Smithson (2002-12-07 15:32) [1]Покажи, как делаешь - скажем, где ошибка
← →
Che (2002-12-07 16:07) [2]Я решил использовать POST..вопрос немного изменился...
Где теперь находится тело ответа с сервера??
Заоловок вроде тут - IdHTTP1.Response.RawHeaders.Text
procedure TForm1.Button1Click(Sender: TObject);
var
aStream: TMemoryStream;
Params: TStringStream;
begin
aStream := TMemoryStream.create;
Params := TStringStream.create("");
Params.WriteString(Edit2.Text);
idHTTP1.Post(Edit1.Text, Params,aStream);
Memo1.Lines.Text:=IdHTTP1.Response.RawHeaders.Text;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:=" http://www.someserver.com/enter.asp";
Edit2.Text:="log=555&pas=777";
Memo1.Text:="";
end;
← →
Smithson (2002-12-07 16:23) [3]IdHTTP.Post - это функция (так же как и Get). Она возвращает строку - это и есть ответ сервера
← →
Che (2002-12-07 16:33) [4]Извини, я с делфи совсем недавно работаю..
Можно конкретней ..
Ну в Memo1 отобразить ответ как??
Memo1.Text:=???
← →
Anatoly Podgoretsky (2002-12-07 16:36) [5]Memo1.Text имеет тип стринг, поэтому ему можно присвоить любую строку и результат функции с таким типом.
← →
Che (2002-12-07 16:37) [6]
Memo1.Text:=IdHTTP1.Post(Edit1.Text, Params, aStream);
вот так не работает..почему-то
← →
Александр Павлов (2002-12-07 20:05) [7]Memo1.Text:= aStream.DataString
← →
Che (2002-12-07 20:08) [8]Неа..не работает..
=((
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c