[Dmitry111]

Так не работает:

Код:

procedure TFDraft.Button1Click(Sender: TObject);
var
  ms:   TMemoryStream;
  jpeg: TJpegImage;
  url: string;
begin
  ms := TMemoryStream.Create;
  jpeg := TJpegImage.Create;
  try
    url:= 'http://sitename.info/images/чертеж.jpg';
    IdHTTP1.Get(url, ms);
    ms.Position := 0;
    jpeg.LoadFromStream(ms);
    Image1.Picture.Graphic := jpeg;
  finally
    jpeg.Free; ms.Free;
  end;
end;

так работает:

Код:

procedure TFDraft.Button1Click(Sender: TObject);
var
  ms:   TMemoryStream;
  jpeg: TJpegImage;
  url: string;
begin
  ms := TMemoryStream.Create;
  jpeg := TJpegImage.Create;
  try
    url:= 'http://sitename.info/images/draft.jpg';
    IdHTTP1.Get(url, ms);
    ms.Position := 0;
    jpeg.LoadFromStream(ms);
    Image1.Picture.Graphic := jpeg;
  finally
    jpeg.Free; ms.Free;
  end;
end;

lmikle: Пользуемся тегами!!!

одна и та же картинка, сохраненная под разными именами, находится все на DENWER'е, подскажите что сделать ?!