Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2004.08.15;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.035 c
1-1091133724
nick_mas
2004-07-30 00:42
2004.08.15
Как в Form.Caption поместить текст с правой и левой стороны?


14-1091281401
VID
2004-07-31 17:43
2004.08.15
Где скачать красивый трёхмерный бильярд ?


1-1091589740
X - type
2004-08-04 07:22
2004.08.15
Как определить директорию


3-1090299812
Tempo
2004-07-20 09:03
2004.08.15
Как узнать номер новой записи.


1-1091359252
dracula
2004-08-01 15:20
2004.08.15
надо определить длину строки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский