Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.15;
Скачать: CL | DM;

Вниз

Получение кода страницы...   Найти похожие ветки 

 
KingDown ©   (2004-06-13 20:13) [0]

Как сделать так, что прога заходила на заранее указанную страничку и вытаскивала её код, а вставить в тот же РичЕдит и сам смогу.. Заранее спасибо..


 
KingDown ©   (2004-06-13 20:25) [1]

Удалено модератором


 
Rouse_ ©   (2004-06-13 21:32) [2]

uses
 ActiveX;

function TForm1.GetFrame(FrameNo: Integer): IWebbrowser2;
var
 OleContainer: IOleContainer;
 enum: IEnumUnknown;
 unk: IUnknown;
 Fetched: PLongint;
begin
 while Webbrowser1.ReadyState <> READYSTATE_COMPLETE do
   Application.ProcessMessages;
 if Assigned(Webbrowser1.document) then
 begin
   Fetched := nil;
   OleContainer := Webbrowser1.Document as IOleContainer;
   OleContainer.EnumObjects(OLECONTF_EMBEDDINGS, Enum);
   Enum.Skip(FrameNo);
   Enum.Next(1, Unk, Fetched);
   Result := Unk as IWebbrowser2;
 end
 else
   Result := nil;
end;

// Load sample page
// Testseite laden
procedure TForm1.Button1Click(Sender: TObject);
begin
 Webbrowser1.Navigate("http://www.warebizprogramming.com/tutorials/html/framesEx1.htm");
end;

// Save all frames in single files
// Alle Frameseiten in einzelne Dateien speichern
procedure TForm1.Button2Click(Sender: TObject);
var
 IpStream: IPersistStreamInit;
 AStream: TMemoryStream;
 iw: IWebbrowser2;
 i: Integer;
 sl: TStringList;
begin
 for i := 0 to Webbrowser1.OleObject.Document.frames.Length - 1 do
 begin
   iw := GetFrame(i);
   AStream := TMemoryStream.Create;
   try
     IpStream := iw.document as IPersistStreamInit;
     if Succeeded(IpStream.save(TStreamadapter.Create(AStream), True)) then
     begin
       AStream.Seek(0, 0);
       sl := TStringList.Create;
       sl.LoadFromStream(AStream);
       sl.SaveToFile("c:\frame" + IntToStr(i) + ".txt");
       //  memo1.Lines.LoadFromStream(AStream);
       sl.Free;
     end;
   except
   end;
   AStream.Free;
 end;
end;

end.


 
KingDown ©   (2004-06-14 10:07) [3]

Хм.... Большой код, думал будет чуток легче.. Какие компоненты еще должны присутвовать на форме кроме кнопки?! И как сие чудо вставить в РичЕдит, Мемо или Лэйбел.. Если нетрудно, пожалуйста помогите...


 
Rouse_ ©   (2004-06-14 12:37) [4]

> sl.SaveToFile("c:\frame" + IntToStr(i) + ".txt");
>        //  memo1.Lines.LoadFromStream(AStream);

Закоментируй первую строку и раскоментируй вторую...



Страницы: 1 вся ветка

Текущий архив: 2004.08.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
3-1089967516
Trofimov
2004-07-16 12:45
2004.08.15
Экспорт из FastReport


9-1082996918
CraKerX
2004-04-26 20:28
2004.08.15
Интерфейс в GLscene


14-1091067226
menart
2004-07-29 06:13
2004.08.15
Завтра день сисадмина!


3-1090055304
Wolfram
2004-07-17 13:08
2004.08.15
JOIN и несколько таблиц


3-1090257058
pusrg
2004-07-19 21:10
2004.08.15
Ошибка при бекапе БД в FireBird