Feld in Webbrowser ausfüllen

[Delphiturbo]

Hi

ich erhalte error wenn ich versuche das Feld auszufüllen, wenn das Feld in Webbrowser nicht existiert !

Delphi-Quellcode:

WebBrowser1.OleObject.document.forms.item(0).elements.item('name').value:=Edit1.Text;

Ich möchte diese Fehlermeldung verhindern auch wenn das zu füllendes Feld nicht vorhanden ist

[Matze]

Hallo,

kannst du den Fehler nicht mit try - except abfangen?

Grüße

[marabu]

Moin,

wäre eine vorgelagerte Prüfung nicht besser?

Zitat:

Zitat von delphiturbo

... Ich möchte diese Fehlermeldung verhindern auch wenn das zu füllendes Feld nicht vorhanden ist

Da kann noch soviel mehr schief laufen: Das Document kann ein FrameSet sein, eventuell gibt es das Formular garnicht, die Items lassen sich nicht über einen Namen ansprechen oder der Name ist nicht eindeutig.

Ich würde zuerst das gewünschte Eingabefeld lokalisieren und nur bei Vorhandensein den Wert setzen:

Delphi-Quellcode:

function FindElement(doc: OleVariant; const name: string; var element: OleVariant): Boolean;
var
  iFrame, iForm, iElem: Integer;
  vDoc, vFrame, vForm: OleVariant;
begin
  Result := False;
  //  ... to be done
end;

procedure TDemoForm.Test;
var
  vElement: OleVariant;
begin
  if FindElement(wb.OleObject.Document, 'someName', vElement) then
    vElement.Value := 'someValue';
end;

Grüße vom marabu