merhaba arkadaşlar..... benim yapmak istediğim navigate yaptıgım sitedeki tum linkleri memo'nun içine atmak
aşağıdakı kodla yapıyorum fakat pek saglıklı değil daha stabil calışan bir kod varsa çok güzel olur

var
i:integer;
adres:string;
begin
for i:=0 to memo1.Lines.Count-1 do
begin
adres:=copy(memo1.Lines.Strings[i],pos('href="',memo1.Lines.Strings[i])+5,pos('/"',memo1.Lines.Strings[i])-2);
if (adres<>'') and (pos('google',adres)=0)  and (pos('http',adres)>0) then memo2.Lines.Add(adres);
//boş, adreste google varsa ekleme adreste http olursa ekle
end;


geçen sene bizim sektörde ileri derecede porno hastası bir firma sahibine 700 Dolar karşılığı yaptığım bir program(Cahillikten Allaha sığınırım !!!!). Malum bir siteyi baştan aşağı tarayıp tüm linkleri db ye kaydediyor daha sonra editör ile video linklerini ayırt edebiliyor. ve Jdownloader ile download edilecek hale getiriyor.

D2009 ile yazdım ama kodları pas dosyalarından okuyabilirsin.

https://www.rapidshare.com/files/772152763/Link_Toplama.rar

Allah akıl fikir versin ben de birşey demiyorum daha sonra ben aynı adama 2 katı fiyata benzer bir iş yapan bu seferde siteden resimleri otomatik çeken bir program yaptım, hala da isteklerinin ardı arkası kesilmiyor bir gün elimde kalacak ama bakalım ne zaman.

ne kadar gereksiz proje varsa bende abicim Bana akıllısı gelmez, hep böyle abuk sabuk projeler ile gelirler durumumu biraz toparlıyım bir daha yanlarından geçmicem

:D şurda iki dakika saklayalım birşeyleri dedik hemen bozuyosun

sana satmam hediyem olur ama çok istiyorsan malum kişiyi sana paslıyım tanış kaynaş adama video de resim de hemen alır.Zaten IATA sahibi para basıyor.

seviyorum seni

veri nays

basit
gönder butonu formda submit görevindedir. yani formun sıra numarasıyla submit yaptırabiliriz;

((WB1.Document as IHTMLDocument2).forms.item(0,'') as IHTMLFormElement).submit;

vermiş olduğum kod ilk formu submit edecektir iyi çalışmalar