Witam,
Potrzebuję za pomocą IdHHTP.Get pobierać obrazek i zapisywać go na dysku. Znalazłem taki kod (link na dole), który działa dobrze po za jednym. Mianowicie nie mam pojęcia jak zapisać Stream do pliku .gif. Ktoś mógłby podpowiedzieć jak mam to zapisać do pliku?
uses
GIFImg;
procedure TForm1.btn1Click(Sender: TObject);
var
MS : TMemoryStream;
GIf: TGIFImage;
begin
MS := TMemoryStream.Create;
GIf := TGIFImage.Create;
try
IdHTTP1.get('http://www.google.com/intl/en_ALL/images/logo.gif',MS);
Ms.Seek(0,soFromBeginning);
Gif.LoadFromStream(MS);
img1.Picture.Assign(GIF);
finally
FreeAndNil(GIF);
FreeAndNil(MS);
end;
end;