Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.13;
Скачать: 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 вся ветка

Текущий архив: 2002.06.13;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.011 c
3-39967
Bober2000
2002-05-22 00:36
2002.06.13
Алгоритм бинарного поиска


4-40197
Thalasso
2002-04-10 10:26
2002.06.13
Hooks in Win32


3-39929
koks
2002-05-21 10:00
2002.06.13
Вопрос по TADOQuery


6-40143
Теня
2002-04-03 12:38
2002.06.13
Как проверить занятость порта?


1-39980
Alex_KR
2002-05-31 22:59
2002.06.13
Иконка в System Tray