Сохранение файла gif

← →
Вовка (2012-05-28 12:58) [0]

Есть функция использующая Synacode. К примеру если я загружаю картинку с помощью данной функции. Как мне ее потом сохранить?
function send_post(request,url_send,agent,referer:string):s tring; var stream: TStringStream; BodyS: TStringList; HTTP:THTTPSend; begin HTTP := THTTPSend.Create; try HTTP.Document.Clear; HTTP.UserAgent := agent; HTTP.MimeType := "application/x-www-form-urlencoded"; HTTP.Headers.Add("Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" ); HTTP.Headers.Add("AcceptLanguage: ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3"); HTTP.Headers.Add("Referer: "+referer); if(cookie<>"") then HTTP.Cookies.Text:=cookie; if(request<>"") then begin stream:=TStringStream.Create(""); stream.WriteString(request); HTTP.Document.LoadFromStream(stream); HTTP.HTTPMethod("post",url_send); end; BodyS := TStringList.Create; BodyS.LoadFromStream(HTTP.Document); Result:=BodyS.Text; finally HTTP.Free; end; end;

← →
antonn © (2012-05-28 13:32) [1]

mm:tmemorystream; begin .. mm.SetSize(HTTPSend.Document.Size); HTTPSend.Document.Position:=0; mm.Position:=0; mm.CopyFrom(HTTPSend.Document,HTTPSend.Document.Size); mm.Position:=0; mm.savetofile("fff.gif");
типа этого, возможно можно прям из HTTPSend.Document сохранить, не помню

← →
Вовка (2012-05-28 20:15) [2]

Большое спасибо разобрался. А не подскажите как получить через Synacode cookie которые устанавливаются при посещении определенной страницы.

HTTP.Cookies {:This is stringlist with name-value stringlist pairs. Each this pair is one cookie. After HTTP request is returned cookies parsed to this stringlist. You can leave this cookies untouched for next HTTP request. You can also save this stringlist for later use.}

и не Synacode, а synapse =)

Сохранение файла gif Найти похожие ветки