Текст HTML документа в Memo

[Delpinist]

Как можно программно перенести только текст какой-либо странички в поле Memo (Аналог: В ручную выделить всю html-страничку, в месте с графикой, скопировать все в буфер обмена и вставит в блокнот. При этом в блокнот вставляется только текст, графические элементы исключаются).

[Speeker]

memo1.PasteFromClipboard;
Вставит содиржимое буфера обмена

[Delpinist]

Возможно, вопрос был не правильно понят.
Программа сама должна скопировать содержимое html-документа в буфер обмена, а затем вставить в поле Memo. С Memo понятно: «memo1.PasteFromClipboard», но как для страницы «CopyToClipboard»?

[Drop]

Сообщение от Delpinist

Как можно перенести текст какой-либо странички в поле Memo (Аналог: В ручную выделить всю html-страничку, в месте с графикой, скопировать все в буфер обмена и вставит в блокнот. При этом в блокнот вставляется только текст, графические элементы исключаются).

Я чего-то не знаю? По-моему мемо не умеет работать с графикой. А тебе не подойдет RichEdit?

[Delpinist]

Drop, в Memo программно должен перенестить только текст html-страницы.

[Alar]

Delpinist, напиши ещё один вопрос в теме win api

[aciiiD]

Кароче кинь на форуме компонент TIdHTTP который находится на вкладке Indy Clients, потмо сделай кнопку и пиши следующее

Memo1.Text:=Idhttp1.get('http://soursite.com/index.php');

[DomiNick]

текст какой-либо странички в поле Memo

Ну для начала надо знать где находится эта страничка...
На каком-то сайте, на жёстком диске или открыта в TWebBrowser'е на форме...

Где-то видел что-то похожее...

Нашел...
Может подойдёт:

//Очень лёгкий способ разобрать текст от HTML, используя IHTMLDocument2

Uses MSHTML, ActiveX, ComObj, StdCtrls;

...

Procedure TForm1.Button1Click(Sender: TObject);
Var IDoc: IHTMLDocument2; Strl: TStringList; sHTMLFile: string; v: Variant; 
Links: IHTMLElementCollection; i: Integer; Link: IHTMLAnchorElement;
Begin
If OpenDialog1.Execute Then
      Begin
      sHTMLFile:=OpenDialog1.FileName;
      Strl:=TStringList.Create;
      Try
            Strl.LoadFromFile(sHTMLFile);
            Idoc:=CreateComObject(Class_HTMLDOcument) As IHTMLDocument2;
            Try
                  IDoc.designMode:='on';
                  While IDoc.readyState<>'complete' Do
                        Application.ProcessMessages;
                  v:=VarArrayCreate([0, 0], VarVariant);
                  v[0]:=Strl.Text;
                  IDoc.Write(PSafeArray(System.TVarData(v).VArray));
                  IDoc.designMode:='off';
                  While IDoc.readyState<>'complete' Do
                        Application.ProcessMessages;
                  Memo1.Lines.Text:=IDoc.body.innerText;
            Finally
                  IDoc:=Nil;
                  End;
      Finally
            Strl.Free;
            End;
      End;
End;

//Автор: EddieShipman

З.Ы. Кнопки "Правка" что-то нету...

[Пепел Феникса]

так вы мемо ищите...
надо юзать событие OnKeyPress и его параметр Sender

[mosq]

Сообщение от Delpinist

Как можно программно перенести только текст какой-либо странички в поле Memo (Аналог: В ручную выделить всю html-страничку, в месте с графикой, скопировать все в буфер обмена и вставит в блокнот. При этом в блокнот вставляется только текст, графические элементы исключаются).

только текст - memo1.Lines.Text:=WebBrowser1.OleOb ject.document.body.InnerTEXT;

если весь html -
memo1.Lines.Text:=WebBrowser1.OleOb ject.document.body.InnerHTML;