Autor Téma: Image a načtení obrázku z internetu a zmenšení  (Přečteno 7764 krát)

Offline Kony

  • Hrdina
  • ****
  • Příspěvků: 299
  • Karma: 1
    • Verze Delphi: Delphi 7
Image a načtení obrázku z internetu a zmenšení
« kdy: 19-11-2019, 19:59:32 »
Ahoj, je nějaká možnost vložit do TImage obrázek přímo z internetu když znám internetový odkaz a potom aby se obrázek zmenšil a nebo zvětšil dle velikosti okna Timage ? ve většině se bude jednat o jpg

Offline Jirka

  • Hrdina
  • ****
  • Příspěvků: 279
  • Karma: 9
    • Verze Delphi: XE2
Re:Image a načtení obrázku z internetu a zmenšení
« Odpověď #1 kdy: 19-11-2019, 21:47:17 »
Ve zkratce
Pro stažení použít Synapsi - příklad je zde  https://delphi.cz/post/Download-upload-HTTP-Synapse-Delphi.aspx
a u TImage použít vlastnost Stretch

Offline Kony

  • Hrdina
  • ****
  • Příspěvků: 299
  • Karma: 1
    • Verze Delphi: Delphi 7
Re:Image a načtení obrázku z internetu a zmenšení
« Odpověď #2 kdy: 19-11-2019, 21:58:14 »
našel jsem toto a je funkcni :

uses ..., jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var
  strStream: String;
  memStream: TMemoryStream;
  jpegimg: TJPEGImage;
begin
  try
    strStream := idhttp1.Get ('http://www.delphipages.com/images/backplain.jpg');
  except
    ShowMessage('Image was not found');
    Exit;
  end;
  memStream := TMemoryStream.Create;
  jpegimg   := TJPEGImage.Create;
  try
    memStream.Write(strStream[1], Length(strStream));
    memStream.Position := 0;
    jpegimg.LoadFromStream(memStream);
    Image1.Picture.Assign(jpegimg);
  finally
    memStream.Free;
    jpegimg.Free;
  end;
end;

Offline pepak

  • Padawan
  • ******
  • Příspěvků: 1516
  • Karma: 37
    • Pepak.net
Re:Image a načtení obrázku z internetu a zmenšení
« Odpověď #3 kdy: 20-11-2019, 07:44:14 »
Tak to hlavně nepoužívej pro Delphi 2009+.

Offline < z >

  • Administrátoři
  • Guru
  • *****
  • Příspěvků: 1146
  • Karma: 44
    • Verze Delphi: 7, 2010
Re:Image a načtení obrázku z internetu a zmenšení
« Odpověď #4 kdy: 20-11-2019, 17:39:46 »
Kony, vážně ti nevadí, že si obrázek stáhuješ do stringu?
Zkus se podívat na
idHTTP1.Get('url', memStream)

Offline Kony

  • Hrdina
  • ****
  • Příspěvků: 299
  • Karma: 1
    • Verze Delphi: Delphi 7
Re:Image a načtení obrázku z internetu a zmenšení
« Odpověď #5 kdy: 22-11-2019, 11:26:31 »
je to v databazi. kazdy zaznam ma vlastni obrazek a nevim jak to vymyslet lepe...

Offline Kony

  • Hrdina
  • ****
  • Příspěvků: 299
  • Karma: 1
    • Verze Delphi: Delphi 7
Re:Image a načtení obrázku z internetu a zmenšení
« Odpověď #6 kdy: 22-11-2019, 11:41:57 »
a dalsi vec je ta, ze pokud tohle pouziji a dam filter na Table a nic to nenajde, tak samozrejme je filter prazdny a okamzite to hodi chybu... mam nacitani obrazku do image udelany na DBEdit change

Offline Radek Červinka

  • Administrátoři
  • Padawan
  • *****
  • Příspěvků: 2698
  • Karma: 104
    • Verze Delphi: D2007, DXE + 2 poslední
    • O Delphi v češtině
Re:Image a načtení obrázku z internetu a zmenšení
« Odpověď #7 kdy: 22-11-2019, 12:18:01 »
a dalsi vec je ta, ze pokud tohle pouziji a dam filter na Table a nic to nenajde, tak samozrejme je filter prazdny a okamzite to hodi chybu... mam nacitani obrazku do image udelany na DBEdit change

Tak si otestuj prvni zda tam neco je, ne?
Embarcadero MVP - Czech republic