WebBrowser Textarea alanını doldurtamıyorum

[orhancc]

C# kodu çalışıyor

Kod: Tümünü seç

 private void simpleButton1_Click(object sender, EventArgs e)
        {            
            webBrowser1.Navigate("http://www.frmoyuncu.com/newthread.php?do=newthread&f=7");
            webBrowser1.DocumentCompleted += new WebBrowserDocumentCompletedEventHandler(BilgiGir);
        }

        private static void BilgiGir(object sender, WebBrowserDocumentCompletedEventArgs e)
        {
            var b = (WebBrowser)sender;
            if (b.Document != null)
            {
                b.Document.GetElementById("vb_login_username").InnerText = "kullanıcıadı";
                b.Document.GetElementById("vb_login_password").InnerText = "şifre";
            }
            b.DocumentCompleted += new WebBrowserDocumentCompletedEventHandler(MesajGir);
            //<input type="submit" tabindex="1" accesskey="s" value="Giriş" class="button">
           // b.Document.GetElementById("Giriş").InvokeMember("click");

        }

        private static void MesajGir(object sender, WebBrowserDocumentCompletedEventArgs e)
        {
            var b = (WebBrowser)sender;
            if (b.Document != null)
            {
                b.Document.GetElementById("vB_Editor_001_textarea").InnerHtml = "Deneme Yazısı";
            }
            b.DocumentCompleted += new WebBrowserDocumentCompletedEventHandler(MesajGir);
        }

[darkfeeL]

Kod: Tümünü seç

procedure SetFieldValue(theForm: IHTMLFormElement;
  const fieldName: string; const newValue: string;
  const instance: integer=0);
var
  field: IHTMLElement;
  inputField: IHTMLInputElement;
  selectField: IHTMLSelectElement;
  textField: IHTMLTextAreaElement;
begin
  field := theForm.Item(fieldName,instance) as IHTMLElement;
  if Assigned(field) then
  begin
    if field.tagName = 'INPUT' then
    begin
      inputField := field as IHTMLInputElement;
      if (inputField.type_ <> 'radio') and
         (inputField.type_ <> 'checkbox')
      then
        inputField.value := newValue
      else
        inputField.checked := (newValue = 'checked');
    end
    else if field.tagName = 'SELECT' then
    begin
      selectField := field as IHTMLSelectElement;
      selectField.value := newValue;
    end
    else if field.tagName = 'TEXTAREA' then
    begin
      textField := field as IHTMLTextAreaElement;
      textField.value := 'DENEME';
    end;
  end;
end;

@vkamadan bu yöntemlede denedim olmuyor.

[darkfeeL]

@orhancc C# ile ilgili hiç birşey bilmiyorum. Ama bir tane Visual C# edinip deneyeceğim.

[vkamadan]

Kod: Tümünü seç

procedure SetFieldValue(theForm: IHTMLFormElement;
  const fieldName: string; const newValue: string;
  const instance: integer=0);
var
  field: IHTMLElement;
  inputField: IHTMLInputElement;
  selectField: IHTMLSelectElement;
  textField: IHTMLTextAreaElement;
begin
  field := theForm.Item(fieldName,instance) as IHTMLElement;
  if Assigned(field) then
  begin
    if field.tagName = 'INPUT' then
    begin
      inputField := field as IHTMLInputElement;
      if (inputField.type_ <> 'radio') and
         (inputField.type_ <> 'checkbox')
      then
        inputField.value := newValue
      else
        inputField.checked := (newValue = 'checked');
    end
    else if field.tagName = 'SELECT' then
    begin
      selectField := field as IHTMLSelectElement;
      selectField.value := newValue;
    end
    else if field.tagName = 'TEXTAREA' then
    begin
      textField := field as IHTMLTextAreaElement;
      textField.value := 'DENEME';
    end;
  end;
end;

@vkamadan bu yöntemlede denedim olmuyor.

Yukarıdaki procedure ' ü çağırdığınız bölümüde gönderebilirmisiniz belki kullanırken ataladığınız bir nokta vardır.

[darkfeeL]

@orhancc Visual C# 2008 Express Edition ile denedim. Login alanlarını doldurdu fakat Login butonuna tıklama yapmadı. MesajGir fonksiyonunuda manuel login olarak denedim o da textareaya herhangi birşey doldurmadı.

[darkfeeL]

Ayrıca bu fonksiyon lazım olduğundan bunuda ekledim;

Kod: Tümünü seç

function GetFormByNumber(document: IHTMLDocument2;
    formNumber: integer): IHTMLFormElement;
var
  forms: IHTMLElementCollection;
begin
  forms := document.Forms as IHTMLElementCollection;
  if formNumber < forms.Length then
    result := forms.Item(formNumber,'') as IHTMLFormElement
  else
    result := nil;
end;

Çağırdığım kod ise bu;

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
var
  document: IHTMLDocument2;
  theForm: IHTMLFormElement;
  index: integer;
begin
  document := WebBrowser1.Document as IHTMLDocument2;
  theForm := GetFormByNumber(WebBrowser1.Document as IHTMLDocument2,0);
  SetFieldValue(theForm,'name','Brian Cryer');

end;

[vkamadan]

Merhaba ,

Kod: Tümünü seç

 SetFieldValue(theForm,'name','Brian Cryer');

Burada 2nci parametreye geçtiğiniz değer olan "name" textarea tipindeki alanında adı değil mi?

[darkfeeL]

Evet orayı 'message' olarak değiştirdim. Olmuyor.

[vkamadan]

Merhaba ,
Vakit bulup bir örnek yaptım hiç bir sorun yok çalışıyor.. ekliyorum.

[darkfeeL]

Teşekkürler. Elinize sağlık.