Webbrowser formatted value veri girişi

[eren2000]

Arkadaşlar normal kutulara veri girişi yerine şöyle birşeyle karşılaştım.

Kod: Tümünü seç

<input type="text" class="k-formatted-value ob-right k-input" tabindex="3" aria-disabled="false" aria-readonly="false" style="display: inline-block;">
<input class="ob-right k-input" data-val="true" data-val-number="The field VarlikMiktar must be a number." data-val-required="The VarlikMiktar field is required." 
id="VarlikMiktar" name="VarlikMiktar" required="required" tabindex="3" type="text" value="0" data-role="numerictextbox" role="spinbutton" aria-valuenow="10"
 aria-disabled="false" aria-readonly="false" style="display: none;">

Burada value:=10 dediğimde yazmıyor. Fakat webbrowsera 10 değerini girdiğimde yukarıda da görüldüğü gibi veriyi aria-valuenow="10" şeklinde yazıyor ama ben buna delphi içerisinden veri atamıyorum.

Kod: Tümünü seç

if (WebBrowser1.OleObject.Document.frames.item(f).document.forms.item(g).elements.item(k).id='VarlikMiktar') then
                begin
                    WebBrowser1.OleObject.Document.frames.item(f).document.forms.item(g).elements.item(k).value:='10';

diyorum ama veri girişi yapamıyorum. Sahayı buluyor ama veri yollayamıyorum. Hidden bir saha da söz konusu değil.

Bir de şu şekilde bir combobox sahaya nasıl veri atabilirim.

Kod: Tümünü seç

<span unselectable="on" class="k-dropdown-wrap k-state-default">
<span unselectable="on" class="k-input">DİŞİ</span>
<span unselectable="on" class="k-select"><span unselectable="on" class="k-icon k-i-arrow-s">select</span></span></span>

[mrmarman]

- IF ile 'VarlikMiktar' sorguladığınız yerde buluyor demiştiniz ya, oradaki Value değerine kod ile 10 verdiğinizde hata veriyor mu ?
- Vermiyorsa bu value değerini verdiğiniz blok içinde, değeri atadığınız yerin hemen bir alt satırında ShowMessage ile .VALUE içeriğini ekrana yansıtın. Aynı 10 değerini alabiliyorsanız o zaman yanlış bir 'VarlikMiktar' ID'li yere değer ataması yapılıyor demektir. Başka bir tane daha 'VarlikMiktar' olan yer var olduğuna delalettir.

[eren2000]

Denedim dediğiniz gibi 10 değerini aldım showmessage ile ama başka bir aynı isimli varlikmiktar bulamadım. Benim anlamadığım webbrowserdan 10 değerini girdiğimde veriyi aria-valuenow="10" şeklinde yazıyor

[mrmarman]

Bir de veri girişini kontrol eden bir JAVAScript olabilir onu da gözetin.

Ayrıca bu şekilde bir pOST edin bakalım veriyi ekrana yansıtmasa da değrlendirmeye almış mı ?

[eren2000]

Post edince olay ortaya çıktı hocam sağolun. Bir önceki sahada comboboxtan seçim yapıldıktan sonra varlikmiktari dikkate aldı. Bir de yukarıdaki bir sıkıntıyı tekrar dile getirmek istiyorum.
Combobox a bir değeri seçtirmek istiyorum.

<span unselectable="on" class="k-dropdown-wrap k-state-default">
<span unselectable="on" class="k-input">DİŞİ</span>
<span unselectable="on" class="k-select"><span unselectable="on" class="k-icon k-i-arrow-s">select</span></span></span>
Bu arada yazılı olan DİŞİ ifadesini combobox a yazdırmak ya da seçmek hangisi olursa onu yaptırmak istiyorum.

[mrmarman]

Bu sorunun cevabı için ve diğer benzer soruların komple çözümü için sana bir yer önericem...

Field adını ve yeni değerini vereceğin parametreleri değerlendirecektir. Referans Link Burada "http://www.cryer.co.uk/"

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 := newValue;
    end;
  end;
end;

[eren2000]

Çok teşekkürler hocam insanın ufkunu açıyorsunuz