Web Sitesinden Kaynak Kod Almak için gerekenler
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.
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.
Web Sitesinden Kaynak Kod Almak için gerekenler
Ben web sitesinden kaynak kod almak için hangi bileşenleri kulllanmalıyım.
ÇOK ÖNEMLİ!
ÇOK ÖNEMLİ!
Yani programdan...
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>
Ör
<HTML>
<TITLE>SELAMLAR</TITLE>
<BGCOLOR=#00FF00>
</HTML>
Teşekkürler
Çok Yardımcı Oldunuz.Teşekkürler.
İyi Günler!
İyi Günler!
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
ö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
DELPHİ ÖĞRENMEK İÇİN EN GÜZEL YER
Hepinize teşekkür ederim.
Siteniz sayesinde daha hızlı delphi öğreniyorum.
İyi günler
Siteniz sayesinde daha hızlı delphi öğreniyorum.
İyi günler
- greenegitim
- Üye
- Mesajlar: 713
- Kayıt: 28 Nis 2011 10:33
- Konum: İstanbul
Re: Web Sitesinden Kaynak Kod Almak için gerekenler
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!
Re: Web Sitesinden Kaynak Kod Almak için gerekenler
2003 teki konuya cevap yazdın?
- greenegitim
- Üye
- Mesajlar: 713
- Kayıt: 28 Nis 2011 10:33
- Konum: İstanbul
Re: Web Sitesinden Kaynak Kod Almak için gerekenler
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!