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

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

Indy, а точнее IdHTTP !!!! HELP ME!!!! [D7, WinXP]

Che ©   (2002-12-07 15:08:00) 

Ребята, ни как не могу правильно оформить Get запрос в IdHTTP...
помогите, очень надо..!!!

---

Che   (2002-12-07 20:08:00) [1]

Неа..не работает..
=((

---

Александр Павлов   (2002-12-07 20:05:00) [2]

Memo1.Text:= aStream.DataString

---

Che   (2002-12-07 16:37:00) [3]


Memo1.Text:=IdHTTP1.Post(Edit1.Text, Params, aStream);

вот так не работает..почему-то

---

Anatoly Podgoretsky   (2002-12-07 16:36:00) [4]

Memo1.Text имеет тип стринг, поэтому ему можно присвоить любую строку и результат функции с таким типом.

---

Che   (2002-12-07 16:33:00) [5]

Извини, я с делфи совсем недавно работаю..
Можно конкретней ..
Ну в Memo1 отобразить ответ как??
Memo1.Text:=???

---

Smithson   (2002-12-07 16:23:00) [6]

IdHTTP.Post - это функция (так же как и Get). Она возвращает строку - это и есть ответ сервера

---

Che   (2002-12-07 16:07:00) [7]

Я решил использовать 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 15:32:00) [8]

Покажи, как делаешь - скажем, где ошибка

---

Наверх