Главная страница
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.013 c
6-40145
Aleksandr
2002-04-03 16:02
2002.06.13
Есть у кого-нибудь этот несчастный rasunit.pas?


1-40076
Georg
2002-06-02 18:37
2002.06.13
Глюк/Gl


1-40072
Korona
2002-06-01 19:37
2002.06.13
Убрать все кнопки кроме Close в MDIChild


8-40118
Ihor
2002-01-31 16:40
2002.06.13
Быстрый доступ до цвета в TBitmap


14-40182
kserg@ukr.net
2002-05-13 13:07
2002.06.13
Кто слышал/работал с компонентом TAdvStringGrid ?