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

Вниз

TWebBrowser, Просмотр кода, Access Violation   Найти похожие ветки 

 
timekiller ©   (2010-05-22 11:24) [0]

Сутки добрые, Уважаемые Знатоки!

Помогите с проблемой в TWebBrowser, загрузкой страницы и просмотром кода:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var //StartN,EndN:integer;
i:integer;
s:string;
begin
//идем на страницу
try //обезопасим
WebBrowser1.Navigate("http://www.google.com");
except
ShowMessage("немогу, вруби инет");
end;

//выводим текст исходного кода страницы
ShowMessage(GetHTMLSource(WebBrowse r1));

............ на этом месте выскакивает Access Violation

Функция GetHTMLSource(WebBrowser1):

PersistStream:=WB.Document as IPersistStreamInit;
MStream:=TMemoryStream.Create;
SL:=TStringList.Create;
try
Stream:=TStreamAdapter.Create(MStre am,soReference) as IStream;
GResult:=PersistStream.Save(Stream, True); //тут и выскакивает AV
if FAILED(GResult) then
MessageDlg("Ошибочка при передачи HTML source",mtError,[mbOk],0);
finally
MStream.Position:=0;
SL.LoadFromStream(MStream);
Result:=SL.Text;
MStream.Free;
SL.Free;
end;

Если функцию GetHTMLSource навесить на отдельную кнопку - все, соответственно, работает нормально... только нажимать надо на 2 кнопки: сначала переход на страницу, и только потом отображение кода... А нужно всетаки все за один раз... Помогите?
095 на форуме Добавить отзыв для 095 Пожаловаться на это сообщение    Редактировать/удалить сообщение


 
Плохиш ©   (2010-05-22 11:52) [1]

TWebBrowser.Busy
TWebBrowser.OnNavigateComplete2
TWebBrowser.OnDocumentComplete


 
timekiller ©   (2010-05-22 12:05) [2]

While WebBrowser1.Busy do Application.ProcessMessages;
 ShowMessage(GetHTMLSource(WebBrowser1));

йЕСССС ! Бинго! Спасибо огромное!



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

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

Наверх




Память: 0.47 MB
Время: 0.079 c
6-1222988045
sanchopansa
2008-10-03 02:54
2010.08.27
многопоточность при отправке письем через IdSmtp


2-1272659220
Grigoriy
2010-05-01 00:27
2010.08.27
Локализация средствами интерфейса Делфи


15-1275596979
Юрий
2010-06-04 00:29
2010.08.27
С днем рождения ! 4 июня 2010 пятница


2-1267336730
New-zzzz
2010-02-28 08:58
2010.08.27
Как разнести записи в отчёте в 2 столбца ListView?


6-1219129924
Michael
2008-08-19 11:12
2010.08.27
Как проверить наличие файла на FTP