| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сохранение файла gif [D7, XP]

Вовка ©   (2012-05-28 12:58:00) 

Есть функция использующая 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 20:43:00) [1]

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

---

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

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

---

antonn   (2012-05-28 13:32:00) [3]

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 сохранить, не помню

---

Наверх