Главная страница
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.012 c
4-40210
kirya85
2002-04-07 18:31
2002.06.13
Как програмно узнать размер занемаемой программой памяти в Win9x.


1-40069
Corte ™
2002-05-31 12:03
2002.06.13
Могет кто нить знает?


1-40064
DeMoN-777
2002-06-02 12:57
2002.06.13
StringList


1-39994
PTE
2002-06-03 12:37
2002.06.13
а как правильно выполнять арифмитические действия в StringGrid?


14-40178
herosofnn
2002-05-12 12:03
2002.06.13
Ускоритель