مسیر عکس از یک هاست

[na_3_er]

سلام من میخوام فرض کنید عکس Image را از یک هاست برگزاری کنه اسم عکس و سایتم به فرض اینه http://barnamenevis.org/1.jpg هست حالا چطوری این کارو کنم من کد را به این صورت مینویسم ولی موقعی که دکمه را میزنم که عکس لود بشه خطا میده.


Image1.Picture.LoadFromFile('http://barnamenevis.org/1.jpg');
:ناراحت:

[دلفــي]

uses
GIFImg;



procedure TForm1.Button1Click(Sender: TObject);
var
MS : TMemoryStream;
Gif: TGIFImage;
begin
MS := TMemoryStream.Create;
try
Gif := TGIFImage.Create;
try
try
IdHTTP1.Get(Trim(Edit1.Text), MS);
except
on e: EIdHTTPProtocolException do begin
if e.ErrorCode = 404 then begin
// not found
exit;
end else begin
// some other reason for failure
raise;
end;
end;
end;
MS.Position := 0;
Gif.LoadFromStream(MS);
Image1.Picture.Assign(Gif);
finally
Gif.Free;
end;
finally
MS.Free;
end;
end;




123809