Solved

Download file to memory?

Posted on 2008-10-23
8
287 Views
Last Modified: 2013-11-23
Hi Experts,
Someone can help me to download a file (any file on webs) to the memory (stream or somthing)?

thanks :)
0
Comment
Question by:controlr
  • 4
  • 4
8 Comments
 
LVL 37

Expert Comment

by:Geert Gruwez
ID: 22784458
procedure TForm1.GetFileFromWeb;
var astream: TMemoryStream;
  aFile: string;
begin
  aStream := TMemoryStream.Create;
  try
    idHttp1:=TIdHTTP.Create(self);
    try
      aFile := 'http://www.google.com';
      idHttp1.Get(Site, aStream);
    finally
      idHttp1.Free;
    end;
    // do something with the stream
  finally
    aStream.Free;
  end;
end;  
0
 

Author Comment

by:controlr
ID: 22784903

thats look good
but why i cant load the stream to an Timage?

example:
aFile := 'http://www.makav.co.il/logo.bmp';
  Image1.Picture.Bitmap.LoadFromStream(astream);

thanks for helping
0
 
LVL 37

Expert Comment

by:Geert Gruwez
ID: 22784919
is there a bitmap in the picture before you load it ?

load a bitmap in the picture first with the ide
I can't be anything, like a white bitmap of 1x1 square

then try again
0
Windows Server 2016: All you need to know

Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!

 

Author Comment

by:controlr
ID: 22784967
i tried that allready and it does not work :(
0
 
LVL 37

Expert Comment

by:Geert Gruwez
ID: 22784973
does loading the file from the website work ?
0
 

Author Comment

by:controlr
ID: 22784991
i think yes because when i save it to file i see the image.
but i want to save it to stream and then to load it directly to the timage without using the disk
0
 
LVL 37

Accepted Solution

by:
Geert Gruwez earned 500 total points
ID: 22785088
i can't test the Get function here as i am behind a firewall,
i'll test the other stuff

you need to set the stream to the beginning




procedure TForm1.GetFileFromWeb;
var astream: TMemoryStream;
  aFile: string;
begin
  aStream := TMemoryStream.Create;
  try
    idHttp1:=TIdHTTP.Create(self);
    try
      aFile := 'http://www.google.com';
      idHttp1.Get(Site, aStream);
    finally
      idHttp1.Free;
    end;
    aStream.Seek(soFromBeginning, 0);
    Image1.Picture.Bitmap.LoadFromStream(aStream);
  finally
    aStream.Free;
  end;
end;  

Open in new window

0
 

Author Comment

by:controlr
ID: 22785122
thanks a lot man!!!!
its working
0

Featured Post

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…

809 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question