Получение ответов на запросы веб-серверу

← →
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]

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

Используй компонет 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;

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