Webden Ekran Görüntüsü (Screen Shot) tam sayfa ?

[mt_mustafa]

Merhaba Arkadaşlar. Forumda arattım ama bulamadım. @Mege abinin kendi programının screenshot u, birkaç capture programı soruları felan çıktı.

Benim istediğim olay şu:

Bir web sayfasının görüntüsünü alma AMA
Web sayfasında aşağıya doğru uzanan sayfalar, aşağıya uzanan kadar sayfalarda UZANAN ALAN DAHİL TAMAMINI almak istiyorum. Bunu nasıl yapabilirim acaba ?


Selamlar...

[poshet303]

Bu işi yapan bir program yazmak istiyorsanız nasıl yapılır bilmiyorum.

Ama bu işi yapan bir program arıyorsanız kolay;

https://addons.mozilla.org/firefox/2703/

firefox eklentisi bu işi şahane bir biçimde hallediyor.

[mt_mustafa]

Hocam FirefoX un büyüklüğünü biliyorum
ama ben yazmak istiyorum

[mt_mustafa]

[mrmarman]

Selam.. güzel bir konu...

- Teknik konusunda fikrim oluşmadı.. Sadece Google'da yaptığım minik bir araştırma sonucunu paylaşmak istedim.

- Yapılan programların bazıları CommandLine'da çalışıyor ve buna GUI (grafik kullanıcı arabirimi) eklenmiş. Örneklerinden birisi

http://www.websitescreenshots.com/ linkindeki.

- Bir kaynak kod buldum. Lakin indirmek istediğimde öylece kalıyor. Zaman aşımı oluşuyor, kod gelmiyor. Delphi'ye uyarlanır nitelikte mi bilmiyorum. Linki...

http://iecapt.sourceforge.net/

- içeriğinde bir noktaya dikkatimizi çekmiş, teknik hakkında fikir vermesi açısından önemli olabilir.

IECapt depends on GDI+. GDI+ is included in Microsoft Windows XP and Windows Server 2003. If there is no gdiplus.dll on your system, you can download it from Microsoft and put it into the same directory where IECapt.exe resides.

- Başarılar...

[mt_mustafa]

@mrmarman hocam çok tşk ederim.
Gelişmeleri yazacağım inş.
Kolay Gelsin...

[mrmarman]

- Son bulduğum örneğin TWebBrowser içeriğinin boyutlatını bulma konusunda sorunları vardı.

// Hatalı Kod...

Kod: Tümünü seç

    Height := OleObject.Document.ParentWindow.Screen.Height;
    Width  := OleObject.Document.ParentWindow.Screen.Width; 

- Bunu aşmak için başka bir arama sonucu Torry tips'lerinde bir detay gözüme ilişti.
http://www.swissdelphicenter.ch/torry/s ... hp?id=1191 linkindeki örnekten faydalanarak uygulama şu şekilde...

// Düzeltilmiş Kod

Kod: Tümünü seç

  Panel1.Width   := Webbrowser1.OleObject.Document.Body.ScrollWidth  + 50;
  Panel1.Height  := Webbrowser1.OleObject.Document.Body.ScrollHeight + 50;

- Ek olarak geriye kalan şey ise TWebBrowser'in bu boyutlara büyütme sorunu idi. Onu da TScrollBox ve içindeki bir TPanel ile aştım.

- Sonuç olarak aşağıda linkini verdiğim örnek orataya çıktı. Afiyet olsun...

http://rapidshare.de/files/26115513/HTTPtoJPEG.zip.html

- Prototip olan bu örnek tahatlıkla genişletilebilir.

- Güzel bir temrin / çalışma oldu. Böyle güzel örnek proje sorularınız geldikçe şahsen mutlu oluyorum.

[mt_mustafa]

Afiyet olsun...
Böyle güzel örnek proje sorularınız geldikçe şahsen mutlu oluyorum.

eyv hocam

bunu trwhois.org için istiyorum. bir alan adı ve sunucu arama motoru olacak inş.
Site herkese açık olacak ve kodları özelleştirip her site sahibi kullanabilecek.
tabi önce bi sistematiği bi geliştirelim.
Açık kaynak koda destek