|
#1
|
|||
|
|||
ICS - Post запрос
Кто нибудь юзал эти компоненты? Подскажите как отправить пост запрос, что то все догнать не могу...
|
#2
|
|||
|
|||
Разобрался. Код для тех, кто может столкнуться с подобным.
Код:
function Post(url, req: string): string; var Response, Request: TStringStream; Data: string; begin Data := ''; Request := TStringStream.Create(req); Response := TStringStream.Create(''); try try {подразумевается, что sslContext назначен у HTTP} HTTP.SendStream := Request; HTTP.SendStream.Position := 0; HTTP.URL := url; HTTP.RcvdStream := Response; HTTP.Post; Data := Response.DataString; except Data := ''; end; finally Response.Free; Request.Free; end; Result := Data; end; |