|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Вывести из окна HTML код
Есть програмка , класс окна и хендл известны , в этой программе есть браузер , в браузере загружена страница одного сайта
Как программно взять и той программы HTML код или хотяб сылки на изображения Заранее спасибо! |
#2
|
||||
|
||||
юзай indy
Код:
var html:TstringList; begin html:=TstringList.create; html.text:=idhttp.get('www.yousite.com'); //в html наш html код html.free; end; Последний раз редактировалось Admin, Сегодня в 10:32. |
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
может это поможет 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; Последний раз редактировалось Admin, Сегодня в 10:32. |
#5
|
|||
|
|||
а есть ли такая функция чтобы искала в окна браузера которая находеться в чужом окне?
|
#6
|
||||
|
||||
MSDN >> FindWindow >> DFOB
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#7
|
|||
|
|||
Цитата:
|
#8
|
|||
|
|||
Кто поможет?
|
#9
|
|||
|
|||
winsight?_
кинь скрин этого браузера Последний раз редактировалось Pyro, 21.09.2011 в 17:51. |
#10
|
|||
|
|||
|
#11
|
|||
|
|||
там есть настройки "использовать прокси?"
|
#12
|
|||
|
|||
Цитата:
|
#13
|
|||
|
|||
ну какой клас окна если пишеш что он известен?
|
#14
|
|||
|
|||
Цитата:
|
#15
|
|||
|
|||
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; |