internetteki resmi forma nasıl koyabilirim.

[Delphi08]

http://www.sitem.com/images/urun500.jpg isimli resmi
Formda nasıl gösterebilirim.

[mussimsek]

Sitede ipuçları - downloadInternetFile bahsine bir bak. Sanırım işini görür.

Kolay gelsin.

[Delphi08]

ipuçlarında bulamadım..Yardımcı olurmusunuz...

[mege]

Internetten dosya indirme (download)

[Delphi08]

Teşekkürler ama ben download etmeden form,da göstermek istiyorum.
Nasıl yapabilirim...

[sadettinpolat]

internetten direkt olarak gösterme yapmak mümkünmüdür bilmiyorum ama normalde bu işlem şu şekilde yapılır.

ilk önce resim bilgisayara kaydedilir ardından da ilgili bileşene yüklenip kullanıcıya gösterilir. en basitinden internet exploer falan bunu bu şekilde yapıyordur diye düşünüyorum.

DosyaInder(DosyaninInternetAdresi,KaydedilecegiYol);
Image1.Picture.LoadFromFile(ResminKaydedildigiYol);

[aslangeri]

S.A.
Hiç kullanmadım ama bi Twebbrowser koyulup onun kaynak kodunada image ın yolu verilse resmi göstermezmi?
Kolay gelsin

[aslangeri]

Aha şimdi yaptım.
Forma birtane TWebBrowser (internet sekmesinde) koy.
birtanede TButton (stantdart sekmesinde )
Buttonun on click olayına

Kod: Tümünü seç

 webbrowser1.Navigate('http://aslangeri.freeserverhost.com/bitmap/aslangeri.jpg');

yaz.
Programı çalıştır. button a tıkla sonra firewalda programa internet bağlantısı için yetki ver. (ilk önce noluyo dedim sonra mcafee amcam göründü program internete bağlanmak istiyo napıyım diye .)
sonucu gördükten sonra bu olayı programına entegre et.
Kolay gelsin.

[Delphi08]

Olay bitmiştir.
Hepinize teşekkürler...
Elleriniz dert görmesin...

[sabanakman]

Mrb; Peki küllenmiş ateşi tekrar alevlendirelim o zaman. Resim sunucuda kayıtlı değilse. Mesela (rapidshare deki gibi) güvenlik kodu resimleri böyle. (Belkide kayıtlıdır ama bulamadım). Bunların resimlerini nasıl elde ederiz.

[mrmarman]

@sabanakman

- RapidShare için bir çalışma yapmıştım daha önce, RapidTR diye isim bile koymuştum ama .DE mi .COM mu derken kaldı.

- Özetle durum şu, gelen sayfa kaynağını incelemiş isen görmüşsündür. unescape( ile başlayan bir karakter dizisi bulunur. İşte bu karakter dizisini normal TEXT' dönüştürdüğünde içinde resim de olan linkleri elde edersin. unescape kodlar ise çok basit bir şekilde normal text'e dönüştürülebilmektedir. Her biri ikililer halinde HEX kodları içerir. Bunları alıp CHR() fonksiyonu ile bir bir dönüştür. İçinde süpriz bir şekilde PNG resim dosyasına erişmiş olursun.

[bluekid]

@Delphi08

ben download etmeden form,da göstermek istiyorum.

download etmeden mümkün değil webbrowser da download edip öyle
gösterir bakınız "Temproray Internet Files" dizini

@sabanakman

Resim sunucuda kayıtlı değilse. Mesela (rapidshare deki gibi) güvenlik kodu resimleri böyle. (Belkide kayıtlıdır ama bulamadım).

resim çıkınca sağ tıkla copy image location deyince
http://ul17.rapidshare.com/access322319.jpg gibi bir adres çıkıyor

[mrmarman]

Resim linki için, rapid linki işleme konduğunda karşınıza gelen bekleme ekranıdaki UnEscape code'dan çözümleme yaptığınızda, bir süreliğine resim linkine ulaşabilirsiniz.

Kod: Tümünü seç

{document.getElementById("dl").innerHTML = unescape('%3C%66%6F%72%6D%20%6E%61%6D%65%3D%22%
64%6C%22%20%61%63%74%69%6F%6E%3D%22%68%74%74%
70%3A%2F%2F%64%6C%31%33%63%67%2E%72%61%70%69%
64%73%68%61%72%65%2E%63%6F%6D%2F%66%69%6C%65%
73%2F%38%35%33%31%37%34%38%2F%32%35%36%33%30%
30%2F%4D%69%6E%69%57%65%62%62%72%6F%77%73%65%
72%44%65%6D%6F%2E%72%61%72%22%20%6D%65%74%68%
6F%64%3D%22%70%6F%73%74%22%3E%3C%74%61%62%6C%
65%3E%3C%74%72%3E%3C%74%64%3E%3C%69%6E%70%75%
74%20%20%74%79%70%65%3D%22%72%61%64%69%6F%22%
20%6E%61%6D%65%3D%22%6D%69%72%72%6F%72%22%20%
6F%6E%63%6C%69%63%6B%3D%22%64%6F%63%75%6D%65%
6E%74%2E%64%6C%2E%61%63%74%69%6F%6E%3D%27%68%
74%74%70%3A%2F%2F%64%6C%31%33%63%67%32%2E%72%
61%70%69%64%73%68%61%72%65%2E%63%6F%6D%2F%66%
69%6C%65%73%2F%38%35%33%31%37%34%38%2F%32%35%
36%33%30%30%2F%4D%69%6E%69%57%65%62%62%72%6F%
77%73%65%72%44%65%6D%6F%2E%72%61%72%27%3B%64%
6F%63%75%6D%65%6E%74%2E%64%6C%2E%61%63%74%69%
6F%6E%73%74%72%69%6E%67%2E%76%61%6C%75%65%3D%
27%44%6F%77%6E%6C%6F%61%64%20%66%72%6F%6D%20%....}

Bunun açılımı şöyle...

Kod: Tümünü seç

<form name="dl" action="http://dl13cg.rapidshare.com/files/8531748/256300/MiniWebbrowserDemo.rar" method="post"><table><tr><td><input  type="radio" name="mirror" onclick="document.dl.action='http://dl13cg2.rapidshare.com/files/8531748/256300/MiniWebbrowserDemo.rar';document.dl.actionstring.value='Download from Cogent #2'">Download from Cogent #2: dl13cg2.rapidshare.com (7198 of 10000 MBit/s in use)<br><input  type="radio" name="mirror" onclick="document.dl.action='http://dl13l32.rapidshare.com/files/8531748/256300/MiniWebbrowserDemo.rar';document.dl.actionstring.value='Download from Level(3) #2'">Download from Level(3) #2: dl13l32.rapidshare.com (7496 of 10000 MBit/s in use)<br><input  type="radio" name="mirror" onclick="document.dl.action='http://dl13vsnl.rapidshare.com/files/8531748/256300/MiniWebbrowserDemo.rar';document.dl.actionstring.value='Download from VSNL'">Download from VSNL: dl13vsnl.rapidshare.com (3350 of 10000 MBit/s in use)<br><input  type="radio" name="mirror" onclick="document.dl.action='http://dl13gc.rapidshare.com/files/8531748/256300/MiniWebbrowserDemo.rar';document.dl.actionstring.value='Download from GlobalCrossing'">Download from GlobalCrossing: dl13gc.rapidshare.com (3156 of 10000 MBit/s in use)<br><input  type="radio" name="mirror" onclick="document.dl.action='http://dl13l3.rapidshare.com/files/8531748/256300/MiniWebbrowserDemo.rar';document.dl.actionstring.value='Download from Level(3)'">Download from Level(3): dl13l3.rapidshare.com (7518 of 10000 MBit/s in use)<br><input  type="radio" name="mirror" onclick="document.dl.action='http://dl13tl.rapidshare.com/files/8531748/256300/MiniWebbrowserDemo.rar';document.dl.actionstring.value='Download from TeliaSonera'">Download from TeliaSonera: dl13tl.rapidshare.com (6857 of 10000 MBit/s in use)<br><input  type="radio" name="mirror" onclick="document.dl.action='http://dl13tl2.rapidshare.com/files/8531748/256300/MiniWebbrowserDemo.rar';document.dl.actionstring.value='Download from TeliaSonera #2'">Download from TeliaSonera #2: dl13tl2.rapidshare.com (6776 of 10000 MBit/s in use)<br><input checked type="radio" name="mirror" onclick="document.dl.action='http://dl13cg.rapidshare.com/files/8531748/256300/MiniWebbrowserDemo.rar';document.dl.actionstring.value='Download from Cogent'">Download from Cogent: dl13cg.rapidshare.com (8637 of 10000 MBit/s in use)<br></td></tr></table><h3>No premium user. Please enter<br><img src="http://ul13.rapidshare.com/access256300.jpg"><br>here: <input type="text" name="accesscode" size="5" maxlength="4"> <input type="submit" name="actionstring" value="Download from Cogent"></h3></form>

- Çıkan resim linki ise şu...

Kod: Tümünü seç

http://ul13.rapidshare.com/access256300.jpg

- İşin ilginç yanı şu. Hani bazen 80 dakika bekleme yaptırıyor ya, o zaman bile daha ilk saniyeden çıkacak resmin linki belli...

- Yani durumu özetlersek; Download linkini çağırdıktan sonra belli bir süre resim linki aktif olduğu için okuduğunuz resmi kullanıcıya gösterecek vaktiniz var.

[sabanakman]

Mrb; ben daha çok arabirimler üzerinden TStream'e aktarmaya yönelik çalışma yapmıştım. Hatta

Kod: Tümünü seç

var Doc:IHTMLDocument2;
img:IHTMLImgElement;
begin
  Doc:=WB.Document as IHTMLDocument2;//WB->TWebBrowser
  for li := 0 to Doc.Images.Length - 1 do begin
    img:=Doc.Images.item(??,??) as IHTMLImgElement;   
    //?????
  end;
end;

gibi bir yapıda kurabildim ama TStreamAdapter ve benzeri amaçla hizmet veren nesneleri veya arabirimleri kullanarak direk kendi oluşturduğum TMemoryStream'e atmak ve sonrası kolay. image1.Picture.LoadFromStream . Konu üzerinde araştırmamı tamamlayabilirsem cevap yazarım. Bilmiyorum doğru yoldamıyım değilmiyim ama doğru yolda değilsem cevabı bulamayacağım kesindir . Ayrıca verdiğiniz bilgiler çok değerli ama bir sorum var. Bağlantısı elde edilerek resimi kaydetmek bize farklı bir rakamsal değeri olan resim (güvenlik kodunu) vermez mi? İyi çalışmalar.

[mrmarman]

- Resmi forma koymak çok kolay... Ben cache'deki yerini bulamayınca neden bunun hamallığını ben çekeyim, nasıl olsa WebBrowser nerede olduğu biliyordur deyip şöyle yapmıştım. İşe yarıyor..

- İkinci bir TWebBrowser oluşturursun, asıl olan birincinin navigasyon işlemi tamamlandığında, resmin linkini ikinci TWebBrowser'da navigate yaptırıyorsun. Bu ikincisi için resim cache'den geliyor... nasıl fikir ama

- Sen sonra aynı session'daki ilk WebBrowser'dan işine devam ediyorsun...

Test için sayfa arasanız şurası uygun :

http://app.ssk.gov.tr/hizmet/jsp/sicilgir.jsp
- Kullanıcıya gösterip aynısını girmesini istemek için yeterli...

- Buna ek olarak illaki de bir bitmap yapayım TImage nesnesinde göstereyim diyorsan o da kolay. Web Sayfasından BMP yapmak üzerine örnekler bulursun. Böylece ikinci WebBrowser'daki resmin resmini çekebilirsin...

Ref : viewtopic.php?t=6612#36828

Örnek Binary : http://rapidshare.com/files/11814483/We ... a.zip.html

- yazdırma olayını bir Canvas'a yapıyorsun hepsi bu...

Kod: Tümünü seç

      OleDraw(ControlInterface, DVASPECT_DOCPRINT, Bitmap.Canvas.Handle,
              Rect(0, 0, Bitmap.Width, Bitmap.Height-100));

- Başarılar..