Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ну скажитеж ПОЖАЛУЙСТА!!!!!!!!!!!!!!!! [D6, Win95/98, WinXP]

daos © (2002-04-05 13:18:00)
МАСТЕРА, ЛЮДИ, БРАТЬЯ ПОМОГИТЕ!!!!!!!
Как записать в TWebBrowser текст заранее записаннный в переменную?????????

gek (2002-04-05 13:51:00) [1]
type
AddForm_enume=(add_n, add_name, add_passw, add_all, add_clear);
var
enumAdd:AddForm_enume;
bool_modify:boolean;
bool_load:boolean;

procedure TForm_web.ToolButton3Click(Sender: TObject);
var
iDoc:IHtmlDocument2;
i:integer;
ov:OleVariant;
iDisp: IDispatch;
iColl:IHTMLElementCollection;
iInputElement:IHTMLInputElement;
L:longint;
str_a:string;
k_pos:word;
begin
try
L:=WebBrowser1.ControlInterface.Document.QueryInterface(IHtmlDocument2,iDoc);
except
on EAccessViolation do
Showmessage(" Нарушение доступа.Вероятно нужная страница не загружена");
end;
if not assigned(iDoc) then
begin
ShowMessage(" !!!??? Ничего не загружено ... ");
Exit;
end;
ov:="INPUT";
IDisp:=iDoc.all.tags(ov);
if assigned(IDisp) then
begin
IDisp.QueryInterface(IHTMLElementCollection,iColl);
if assigned(iColl) then
begin
for i:=1 to iColl.Get_length do
begin
iDisp:=iColl.item(pred(i),0);
iDisp.QueryInterface(IHTMLInputElement,iInputElement);
if enumAdd = add_n then//добавить имя
begin
if iInputElement.Get_name="family"then
iInputElement.Set_value("kuku_kuku");
end;
end;
end;
except
on EAccessViolation do
Showmessage("Нарушение доступа.Вероятно нужная страница не загружена");
end;
end;

initialization
OleInitialize(nil);

finalization
OleUninitialize;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »