Solved

Simple web-browser

Posted on 2000-05-15
9
244 Views
Last Modified: 2010-04-04
Hi. Can anyone send me a source of very simple web-brovser. (I don't want to use TWebBrowser component) Also i want to know, how can i add some function that downloads images.
0
Comment
Question by:saulite
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
  • 2
  • +3
9 Comments
 
LVL 15

Expert Comment

by:simonet
ID: 2811980
>I don't want to use TWebBrowser

Why not?
0
 
LVL 4

Expert Comment

by:mhervais
ID: 2812215
listening
0
 
LVL 1

Author Comment

by:saulite
ID: 2812561
Simonet.
It's a stupid Internet Explorer. I want to add my own effects, because i need to built my own browser. OkOk. I actually don't need source of displaying images. I just want to know how to download them.
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 1

Author Comment

by:saulite
ID: 2812883
Edited text of question.
0
 

Expert Comment

by:doncov
ID: 2813463
1. Look example from Delphi5 \Demos\CoolStuff.
2. Article -
http://www.delphizine.com/features/1998/08/di199808rl_f/di199808rl_f.aspAccessing the DOM from Delphi
The first step to accessing the DOM from Delphi is to import the interfaces defined in the INetSDK. Unfortunately, Delphi 3's Typelib import command cannot handle mshtml.dll where the interesting interfaces are defined. You'll need to download the 3.02 update from INPRISE's Delphi updates Web page (Maintenance release 2) and apply it on top of version 3.01. One of the modules installed by this release is tlibimp.exe in the \bin subdirectory of Delphi's installation. You'll need to execute this program from the command line and import mshtml.dll to create mshtml_tlb.pas. This file includes most of the interesting interfaces you need to access the DOM.

 

The IHtmlDocument2 interface is your entry point into the DOM. The WebBrowser control exposes this interface via the Document property. The following code will retrieve the interface in Delphi:

 

Document := WebBrowser.Document as IHtmlDocument2;
 

where Document has been defined as a variable of type IHtmlDocument2.

 

Assuming you have some content in the browser control, you can now start accessing the DOM and access the document's content. The code in Figure 4 accesses the document and prints all the tags found in the content to a memo control. It uses the IHtmlElementCollection and IHtmlElement interfaces.

 

procedure TForm1.Button2Click(Sender: TObject);
var
  All: IHtmlElementCollection;
  HtmlElement: IHtmlElement;
  i: Integer;
begin
Document := WebBrowser.Document as IHtmlDocument2;
if (assigned(Document)) then
 begin
      All := Document.All;
      Memo1.Lines.Clear;
      for i := 0 to All.length - 1 do begin
        HtmlElement := All.Item(i, 0) as IHtmlElement;
        if (Assigned(HtmlElement)) then
          Memo1.Lines.Add(IntToStr(i) + ' ' +
                          HtmlElement.TagName);
end;
      ShowMessage('Number of elements : ' +
                  IntToStr(All.Length));
    end;
end;
Figure 4: Accessing the document and printing all tags to a memo control.
 

The IHtmlDocument2 interface exposes several collections you can use to access the content of the browser. This example uses the All property to access all the tags in the document. You can find more information on the interfaces exposed by IHtmlDocument2 in the INetSDK documentation. Search on "IHtmlDocument2" to get the information. (You'll also notice that the All property of the IHtmlDocument2 interface is the same as the All collection of the Document object, if you are using scripting code.) Figure 5 shows all the tags in homepage.html after "walking" the DOM

0
 

Expert Comment

by:doncov
ID: 2813482
Sorry. I error.
0
 
LVL 3

Accepted Solution

by:
Mathias earned 50 total points
ID: 2813521
Try the following links:

Dave Baldwin: http://www.pbear.com/
There is a browser with many features:
- frames
- gif, jpg,...
- tables

The free version is available and can be used in your forms.

Arsène von Wyss: http://www.bsn.ch/avonwyss/programming/files/Delphi/QuickHTML.zip
A simple html browser (only text).
0
 
LVL 1

Expert Comment

by:darkloser
ID: 2829724
http://www.euromind.com/iedelphi

I think that is all that you search

best regards
0
 
LVL 15

Expert Comment

by:simonet
ID: 2829747
darkloser,

The user specifically no IE ("I don't want to use TWebBrowser component").

TWebBrowser is simply an encapsulation of Internet Explorer.

Alex
0

Featured Post

On Demand Webinar - Networking for the Cloud Era

This webinar discusses:
-Common barriers companies experience when moving to the cloud
-How SD-WAN changes the way we look at networks
-Best practices customers should employ moving forward with cloud migration
-What happens behind the scenes of SteelConnect’s one-click button

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…

749 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question