ارسال اطلاعات به فیلدهای صفحه ای خاص

[djfali]

سلام
صفحه ای را توسط WebBrowser باز میکنم. ( مثل فرم ثبت نام سایت ها )
این صفحات این فیلدها را دارند

<table border=0>
<tr>
<td><b>نام و نام خانوادگی:</b></td>
<td><input name="name" size="40" maxlength="50" type="text"></td>
</tr>
<tr>
<td><b>آدرس ایمیل:</b></td>
<td><input name="email" size="40" maxlength="50" dir="ltr" type="text"></td>
</tr>
.
.
.
<table/>

که نام فیلدها اکثرا مشابه است.
حالا میخوام به صورت اتوماتیک با زدن یک کلید فیلدها پر و ارسال شود.
اصلا هم با برنامه نویسی تحت وب دلفی کار نکردم.
لطفا راهنمایی ام کنید...
ممنون

[BORHAN TEC]

سلام
جواب سوالتون اینجاست:
http://www.cryer.co.uk/brian/delphi/twebbrowser/read_write_form_elements.htm

[djfali]

با تشکر از راهنمایی شما
به دو نوع داده زیر ایراد میگیره. آیا باید شی خاصی رو فرم اورد یا یونیتی تعریف کرد؟

IHTMLDocument2
IHTMLFormElement

شی Webbrowser را فقط اوردم.

همونطور که گفتم تو بحث برنامه نویسی تحت وب مبتدی هستم
لطفا بیشتر راهنمایی کنید...

[BORHAN TEC]

به دو نوع داده زیر ایراد میگیره. آیا باید شی خاصی رو فرم اورد یا یونیتی تعریف کرد؟
یونیت MSHTML رو به قسمت uses اضافه کنید.

[djfali]

با سلام
در ادامه مباحث فوق بعد از ست کردن فیلدها حالا میخوام داکیومنت براوزر به دو صورت سورس(html) و متن بخونم و داخل دو تا RichEdit کپی کنم.
در مورد کد HTML این کد را اجرا کردم که کد HTML بعضی از صفحات را به دست میاره و همه آدرس ها جواب نمیده، ایرادش را هم متوجه نشدم.

لطفا اگه امکانش هست راهنمایی کنید.
ممنون


function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TRichEdit): Boolean;
var
ps: IPersistStreamInit;
ss: TStringStream;
sa: IStream;
s: string;
begin
ps := WebBrowser.Document as IPersistStreamInit;
s := '';
ss := TStringStream.Create(s);
try
sa := TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
if Result then ACode.Text:=(ss.Datastring);
finally
ss.Free;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
WB_GetHTMLCode(Webbrowser1, RichEdit1);
end;