Help with Delphi Translation

Article View: borland.public.cppbuilder.internet.web

Article #1052

Back to borland.public.cppbuilder.internet.web Previous Next

#1052

From: mike
Date: Sat, 24 Sep 2005 18:42

28 lines
1721 bytes

Hello,

Could someone help me with translating this deph code into Builder5 code.

     procedure TForm1.acIESniffer1WBDownloadComplete(Sender: TObject;
       const URL: String; const Browser: IWebBrowser2);
     var
       doc: IHTMLDocument2;
       Collection: IHTMLElementCollection;
       Element: IHTMLElement;
       HTMLPage: String;
       PlainText: String;
     begin
       try
         doc := (Browser.Document as IHTMLDocument2);
         Collection := doc.all;
         Collection := Collection.Tags('BODY') as IHTMLElementCollection;
         Element := Collection.Item(NULL, 0) as IHTMLElement;

         HTMLPage := Element.OuterHTML; // read the HTML page
         PlainText := Element.OuterText; // or just plain text
       except
       end;
     end;

      Thanks for any assistance in this.

      Mike

Technical Details

Message-ID: <43359db7@newsgroups.borland.com>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: feeec,5d71e42a8af639c6,start
X-Google-Attributes: gidfeeec,public
X-Google-Language: ENGLISH,ASCII-7-bit
From: "mike" <mfbrowne@earthlink.nnet>
Newsgroups: borland.public.cppbuilder.internet.web
Subject: Help with Delphi Translation
Date: Sat, 24 Sep 2005 14:42:39 -0400
Lines: 33
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2180
X-RFC2646: Format=Flowed; Original
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
NNTP-Posting-Host: 68.204.189.169
Message-ID: <43359db7@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1127587255 68.204.189.169 (24 Sep 2005 11:40:55 -0700)
Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail