webbrowser haakın da 2 soru yardım edebilirmisiniz

[kayipgemi]

arkadaşlar kolay gelsin 2 konuda yardımınıza ihtiyacım birazdan size anlatıcam sorunlarda sizde bana diyeceksinizki hiç mi arama yapmadın evet arama yaptım ama az bir temel bilgi olunca işin içinde cıkamadım dahada karıstırdım bana yardımcı olabilirseniz cok sevinecem.

delphi 7 kullanıyorum ve internet sekmesinden webbrowser bileşeni kullanıyorum

1. sorum stokkodları var ve bu kodlarlar ismi aynı olan ftp alanına yüklü resimler var

orneğin

Kod: Tümünü seç

 WebBrovser1.Navigate('http://xxxx.com.tr/xxx/'+edit1.text+'.jpg');

şeklinde resmi gösteriyorum ama bazı stok kodlarının resmi yok ve browserde sayfa bulunamadı mesajı geliyor bunun yerine resim yok sa resim bulunamadı diye mesaj verdire bilirmiyim OnDocumentComplete olayları ile biraz uğraştım ama yapamadım.

2. sorumda http://app.ssk.gov.tr/sicilsorgulama/hosgeldiniz.do adresine girdiğiniz de sadece t.c. kimlik nosunu yazınca bilgileri getiriyor ben delphi üzerinden tckimlik noyu yazdırıp cıkan sonucları alabilirmiyim, bu konuyuda formdan inceledim ama uses kısmına ne eklediysem ne kadar uğraştıysam yapamadım

yardımcı olabilirseniz cok sevinrim, kolay gelsin

[ikutluay]

Arama her derdin ilacı:)

viewtopic.php?t=2170&highlight=checkurl

burada yapman gereken o resim url olarak varsa yazdır yoksa mesaj verdir..

diğer konuya gelibce ssk da birde auth code girmen gerekiyor elle o bakımdan otomasyon sorun olur

Düzeltme::: adrese bakmadan sonuncuyu yazmışım. :bu konuda formu delphiden doldurma konusunda baya bir yazılar vardı. forumda bulman mümkün. MRMarmanın birde makalesini hatırlıyorum

[kayipgemi]

kardeş sağolasın verdiğin linkten faydalandım işimi gördüm hüsonet hocaya teşekkürler bir de ikinci sıkıntımı çözebilsem evet makaleyi okudum ama tabi az bir birikim olunca hepsini corba ettim bide bunu çözebilirsem cok iyi olacak.. yinede Allah Razı olsun sağolun

[ikutluay]

ben bunu kur programımda kullanmıştım.

diğer sorunun aslında çok zor bir konu değil cidden... o adrese kendi formundaki bir webbrowser ile açıp alana bilgi yazdırman yeterli olur. bu konuda bir sürü örnek var burada ve swsisdelphicenterda.

[barutali]

Merhaba

Ben "Durum" haricinde bütün sonuçları alabiliyorum.

sadece durumun olduğu yerde parse işlemi yapamadım bi türlü

Kod: Tümünü seç

</td>
					<td width="150"><b>Durumu</b></td>
					<td width="150">
						Aktif
						
					</td>

ordaki html tagları bu şekilde dizilmiş ordaki "Aktif" yazısını nasıl parseliyebilirim acaba ?

[deltas]

@lanetli hocam bi kaç yol var ama geçici çözüm sayılabilir. İşinize yarıyacağını düşünüyorum. Daha önce yazdığım bu konuya bi bakın.
viewtopic.php?t=21314Oradaki kodları dönüştürdüm.

1.Yol

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var
ara,ara1:string;
bas,son,i:integer;
begin
memo2.Text:='';
  bas:=0;
  son:=0;
  for i:= 0 to memo1.Lines.Count - 1  do
  begin
   ara:=  'Aktif';
   ara1:=  'Pasif';
  bas:= FastPos(memo1.lines[i], ara, length(memo1.lines[i]), length(ara), 1);
  son:=FastPos(memo1.lines[i], ara1, length(memo1.lines[i]), length(ara1), 1);
  if (bas<>0) then
   label1.caption:='Aktif';
     if (son<>0) then
     label1.Caption:='pasif';

   end;
  end;

2. Yol

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var
ara,ara1:string;
bas,i:integer;
begin
memo2.Text:='';
  bas:=0;
  son:=0;
  for i:= 0 to memo1.Lines.Count - 1  do
  begin
   ara:=  '<td width="150"><b>Durumu</b></td>';
   bas:= FastPos(memo1.lines[i], ara, length(memo1.lines[i]), length(ara), 1);
  if (bas<>0) then
   begin
    memo2.Lines.Add(memo1.lines[i+2]);
   end;
    end;
    end;

[barutali]

@deltas hocam verdiğiniz kodlar işime yaradı.

Programın Kaynak kodları ve faststrings aşağıdaki linkte mevcut belki birinin işine yarar..

http://rapidshare.com/files/69696047/Ye ... r.rar.html

ii çalışmalar.