Текущий архив: 2004.01.16;
Скачать: CL | DM;

Вниз

Получение ответов на запросы веб-серверу   Найти похожие ветки 

← →
CYBERWOLF ©   (2004-01-03 19:08) [0]

Как можно послать запрос веб-серверу и получить от него ответ? Заранее спасибо.

---

← →
имя   (2004-01-03 22:30) [1]

Удалено модератором

---

← →
CYBERWOLF ©   (2004-01-03 23:39) [2]

хм.. спасибо.

---

← →
имя   (2004-01-04 22:25) [3]

Удалено модератором

---

← →
Erik ©   (2004-01-05 12:57) [4]

Используй компонет Indy TIdHTTP.
Http.Request.ContentType := "text/plain";

Response := TStringStream.Create("");
Source := TMemoryStream.Create;
try
try
while BuildXML.BuildXML do
begin
Source.SetSize(Length(BuildXML.XML));
Buf := BuildXML.XML;
Move(PChar(BuildXML.XML)^, Source.Memory^, Source.Size);

HTTP.Post(Params.Yldine.HTTPServer, Source, Response);
BuildXML.ParseXML(Response.DataString);
// ShowMessage(Response.DataString);
end;
except

end;
finally
Response.Free;
Source.Free;
end;

---

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

Текущий архив: 2004.01.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c