Web Sitesinden Kaynak Kod Almak için gerekenler

Yapmak istediğiniz işle ilgili doğru bileşeni bulmak için burayı kullanabilirsiniz. Sadece bulmak için, diğer sorular Programlama forumuna lütfen.
Forum kuralları
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Cevapla
selam
Üye
Mesajlar: 51
Kayıt: 02 Tem 2003 07:08

Web Sitesinden Kaynak Kod Almak için gerekenler

Mesaj gönderen selam »

8) Ben web sitesinden kaynak kod almak için hangi bileşenleri kulllanmalıyım.
ÇOK ÖNEMLİ!
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7586
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

Merhaba selam,

sorun çok havada kalmış. Hangi siteden, nasıl bir kodu, nereye alacaksın? Biraz daha detay lütfen.

Kolay gelsin.
selam
Üye
Mesajlar: 51
Kayıt: 02 Tem 2003 07:08

Yani programdan...

Mesaj gönderen selam »

Yani programdan. örneğin button1'e bastığımda memo1'e web sayfasının kodlarını yazacak.
Ör
<HTML>
<TITLE>SELAMLAR</TITLE>
<BGCOLOR=#00FF00>
</HTML>
Kullanıcı avatarı
rsimsek
Admin
Mesajlar: 4482
Kayıt: 10 Haz 2003 01:48
Konum: İstanbul

Mesaj gönderen rsimsek »

eğer düşündüğün herhangi bir sitenin kaynak kodunu kendi bilgisayarına indirmekse; bu işi webstripper diye bir program yapıyor.
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7586
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

Merhaba,

internetten dosyayı diske al. Gerekli kodlar Delphi İpuçları bölümünde var. Daha sonra bir RichEdit koyup,

RichEdit.Lines.LoadFromFile('aaa.html');

gibi kodları alabilirsin.

Kolay gelsin.
selam
Üye
Mesajlar: 51
Kayıt: 02 Tem 2003 07:08

Teşekkürler

Mesaj gönderen selam »

Çok Yardımcı Oldunuz.Teşekkürler.
İyi Günler!
mrCeng
Üye
Mesajlar: 7
Kayıt: 24 Tem 2003 12:10
Konum: Kayseri
İletişim:

Mesaj gönderen mrCeng »

bu işlemi kodla pek çok yoldan yapabilirsin.
öncelikle ilk bilmen gereken almak istediğin sayfa nasıl bir yapıda. Metodu nedir.
bu yollardan birincisi ve en sağlam olanı wininet kullanarak bulmak. ama biraz zahmetli olduğunu belirtmem gerek. daha önce wininet ile internetopen yaptıysan bunu kolaylıkla yapabilirsin. bir mantığı var HINTERNET ile sadece biraz fazla haşır neşir oluyorsun.

Ama benim tavsiyem fastnet veya indy de de bulunan http componentlerini kullanman olur. Her ikisiylede rahatlıkla kodları çekebilirsin. Get metodu ile veri alırken:
degiskenin:=component.get(URL);
component=http componentin.
yada degiskenin:=component.body;

post metodundan dönen bilgileri almak istiyorsan öncelikle post olayını yakalaman lazımdırki bunu webbrowser ile yapabilirsin. daha sonra bilgileri post indy yada fastnet komponentlerinden biri ile post edip body den kodları alabilirsin.

diğer bir yol ise TWebBrowser nesnesini kullanmaktır. Fakat bunun işi biraz daha derin. hiç tavsiye etmem. hele formunda webbrowserda yoksa boşu boşuna ekleme. yapman gereken şu şekilde başlamak:

try
TheDoc := WBBrowse.Document;
except
TheDoc := null;
end;

theDoc variant tipindedir. PersistFile olarak bu dosyayı textFile olarak kaydedebilir ve kodunu görebilirsiniz.

yollardan bazıları hakkında fikir vermek istedim sadece.
eğer daha kesin bir şekilde hangi yolda takıldığınızı söylerseniz bende daha kesin bir şekilde yardım edebilirim.
saygılar kolay gelsin
selam
Üye
Mesajlar: 51
Kayıt: 02 Tem 2003 07:08

DELPHİ ÖĞRENMEK İÇİN EN GÜZEL YER

Mesaj gönderen selam »

Hepinize teşekkür ederim.
Siteniz sayesinde daha hızlı delphi öğreniyorum.
İyi günler
Kullanıcı avatarı
greenegitim
Üye
Mesajlar: 713
Kayıt: 28 Nis 2011 10:33
Konum: İstanbul

Re: Web Sitesinden Kaynak Kod Almak için gerekenler

Mesaj gönderen greenegitim »

Kod: Tümünü seç

function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;
var
ps: IPersistStreamInit;
fs: TFileStream;
sa: IStream;
begin
ps := WebBrowser.Document as IPersistStreamInit;
fs := TFileStream.Create(FileName, fmCreate);
try
sa := TStreamAdapter.Create(fs, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
finally
fs.Free;
end;
end;

function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
var
ps: IPersistStreamInit;
ss: TStringStream;
sa: IStream;
s: string;
begin
ps := WebBrowser.Document as IPersistStreamInit;
s := '';
ss := TStringStream.Create(s);
try
sa := TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
if Result then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end; 
procedure TForm1.btn_siteyigetirClick(Sender: TObject);

begin

WebBrowser1.Navigate(www.siteadresim.com/index.html);

end;

procedure TForm1.btn_memmoyatClick(Sender: TObject);
begin
WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
end;
Mücadele güzelleştirir!
xeriko
Üye
Mesajlar: 15
Kayıt: 02 Eyl 2011 02:44

Re: Web Sitesinden Kaynak Kod Almak için gerekenler

Mesaj gönderen xeriko »

2003 teki konuya cevap yazdın?
Kullanıcı avatarı
greenegitim
Üye
Mesajlar: 713
Kayıt: 28 Nis 2011 10:33
Konum: İstanbul

Re: Web Sitesinden Kaynak Kod Almak için gerekenler

Mesaj gönderen greenegitim »

bende aradım forumda burayı buldum başka bir yerden buldum daha sonra buraya da ekleyeyim dedim fena olmamıştır umarım :)
Mücadele güzelleştirir!
Kullanıcı avatarı
burak_489
Üye
Mesajlar: 31
Kayıt: 20 Ara 2010 09:20

Re: Web Sitesinden Kaynak Kod Almak için gerekenler

Mesaj gönderen burak_489 »

dejavu ! xd
Cevapla