Скачать: CL | DM;

Ну скажитеж ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!   Найти похожие ветки 

← →
daos ©   (2002-04-05 13:18) [0]

МАСТЕРА, ЛЮДИ, БРАТЬЯ ПОМОГИТЕ!!!!!!!
Как записать в TWebBrowser текст заранее записаннный в переменную?????????

---

← →
gek   (2002-04-05 13:51) [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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.006 c