Forum: Netzwerke
by ScharfeMietze,
1. Feb 2016
Es ist schwierig dir bei ungenauen Angaben zu helfen!!
nun sagst du
Daher wären mehr Details von Vorteil. Da man natürlich auch wenn die Formulare bekannt sind was tun kann.
embdwb1.OleObject.Document.GetElementByID('Feldname').value := trim(edit1.text); mal probiert?
Forum: Netzwerke
by ScharfeMietze,
1. Feb 2016
Normalerweise solltest du keine Schleife brauchen.
Du nimmst dir einen Button zum Testen mit
try
for I := 0 to 20 do
begin
WebBrowser1.OleObject.document.forms.item(I).elements.item('DenrichtigenNamendesFeldes').value:=Trim(Edit1.Text);
ShowMessage(IntToStr(I));
end;
except
Forum: Netzwerke
by ScharfeMietze,
31. Jan 2016
Du bekommst doch in der Message den Wert den du statt I einsetzen kannst um dann die Schleife wegzulassen.
Wahlweise kannst du auch statt dem Integer den 'Formnamen' eingeben.
embdwb1.OleObject.document.forms.item('vbform').elements.item('message').value := Value;
embdwb1.OleObject.Document.GetElementByID('Feldname').value := Value;
Kannst du auch testen.
Wenn du auf Embedded WB...
Forum: Netzwerke
by ScharfeMietze,
31. Jan 2016
WebBrowser1.OleObject.document.forms.item(0).elements.item('FELDNAME').value := Edit1.Text
tut doch genau das.
Falls in das Edit mit Copy&Paste eingefügt wird und ungewollte Leerzeicheichen mit drin sind.
WebBrowser1.OleObject.document.forms.item(0).elements.item('FELDNAME').value := Trim(Edit1.Text)
Du musst nur das 'FELDNAME' durch 'DenrealenNamendesFeldes' ersetzen.
Es sein das...
Forum: Netzwerke
by ScharfeMietze,
31. Jan 2016
for I := 0 to wb.OleObject.Document.forms.Length - 1 do begin
FormItem := wb.OleObject.Document.forms.Item(I);
for j := 0 to FormItem.Length - 1 do begin
memo1.lines.Add(FormItem.Item(j).Name);
end;
aber wenn du den feldnamen doch kennst,
Edit1.Text:= WebBrowser1.OleObject.document.forms.item(0).elements.item('FELDNAME').value
würde das auch gehen.