webdeki resimi ımage1 gösterme

[erdogan_ozkaya]

arkadaşlar webdeki bir resmin yolunu vererek nasıl Image1 nesnesinde gösterebilirim?

Teşekkürler

[unicorn64]

doğrudan webdeki adresi image'e vererek yapamazsınız.. ya resmi lokale indirip kullanırsınız, yada webbrowser bileşeninde gösterebilirsiniz...

[erdogan_ozkaya]

BİRŞEKİLDE ÇÖZÜMÜ OLAMAZMI ? BASİT EN KISA YOLLA?

[aslangeri]

forum kurallarına uymazsanız olmaz.

[unicorn64]

forum kurallarına uymazsanız olmaz.

öncelikle mesajınızı büyük harfle yazmanızın forum kurallarına aykırı olduğunu belirteyim...

önceki mesajımda 2 çözüm yolu söyledim zaten.. standart image nesnesi webdeki resmi doğrudan gösteremez. benzer konular forumda daha önce konuşulmuştu sanırım. arama yapabilirsiniz... belki 3.parti bileşenlerden vardır direk gösterim yapabilecek bir bileşen ama bilmiyorum...

[orhancc]

Kod: Tümünü seç

uses
  GIFImg;

procedure TForm1.btn1Click(Sender: TObject);
var
  MS : TMemoryStream;
  GIf: TGIFImage;
begin
  MS := TMemoryStream.Create;
  GIf := TGIFImage.Create;
  try
    IdHTTP1.get('http://www.google.com/intl/en_ALL/images/logo.gif',MS);
    Ms.Seek(0,soFromBeginning);       
    Gif.LoadFromStream(MS);
    img1.Picture.Assign(GIF);

  finally
    FreeAndNil(GIF);
    FreeAndNil(MS);
  end;
end;

[erdogan_ozkaya]

Kod: Tümünü seç

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, [color=#FF0000]GIFImg;[/color]

Hocam uses ekliyorum ama hata veriyor ?

[erdogan_ozkaya]

tmemorystream - Indy component buşlabileceğim bir adres varmı ?

[orhancc]

http://www.koders.com/delphi/fidA7BF011 ... F1807.aspx

Stream ve Indy delphi içinde var zaten ayrıca aramana gerek yok

[erdogan_ozkaya]

evet çözdüm vehalletim teşlekkür ederim fakat sadece gif yüklenebiliyor jpg yükleyemiyorum
kayıt yapoarken nasıl bir çözüm olabilirki ? örnek jpg, bmp, vb. dosyaları kayıt yaparken nasıl convert edebilirim ?

yükleme için kullandığım kod;

Kod: Tümünü seç

IdFTP1.Host:=edit28.Text;
IdFTP1.Password:=edit30.Text;
IdFTP1.Username:=edit29.Text;
IdFTP1.Connect(true);

IdFTP1.Put(edit31.Text,edit3.Text+'-'+edit32.Text,false);
IdFTP1.Disconnect;

teşekkürler

[csunguray]

Acaba doğrudan

Kod: Tümünü seç

Image1.LoadfromFile('http://www.xx.com/yy.jpg');

şeklinde kullansak olmaz mı?

[erdogan_ozkaya]

hata veriyor olmuyor