[MultiVan]

Есть програмка , класс окна и хендл известны , в этой программе есть браузер , в браузере загружена страница одного сайта
Как программно взять и той программы HTML код или хотяб сылки на изображения
Заранее спасибо!

[friz]

юзай indy

Код:

var html:TstringList;
begin
html:=TstringList.create;
html.text:=idhttp.get('www.yousite.com');
//в html наш html код

html.free;
end;

[MultiVan]

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

юзай indy

Код:

var html:TstringList;
begin
html:=TstringList.create;
html.text:=idhttp.get('www.yousite.com');
//в html наш html код

html.free;
end;

Как узнать линк той станицы которая там в программе загрузилась , в этом мой вопрос!

[friz]

может это поможет http://devdelphi.ru/?p=289 ?
или

Код:

uses windows, ddeman, ...... 


function Get_URL(Servicio: string): String; 
var 
   Cliente_DDE: TDDEClientConv; 
   temp:PChar;      //<<-------------------------This is new 
begin 
    Result := ''; 
    Cliente_DDE:= TDDEClientConv.Create( nil ); 
     with Cliente_DDE do 
        begin 
           SetLink( Servicio,'WWW_GetWindowInfo'); 
           temp := RequestData('0xFFFFFFFF'); 
           Result := StrPas(temp); 
           StrDispose(temp);  //<<-Предотвращаем утечку памяти 
           CloseLink; 
        end; 
      Cliente_DDE.Free; 
end; 

procedure TForm1.Button1Click(Sender); 
begin 
   showmessage(Get_URL('Netscape')); 
      или 
   showmessage(Get_URL('IExplore')); 
end;

[MultiVan]

а есть ли такая функция чтобы искала в окна браузера которая находеться в чужом окне?

[M.A.D.M.A.N.]

MSDN >> FindWindow >> DFOB

[MultiVan]

Сообщение от M.A.D.M.A.N.

MSDN >> FindWindow >> DFOB

а по конкретнее можно?

[MultiVan]

Кто поможет?

[Pyro]

winsight?_
кинь скрин этого браузера

[MultiVan]

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

winsight?_
кинь скрин этого браузера

Тот белый прямоугольник и есть браузер просто он не загрузился!

[Pyro]

там есть настройки "использовать прокси?"

[MultiVan]

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

там есть настройки "использовать прокси?"

Ты читал что мне нужно? , мне нужно узать html cod или адрес который должен был загрузиться

[einstein]

ну какой клас окна если пишеш что он известен?

[MultiVan]

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

ну какой клас окна если пишеш что он известен?

Internet Explorer_server

[Snake22]

MultiVan,
может это подойдет? функция берет текст УЖЕ загруженной страницы и в мемо его.
функция:

Код:

function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
 var
   ps: IPersistStreamInit;
   ss: TStringStream;
   sa: IStream;
   s: string;
 begin
   ps := WebBrowser.Document as IPersistStreamInit;
   s := '';
   ss := TStringStream.Create(s);
   try
     sa := TStreamAdapter.Create(ss, soReference) as IStream;
     Result := Succeeded(ps.Save(sa, True));
     if Result then ACode.Add(ss.Datastring);
   finally
     ss.Free;
   end;
 end;

Использование:

Код:

Memo1.Clear;
WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
Memo1.Text:=Utf8ToAnsi(Memo1.Text);//не применять если страница уже в кодировке ANSI
Memo1.SelStart := 0;// фокус переместим в начало,т.к. он встаёт в конец
Memo1.SelLength := 0;