Форум: "Сети";
Текущий архив: 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.46 MB
Время: 0.009 c