Bitmap.LoadFromFile (internetfile)

[mr_fahrrad]

How I make to load an Image to bitmap from Url(internet) file

example
bitmap.loadFromFile('http://www.cis.udel.edu/~mills/pic/hornrab.bmp'); the code above dont work, the error is:
Cannot open file 'c:\PathOfApplication\http://www.cis.udel.edu/~mills/pic/hornrab.bmp'

so, how I make to url?

Thanks a lot

[Luckie]

The method LoadFromFile cannot load a file from the internet. You have to download the file first onto your local hard drive.

[mr_fahrrad]

Hi,

Thanks for reply

I need another solution, I cant save files at my local drive (but stream I can)

[mkinzler]

No Problem use .LoadFromStream() instead

[marabu]

Hi,

you can use the following code, which is a variation from over there: klick

Delphi-Quellcode:

function DownloadBitmap(uri: String; bm: TBitmap): Boolean;
var
  s: TStream;
begin
  Result := False;
  s := TMemoryStream.Create;
  with TIdHTTP.Create(nil) do
  try
    Get(uri, s);
    bm.LoadFromStream(s);
    Result := True;
  finally
    Free;
    s.Free;
  end;
end;

Kind Regards

[Muetze1]

I am wondering about the position property of the memory stream: LoadFromStream() will load from the actual position of the stream, but Get() will append the data or not? Is there really no need to seek to the beginning of the stream?

[mr_fahrrad]

Hi,

I wrote this code basead in your code:

Delphi-Quellcode:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  s: TStream;
  uri:String;
begin
     uri:='http://www.rotary.org/newsroom/downloadcenter/graphics/logos/programs/fellowships/fellowships_bmp.bmp';
  s := TMemoryStream.Create;

  with TIdHTTP.Create(nil) do
  try
    Get(uri, s);
    Image1.picture.bitmap.loadFromStream(s);
  finally
    Free;
    s.Free;
  end;
  showMessage('.');
end;

but dont work, dont appear image in the Image1 component...

I try to save the stream 's' to file and was generated a file with 0bytes...

so, Whats the problem if code above?

Zitat von marabu:

Hi,

you can use the following code, which is a variation from over there: klick

Delphi-Quellcode:

function DownloadBitmap(uri: String; bm: TBitmap): Boolean;
var
  s: TStream;
begin
  Result := False;
  s := TMemoryStream.Create;
  with TIdHTTP.Create(nil) do
  try
    Get(uri, s);
    bm.LoadFromStream(s);
    Result := True;
  finally
    Free;
    s.Free;
  end;
end;

Kind Regards

[Sko]

Hi,

you can try this in marabu´s code:

Delphi-Quellcode:

...
  Get(uri, s);
  s.Position := 0;
  Image1.picture.bitmap.loadFromStream(s);
...

[mr_fahrrad]

Thanks! this solve my ploblem

Thanks for all that help me

Zitat von Sko:

Hi,

you can try this in marabu´s code:

Delphi-Quellcode:

...
  Get(uri, s);
  s.Position := 0;
  Image1.picture.bitmap.loadFromStream(s);
...

[marabu]

Hi Thomas,

that's the point: LoadFromStream() does not reposition the stream - we have to do it explicitly.

Thanks to Sko for lending a hand, too.

So long.