Скачать: CL | DM;

Сохранение файла 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 которые устанавливаются при посещении определенной страницы.

---

← →
antonn ©   (2012-05-28 20:43) [3]

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 =)

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.929 c