Textarea mit Twebbrowser ausfühlen

[RuSsAk]

Zitat von toms:

Hallo,

Sollte so funktionieren:

Delphi-Quellcode:

uses
  MSHTML:

procedure WB_SetTextAreaValue(Document: IDispatch; sName, sValue: string; Options: TFindOptions);
var
  Doc2: IHTMLDocument2;
  i: Integer;
  field: IHTMLElement;
  textarea: IHTMLTextAreaElement;
begin
   if Supports(Document, IHtmlDocument2, Doc2) then
    for i:= 0 to Doc2.all.length - 1 do
    begin
      field := Doc2.all.item(i, '') as IHTMLElement;
      if Assigned(field) then
      begin
        if field.tagName = 'TEXTAREA' then
        begin
          textarea := field as IHTMLTextAreaElement;
          if Assigned(textarea) then
          begin
            if ((frWholeWord in Options) and (sName = textarea.Name))
              or ((Options = []) and (AnsiPos(sName, textarea.Name) <> 0)) then
              textarea.Value := sValue;
          end;
        end;
      end;
    end;
end;

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
begin
  WB_SetTextAreaValue(Webbrowser1.Document, 'gb[', 'Line1'#13#10'Line2', []);
end;

funktioniert alles
danke mein freund und helfer

mfg,


[edit]hab da mal noch eine frage wie kann ich Line1 u. line2 durch einen text aus einem edit1 austauschen? mit edit1.text geht das irgendwie nich das schreibt er auch "edit1.text" ins textfeld^^
  WB_SetTextAreaValue(Webbrowser1.Document, 'gb[', 'Line1'#13#10'Line2', []);
mfg