Главная страница
    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-1091210357
Alexander /Brut/
2004-07-30 21:59
2004.08.15
использование буфера обмена по средствам SendMessage...


8-1085751676
Korneley
2004-05-28 17:41
2004.08.15
Нужно описание DirectShow


14-1090931482
CHES
2004-07-27 16:31
2004.08.15
Эксперт для форматирования исходного кода


3-1090241848
AlexanderSK
2004-07-19 16:57
2004.08.15
IBClientDataSet - запрос с параметрами.


3-1090577785
sapsi
2004-07-23 14:16
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский