【搞定】TIB3.0关于WEbBrower控件问题，急，在线等待**

alang

或者修改你的.pas文件为
unit pki;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw,MSHTML;


    function getInputStr(WB: TWebBrowser; FieldName: String): String;


implementation


function getInputStr(WB: TWebBrowser; FieldName: String): String;
Var
  Doc : IHTMLDocument2;
  inputText : IHTMLInputTextElement;
begin
  Doc := IHTMLDocument2(WB.Document);
  if nil <> Doc then
  begin
  //如果T1不是IHTMLInputTextElement类型将出错
    inputText := Doc.all.item(FieldName, 0) as IHTMLInputTextElement;
    Result := inputText.value;
  end;


end.

zdbao

直接告诉我如何创建吧，我也在创建，今天你们就放假了，我也只有一上午的工作时间，不希望把它带到年后，谢谢

alang

var
    ff : dyneinfo.TForm1;
begin
    ff := dyneinfo.TForm1.Create(nil);
  ff.getInputStr(...);
  ff.Free;

zdbao

问题已解决，十分感谢，祝新年快乐

alang

结贴，祝楼主和各位合作伙伴春节愉快！