Форум: "Основная";
Текущий архив: 2004.01.16;
Скачать: [xml.tar.bz2];
ВнизПолучение ответов на запросы веб-серверу Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c