Ich will ein
html-Formular (geöffnet in webbbrowser1) ausfüllen lassen.
Das klappt mit Code, den ich hier im Board bzw. bei swissdelphicenter gefunden habe, ganz gut. Allerdings nicht bei einer speziellen Table.
folgende Table läßt sich ausfüllen:
Zitat:
<table id="TABLEx" border="0" cellspacing="0" cellpadding="1"
<select name="Feld1" size="1">
<option value="M" >Herr</option>
<option value="W" >Frau</option>
</select>
</table>
diese klappt nicht:
Zitat:
<TABLE CELLPADDING="2" CELLSPACING="0">
CLASS="b">Anrede *</TD>
<TD WIDTH="451" class="b"><SELECT class="b" NAME="Feld1">
<OPTION SELECTED></OPTION>
<OPTION>Herr</OPTION>
<OPTION>Frau</OPTION>
</SELECT></TD>
mit dieser function fülle ich die Felder aus:
Zitat:
function Tform1.FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
i, j: Integer;
FormItem: Variant;
begin
Result := False;
//no form on document
if WebBrowser.OleObject.Document.all.tags('FORM').Len gth = 0 then
begin
Exit;
end;
//count forms on document
for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
begin
FormItem := WebBrowser.OleObject.Document.forms.Item(I);
for j := 0 to FormItem.Length - 1 do
begin
try
//when the fieldname is found, try to fill out
if FormItem.Item(j).Name = FieldName then
begin
FormItem.Item(j).Value := Value;
Result := True;
end;
except
Exit;
end;
end;
end;
end;
danke für einen Tip Fritz
ps: habe mein Problem hier
http://www.delphipraxis.net/internal...ect.php?t=1140
(Seite 5, Beitrag von Caption, 14.38 Uhr) (ungelöst) gefunden