| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите пожалуйста опять, горит проект !!!!!!!!!!!!!!!!!!!!!!!!! [D5, Win95/98]

Rule ©   (2002-10-03 22:29:00) 

Нужно забрать текст из WebBrowsera !!!!! Очень необходимо в ВебБровзере (*тот что в Делжи), загрузить одну страничку (командой навигате), а потом эта страничка автоматически загрузит другую страничку, так вот мне надо ресурс этой странички загрузитьт в Мемо, тоесть текст из Бровзера перегнать в Мемо (В виде текста или html значения не имеет)

---

int64   (2002-10-04 01:54:00) [1]

Тогда воообще не объявляй, если ругается.

P.S. Хочется сказать что-нибудь, да слов нет.

---

Rule   (2002-10-04 01:34:00) [2]

При копмиляции ставит курсор на месте, где я объявляюе функцию и выдает сообщение об ошибке !!!
Объявляю я функцию в Public
[Error] mega.pas(58): Unsatisfied forward or external declaration: "TForm1.SaveDocToStrings"

---

int64   (2002-10-03 23:14:00) [3]

uses ..., ActiveX;
...
function SaveDocToStrings(Doc: IDispatch; var AStrings: TStrings): HResult;
var
IpStream: IPersistStreamInit;
AStream: TMemoryStream;
begin
AStream := TMemoryStream.Create;
try
IpStream := doc as IPersistStreamInit;
if not Assigned(IpStream) then Result := S_FALSE else
if Succeeded(IpStream.save(TStreamadapter.Create(AStream), TRUE))
then begin
AStream.Seek(0, 0);
AStrings.LoadFromStream(AStream);
Result := S_OK;
end else Result := S_FALSE;
except
Result := S_FALSE;
end;
AStream.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Strings: TStrings;
begin
Strings:=Memo1.Lines;
//перед использованием функции,
//текст должен быть загружен в браузер
SaveDocToStrings(WebBrowser1.Document, Strings);
end;

---

Наверх