Вопрос по браузеру

[mihali4]

Как узнать url (имя страницы) открытой браузером

procedure TFVMZWebDB.GetIEUrl;

Как загрузить ее в броузер

procedure TFVMZWebDB.OpenIE( sURL : string );

Надеюсь, в текстовом файле VMZWebDB.pas найти сможете?

[Stanislav]

Сообщение от mihali4

procedure TFVMZWebDB.GetIEUrl;

procedure TFVMZWebDB.OpenIE( sURL : string );

Надеюсь, в текстовом файле VMZWebDB.pas найти сможете?

Я так понимаю вы пытаетесь мне объяснить мой вопрос ссылаясь на свой исходник?

[Stanislav]

Сообщение от mihali4

Надеюсь, в текстовом файле VMZWebDB.pas найти сможете?

Мне то конечно не трудно вопрос в другом для того чтобы мне разобраться в ваших процедурах мне потребуеться столько же времени сколько найти другой способ реализации моей задумки (в конечном итоге) если я не понимаю 6 строчек (к примеру) из 10 что толку мне от этого исходника...

вот например:

procedure TFVMZWebDB.GetIEUrl;
var Cliente_DDE: TDDEClientConv;
temp:PChar;
i: integer;
tmp,tmps,tmpd: string;
ie: hwnd;
buff: array [0..127] of Char;
begin
try
Cliente_DDE:= TDDEClientConv.Create( nil );
with Cliente_DDE do
try
SetLink( 'IExplore','WWW_GetWindowInfo');
temp := RequestData('1');
if temp>'' then
begin
tmp:=StrPas(temp);
for i:=2 to Length(tmp) do
if tmp[i]<>'"' then
tmps:=tmps+tmp[i] else
break;
ie:=FindWindow(pchar('IEFrame'),nil );
GetWindowText(ie, buff, sizeof(buff));
tmp:=StrPas(buff);
for i:=1 to Length(tmp) do
if tmp[i]<>'-' then
tmpd:=tmpd+tmp[i] else
break;
tmpd:=TrimRight(tmpd);
ListBox2.Items.Append(tmps+';'+teki nd+';'+tmpd+';'+'5');
edurl:=True;
GetUrl;
end else
begin
ShowMes(336,332,Label23.Caption);
Application.ProcessMessages;
if snd then
PlaySound('ERROR',0,SND_RESOURCE or SND_SYNC);
end;
finally
StrDispose(temp);
CloseLink;
end;
Cliente_DDE.Free;
except
ShowMes(12,332,'Error V001');
Application.ProcessMessages;
if snd then
PlaySound('ERROR',0,SND_RESOURCE or SND_SYNC);
end;
end;

Для чего все это?

Неужели чтоб получить имя открытой браузером страницы нужно столько кодинга и еще столько же чтоб его загрузить??? таой вот уменя к вам вопрос....